Check file

informatixa Messages postés 21 Date d'inscription mardi 13 février 2007 Statut Membre Dernière intervention 20 février 2012 - 27 déc. 2008 à 11:50
informatixa Messages postés 21 Date d'inscription mardi 13 février 2007 Statut Membre Dernière intervention 20 février 2012 - 28 déc. 2008 à 02:29
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

informatixa Messages postés 21 Date d'inscription mardi 13 février 2007 Statut Membre Dernière intervention 20 février 2012
28 déc. 2008 à 02:29
up
0
Rejoignez-nous