Bonjour,

J'ai relancé un patcher qu'on ami avais fait pour mon serveur et la... parfois sur des ordinateurs il fonctionne, d'autre fois non... J'ai tout de suite pensée au DLL (J'ai essayer tout ce que j'avais en mon pouvoir, et ca na pas marcher...)

J'ai fait un scan avec Process Monitor... il manque pas de DLL...

J'ai installer VB6 sur la machine en question qui marchais pas (et c'est environ 1 machine sur 2...) et en regardans ou il plante c'est ici :
[code]
Private Function Getfile(site, file As String)
    'Name of the updated exe
    'RemoteFileToGet = site & updatelist

    FirstResponse = False
    m_FileSize = GetHTTPFileSize(site & file)
    While Inet1.StillExecuting = True
        DoEvents  <<<<<<<=============================
    Wend
    lblStatus.Caption = "Détermination de la taille du fichier..."
    'lblInfo.Caption = "0/" & (m_FileSize)
    lblInfo.Caption = (m_FileSize) & " octets"
    pbfile.Value = 0
    m_LocalSaveFile = Path & file
    'Inet1.Execute RemoteFileToGet, "GET " & Chr(34) & m_LocalSaveFile & Chr(34)
    Inet1.Execute site & file, "GET " & Chr(34) & m_LocalSaveFile & Chr(34)
End Function[/code]

Il plante au DoEvents, et rien a faire... il n'arrive même pas a download un tout petit peu avec Inet... On dirais que c'est Inet qui plante...

Sur mon ordi à moi, tout fonctionne impec... (jai meme pris toute mes dll et les ai remis sur ma deuxieme machine...)

Si quelqu'un peux m'aider.. merci ^^

extrait de la doc VB6 ...regarde les deux lignes que j'ai mis en rouge  c'est peut être la solution

While...Wend, instruction

       

Exécute une série d' instructions dans une boucle aussi longtemps que la valeur d'une condition est True.

Syntaxe

Whilecondition
[statements]

Wend

La syntaxe de l'instruction While...Wend comprend les éléments suivants :

Élément	Description
condition	Expression numérique ou expression de chaîne vraie (True) ou fausse (False). Si l'argument condition est de type Null, il est considéré comme False.
statements	Facultatif. Une ou plusieurs instructions exécutées tant que la valeur de la condition est True.

Remarques

Si la valeur de l'argument condition est True, toutes les instructions (statements) sont exécutées jusqu'à ce que l'instruction Wend soit rencontrée. Le contrôle retourne ensuite à l'instruction While et condition est de nouveau vérifié. Si condition est toujours vrai (True), le processus est répété. Si la valeur de condition n'est pas True, l'exécution reprend à partir de l'instruction qui suit l'instruction Wend.

Les boucles While...Wend peuvent être imbriquées à n'importe quel niveau. Chaque Wend correspond à l'instruction While la plus récente.

Conseil   L'instruction Do...Loop permet d'exécuter une itération de manière plus structurée et plus souple.

mais va surtout faire une recherche sur FTP et HTTP dans VB France il y a des tas de choses au sujet d'INET et pas toutes élogieuses !

Bah en faite... je ne suis pas vraiment codeur VB... je déteste le VB, (a cause des problème comme ici...)...

Sinon, si je met :

Do While Inet1.StillExecuting = True
        DoEvents
    Loop

Fonctionne pas plus... plante encore au DoEvents... (il reste la...)

On dirais qu'il ne peux pas acceder au net via Inet... i veux juste pas... enfin, c'est ce que je pense... mais quel est le problème ?

Merci beaucoup!

lol si il reste là ce n'est pas un plantage du doevent
c'est plutot qu'il ne reçoit jamais l'info qui lui permet de repartir !
regardes alors du coté de ton  Inet1.StillExecuting = True en mettant un espion dessus

louche....

quel lien direct entre 

   m_FileSize = GetHTTPFileSize(site & file)

et 


    While Inet1.StillExecuting = True
        DoEvents  <<<<<<<=============================
    Wend

on a le code de GetHTTPFileSize ?
parce que s'il rend la main sans que Inet n'ai au final finit son job, m_File_Size ne risque pas d'avoir souvent une valeur cohérente...

Renfield
Admin CodeS-SourceS- MVP Visual Basic

HttpGetFileSize :

Private Function GetHTTPFileSize(strHTTPFile As String) As Long
On Error GoTo ErrorHandler
    Dim GetValue As String
    Dim GetSize  As Long
   
    m_GettingFileSize = True
   
    Inet1.Execute strHTTPFile, "HEAD " & Chr(34) & strHTTPFile & Chr(34)

    Do Until Inet1.StillExecuting = False
        DoEvents
    Loop

    GetValue = Inet1.GetHeader("Content-length")
   
    Do Until Inet1.StillExecuting = False
        DoEvents
    Loop
   
    If IsNumeric(GetValue) = True Then
        GetSize = CLng(GetValue)
    Else
        GetSize = -1
    End If

    If GetSize <= 0 Then GetSize = -1

    m_GettingFileSize = False
    GetHTTPFileSize = GetSize
Exit Function

ErrorHandler:
    m_GettingFileSize = False
    GetHTTPFileSize = -1
End Function

Je n'ai toujours pas trouvé...

Le plus louche c'est qu'il marche sur certains ordis ... (avec ou sans vb6...)

pas besoin de coller des Do Until Inet1.StillExecuting = False DoEvents Loop partout... tu es de toutes facon récuperer ce qui manque via la méthode GetChunk

Je ne suis pas codeur VB... c'est pas moi qui a fait le code... (mais je code du C ou Cpp, donc jpeux me débrouiller pour le VB ^^)

Sinon, il faudrais que jenleve completement mes DoEvent ?

J'essaie ca dès que je rentre chez moi

Merci!

Bon, si j'enleves mes DoEvents... sa plante pas, mais ca download pas non plus... donc ca plante plus loin dans le code car il n'a pas téléchargé les fichiers...

Donc, le problème viendrais vraiment de Inet ?

Merci