AutoIt Français

Code : Tout sélectionner

#include "7Zip.au3"

Global $sUpdateURL = "http://monsite.com"
Global $sUpdateFile = "update.cfg"
Global $iNewVersionNum = 0
Global $iNewVersionURL
Global $sDownloadedFile

Global $bProgressOn = True ; True = affiche la progression du téléchargement, sinon False

Global $iCurrentVersion = 1


If _checkNewVersion() Then
    If MsgBox(36, "Mise à jour", "La version " & $iNewVersionNum & " est disponible." & @CRLF & @CRLF & "Voulez-vous effectuer la mise à jour maintenant ?") = 6 Then
        If _downloadNewVersion() Then
            ; MsgBox(0, "", "La nouvelle version a été téléchargée correctement")
            
            If _7ZipStartup() Then
                $retResult = _7ZIPExtract(0, $sDownloadedFile, @ScriptDir & "\extract", 0, 0, 1 )
                If @error = 0 Then
                    MsgBox(0, "", "Tous les fichiers ont été décompressés")
                Else
                    MsgBox(16, "Echec de la mise à jour", "Une erreur est survenue lors de la mise à jour")
                EndIf
            Else
                MsgBox(16, "Echec de la mise à jour", "Une erreur est survenue lors de la mise à jour")
            EndIF
            _7ZipShutdown()
        EndIF
    EndIf
EndIf




Func _downloadNewVersion()
    $sDownloadedFile = @ScriptDir & "\" & StringRegExpReplace($iNewVersionURL, "(.*/)?(.+)", "$2")
    Local $iInetGetBytesRead = 0
    
    If $sDownloadedFile = "" Then Return 0
    
    If FileExists($sDownloadedFile) Then FileDelete($sDownloadedFile)
    
    $iInetSize = InetGetSize($sUpdateURL & "/" & $iNewVersionURL)
    ; Pour test : Local $iInetSize = InetGetSize("http://www.autoitscript.com/autoit3/files/beta/autoit/autoit-docs-v3.3.9.19-src.zip")
    

    If $bProgressOn Then ProgressOn ("Téléchargement en cours.", "Veuillez patienter...")
    
    Local $hDownload = InetGet($sUpdateURL & "/" & $iNewVersionURL, "~", 1, 1)
    ; Pour test : Local $hDownload = InetGet("http://www.autoitscript.com/autoit3/files/beta/autoit/autoit-docs-v3.3.9.19-src.zip", $sDownloadedFile, 1, 1)

    While $iInetGetBytesRead < $iInetSize
        $iInetGetBytesRead = InetGetInfo($hDownload, 0)
        
        If $bProgressOn Then
            $iPercent = Round($iInetGetBytesRead / $iInetSize * 100)
            ProgressSet($iPercent, $iInetGetBytesRead & "/" & $iInetSize, $iPercent & "%")
            If InetGetInfo($hDownload, 3) Then
                ProgressOff()
                Return 1
            ElseIf InetGetInfo($hDownload, 4) Then 
                ProgressOff()
                Return 0
            EndIf
        EndIf
        
        Sleep(200)
    WEnd
    

EndFunc



Func _checkNewVersion()
    Local $sData = InetRead($sUpdateURL & "/" & $sUpdateFile)
    ; Pour test : Local $sData = FileRead(@ScriptDir & "\myUpdate.cfg")
    
    If $sData = "" Then Return SetError(1, 0, 0)
    
    Local $aData = StringRegExp($sData, "(?i)Version\s*(\d+)\s*:\R+(/.+?)(?:\R|\Z)+", 3)
    If @error Then Return SetError(2, 0, 0)
    
    If Mod(UBound($aData), 2) <> 0 Then Return SetError(2, 0, 0)
    Local $aVersions[ UBound($aData) / 2 ][2]
    
    For $i = 0 To UBound($aData) - 1 Step 2
        If $aData[$i] > $iNewVersionNum Then
            $iNewVersionNum = $aData[$i]
            $iNewVersionURL = $aData[$i + 1]
        EndIf
    Next
    
    If $iNewVersionNum > $iCurrentVersion AND $iNewVersionURL <> "" Then Return 1
    
    Return 0
    
EndFunc