AutoIt Français

Code : Tout sélectionner

[Gwall]
version=1.5
index=http://gwall.*******.com/
setup=http://tim.****.free.fr/*****-setup.exe
filesize=4067328
filetime=60080516083702

Code : Tout sélectionner

Global Const $s_DatFile = 'http://tim.****.free.fr/update.dat'
Global Const $s_DatFile_Local = @ScriptDir & '\au3_update.dat'
Global Const $b_Download_UpdateDat = 1
$version = "1.0" ; Version du logiciel en cours d'utilisation


;-------------------------------------------------------------
;Mise en place des conditions avant Demarrage de l'application
;-------------------------------------------------------------
;If @DesktopWidth <> "1O24" And @DesktopHeight <> "768" Then MsgBox(0, "problème de Résolution", "Les composants de [Gwall] ne sont configurés que pour une utilisation en Résolution 1024 par 768. Certains qui influent sur l'application Guildwars peuvent ne pas fonctionner convenablement. Dans les versions ultérieures ce problème sera corrigé.")
If $b_Download_UpdateDat Then
    SplashTextOn("", "Vérification de la Version...Veuillez patienter", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Times New Roman", 12, 800)
    $inetget = InetGet($s_DatFile, $s_DatFile_Local, 1)
    SplashOff()
Else
    FileCopy(@ScriptDir & '\update.dat', $s_DatFile_Local) ; pour tester localement
EndIf
While 1
    If $inetget = 0 And $b_Download_UpdateDat = 1 Then
        $i_Res = MsgBox(6 + 64, 'Gwall:Erreur de Connexion à Internet', 'La plupart des composants de Gwall nécéssitent une Connexion Internet.' & @LF & _
                "Vous pouvez tout de même lancer Gwall en cliquant sur [Continuer]" & @LF & @LF & _
                "Vous pouvez également retenter de vous connecter en cliquant sur [Recommencer]," & @LF & _
                'après avoir vérifié que:' & @LF & _
                ' - Vous êtes bien connecté à Internet' & @LF & _
                ' - Vous pouvez acceder  au forum http://gwall.*****.com' & @LF & _
                " - Votre pare-feu ne bloque pas l'accès Internet à ce programme")
        If $i_Res = 10 Then
            InetGet($s_DatFile, $s_DatFile_Local, 1, 1)
            
        ElseIf $i_Res = 11 Then
            ExitLoop
        Else
            Exit
        EndIf
    Else
        Global $s_ReleaseVer
        $s_ReleaseVer = IniRead($s_DatFile_Local, 'Gwall', 'version', 'Erreur de lecture')
        FileDelete($s_DatFile_Local)
        

        If _CompareVersions($s_ReleaseVer, $version) Then
            $msgversion = MsgBox(4 + 64, "Une nouvelle Version est Disponible", "Souhaitez vous la télécharger?")
            If $msgversion = 6 Then
                Run(@ScriptDir & "\gwall_update.exe")
                               ;La tu peux, au lieu de run un update.exe, lancer directement le telechargement de ton application. Voir Inetget
                ExitLoop
            Else
                ExitLoop
            EndIf
        Else
            
            ExitLoop
        EndIf
    EndIf

WEnd









Func _CompareVersions($s_Vers1, $s_Vers2, $i_ReturnFlag = 0)
    If $s_Vers1 = '' Then Return 0
    Local $i, $i_Vers1, $i_Vers2, $i_Top
    Local $a_Vers1 = StringSplit($s_Vers1, '.')
    Local $a_Vers2 = StringSplit($s_Vers2, '.')
    $i_Top = $a_Vers1[0]
    If $a_Vers1[0] < $a_Vers2[0] Then
        $i_Top = $a_Vers2[0]
    EndIf
    For $i = 1 To $i_Top
        $i_Vers1 = 0
        $i_Vers2 = 0
        If $i <= $a_Vers1[0] Then
            $i_Vers1 = Number($a_Vers1[$i])
        EndIf
        If $i <= $a_Vers2[0] Then
            $i_Vers2 = Number($a_Vers2[$i])
        EndIf
        If $i_Vers1 > $i_Vers2 Then
            $v_Return = 1
            ExitLoop
        ElseIf $i_Vers1 < $i_Vers2 Then
            $v_Return = 0
            ExitLoop
        Else
            $v_Return = -1
        EndIf
    Next
    If $i_ReturnFlag Then
        Select
            Case $v_Return = -1
                SetError(1)
                Return 0
            Case $v_Return = 1
                Return $s_Vers1
            Case $v_Return = 0
                Return $s_Vers2
        EndSelect
    ElseIf $v_Return = -1 Then
        SetError(1)
        Return 0
    Else
        Return $v_Return
    EndIf
EndFunc   ;==>_CompareVersions