Un module qui fait tout planter !!!

Un module qui fait tout planter !!! - VB/VBA/VBS - Programmation

Marsh Posté le 23-08-2002 à 18:33:49    

Voici le module  

Code :
  1. Option Explicit
  3. Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
  4. Public Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hOpen As Long, ByVal sUrl As String, ByVal sHeaders As String, ByVal lLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
  5. Public Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
  6. Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
  8. Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0
  9. Public Const INTERNET_OPEN_TYPE_DIRECT = 1
  10. Public Const INTERNET_OPEN_TYPE_PROXY = 3
  12. Public Const scUserAgent = "VB OpenUrl"
  13. Public Const INTERNET_FLAG_RELOAD = &H80000000
  15. Sub Download(URL As String, SaveAs As String)
  17.         Dim hOpen                            As Long
  18.         Dim hOpenUrl                        As Long
  19.         Dim bDoLoop                      As Boolean
  20.         Dim bRet                                As Boolean
  21.         Dim sReadBuffer              As String * 2048
  22.         Dim lNumberOfBytesRead  As Long
  23.         Dim sBuffer                      As String
  25.         hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
  26.         hOpenUrl = InternetOpenUrl(hOpen, URL, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
  28.         bDoLoop = True
  29.         While bDoLoop
  30.                 sReadBuffer = vbNullString
  31.                 bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)
  32.                 sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)
  33.                 If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
  34.              
  35.                
  36.         Wend
  37.        
  38.         Open SaveAs For Binary Access Write As #1
  39.         Put #1, , sBuffer
  40.         Close #1
  41.        
  42.         If hOpenUrl <> 0 Then InternetCloseHandle (hOpenUrl)
  43.         If hOpen <> 0 Then InternetCloseHandle (hOpen)
  45. End Sub


Quand j'utilise ce module  
en l'appelant par

Code :
  1. call download ("www.grosficheir.com/grosficheir.Exe","c:\gff.exe" )


par exemple  
Le programme ne va plus répondre (on ne peux plus bouger la fenetre ni appuyer sur les boutons il plante quoi )tant que le fichier ne sera pas télécharger  
quand il a fini de le télécharger  
tout redevient normal
POURQUOI ?
S'il vous plait  aidez moi  :cry:  :cry:  

Reply

Marsh Posté le 23-08-2002 à 18:33:49   

Reply

Marsh Posté le 23-08-2002 à 21:37:28    

met un DoEvents juste avant le Wend dans ta boucle. Si ca plante tjrs, un sleep(10) devrait faire l'affaire.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed