[pt] UDF de atualização automática

Pode participar desse fórum. ¿Tu tenhes alguns scripts que gostaria de compartilhar? ¿Ajuda? Obrigado

Moderador: Splash

[pt] UDF de atualização automática

Notapor Splash » 11 Feb 2010, 21:30

Código: Seleccionar todo
#cs
    Author: Igor "Splash" Cemim
    Profile: http://www.autoitscript.com/forum/index.php?showuser=46021
    Email: igor dot cemim at yahoo dot com dot br

    Thanks to _SelfDelete author (???). :)
#ce

;$scriptVersion = Versão do seu script/programa.
;$iniUrl = URL de onde será baixado o arquivo de configuração.
;[Opcional]
;$fileName = Nome do arquivo atualizado após o download.
;$iniName = Nome do arquivo de configuração após o donwload.
Func CheckUpdate($scriptVersion, $iniUrl, $fileName = "update.exe", $iniName = "update.ini")
    InetGet($iniUrl, $iniName, 1)
    $lastestVersion = IniRead($iniName, "Update", "lastestVersion", 0)
    $updateUrl = IniRead($iniName, "Update", "updateUrl", 0)
    If ($lastestVersion > $scriptVersion) Then
        InetGet($updateUrl, $fileName, 1, 0)
        FileDelete(@ScriptDir & "\" & $iniName)
        _DoUpdate(@ScriptDir & "\" & $fileName)
    EndIf
EndFunc   ;==>CheckUpdate

;$newFile = Arquivo atualizado.
;$iDelay = Tempo de espera entre a execução dos comandos.
Func _DoUpdate($newFile, $iDelay = 4)
    Local $sCmdFile
    FileDelete(@TempDir & "\doIt.bat")
    $sCmdFile = 'ping -n ' & $iDelay & ' 127.0.0.1 > nul' & @CRLF _
             & ':loop' & @CRLF _
             & 'del "' & @ScriptFullPath & '" > nul' & @CRLF _
             & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _
             & 'ping -n ' & $iDelay & ' 127.0.0.1 > nul' & @CRLF _
             & 'rename "' & $newFile & '" "' & @ScriptName & '" > nul' & @CRLF _
             & 'ping -n ' & $iDelay & ' 127.0.0.1 > nul' & @CRLF _
             & '"' & @ScriptFullPath & '" > nul ' & @CRLF _
             & 'del "' & @TempDir & '\doIt.bat" > nul'
    FileWrite(@TempDir & "\doIt.bat", $sCmdFile)
    Run(@TempDir & "\doIt.bat", @TempDir, @SW_HIDE)
    Exit
EndFunc   ;==>_DoUpdate


Exemplo de arquivo de configuração: (Traductor Mod, cuando acaba en -ção es -cion, configuración)
Código: Seleccionar todo
[Update]
lastestVersion=2
UpdateUrl=http://www.mysite.com/update/newfile.exe


Se tiverem alguma dúvida perguntem.
(Si _______ duda pregunten. Traductor Mod:)
Splash
 
Mensajes: 18
Registrado: 10 Feb 2010, 21:32
Ubicación: Brasil, Porto Alegre

Re: [pt] UDF de atualização automática

Notapor gna08 » 11 Feb 2010, 22:30

Very well :smt023
This script is very useful to me.. I do lots of apps that require such functions..
Thanks you.. ! :smt023 :smt023
Aunk no m Buskes, Seguro m enkontras!
Avatar de Usuario
gna08
Hacker del Foro
 
Mensajes: 378
Registrado: 27 Sep 2008, 18:51
Ubicación: Cordoba, Argentina


Volver a Autoit em Português - Ajuda

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado

cron