Check file

Signaler
Messages postés
21
Date d'inscription
mardi 13 février 2007
Statut
Membre
Dernière intervention
20 février 2012
-
Messages postés
21
Date d'inscription
mardi 13 février 2007
Statut
Membre
Dernière intervention
20 février 2012
-
Private Function GUpdater() As Boolean
On Error GoTo MyError
    Kill (".\GUpdater.exe")
    GUpdater = True
MyError:
    GUpdater = False
End Function

Private Function Check()
    If IsFile(".\GUpdater.exe.new") Then
        If GUpdater() Then
            Call HTTPDownload("http://guard.jhacksecure.com/patch/GUpdater.exe", ".\GUpdater.exe")
            Shell (".\GUpdater.exe")
            End
        Else
            Kill (".\GUpdater.exe.new")
        End If
    Else
        If DispProdCRC(".\GUpdater.exe") = Inet.OpenURL("http://guard.jhacksecure.com/patch/GUpdater.exe.crc") Then
        Else
            Call HTTPDownload("http://guard.jhacksecure.com/patch/GUpdater.exe", ".\GUpdater.exe.new")
            Shell (".\GUpdater.exe.new")
            End
        End If
    End If
End Function

Voila ci-dessus vous avais mon code. mais la partir vert bug, il prend pas en conte la vérification (il récupère bien les information crc, je les test). de plus la parti rouge il la prend pas en conte il passe direct a la parti bleu tt je voir pas pourquoi, alors je demande votre aide merci.

1 réponse

Messages postés
21
Date d'inscription
mardi 13 février 2007
Statut
Membre
Dernière intervention
20 février 2012

up