Auto Update

[Arkeus]

Siemka mam dla was swój stary jakże banalny kod auto updatera z gotowym Gui dam wam może przyda się dla nowych w Au3 jest opisany wystarczy sobie nazwy labelow pozmieniac:

Gdyby były jakieś problemy to proszę śmiało pisać pod tematem! ;p

 

 

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$NV = BinaryToString(InetRead("http://www.sfbot.it-host.pl/client/version.txt")) ;Tutaj wpisujemy sobie lokacje naszego pliku z .txt z wersja programu na ftp
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Updater", 267, 213, 192, 124)
$Button1 = GUICtrlCreateButton("Update", 8, 152, 251, 25)
$Button2 = GUICtrlCreateButton("Exit", 8, 184, 251, 25)
$Progress1 = GUICtrlCreateProgress(8, 120, 246, 17)
$Label1 = GUICtrlCreateLabel("Auto Updater", 88, 17, 95, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetCursor (-1, 2)
$Label2 = GUICtrlCreateLabel("Version:" & $NV, 48, 48, 100, 25) ;Wyswietla nam wersje pliku na ftp
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetCursor (-1, 2)
$Checkbox1 = GUICtrlCreateCheckbox("Run Program", 88, 88, 97, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then ;Sprawdzanie czy checkbox1 jest aktywny czy nie jesli jest to wykonuje funkcje updates1 z uruchomieniem pliku a jesli nie to uruchamia funkcje updates bez uruchamiania pliku
updates1()
Else
updates()
EndIf
Case $Button2
exits()

EndSwitch
WEnd

Func updates1()
$ausize = InetGetSize("http://www.sfbot.it-host.pl/client/Sfbot.exe", 1) ;Link do programu .exe na ftp
$aulink = InetGet("http://www.sfbot.it-host.pl/client/Sfbot.exe", @ScriptDir & "\Sfbot.exe", 1, 1) ;Link do programu .exe na ftp oraz jak ma go zapisać
While InetGetInfo($aulink, 2) = False
GUICtrlSetData($Progress1, Int((InetGetInfo($aulink, 0) / $ausize) * 100))
Sleep(100)
WEnd
MsgBox ( 0, "Download Complete!", "Download Complete!" )
Run( @ScriptDir & "\Sfbot.exe") ;Uruchamiamy nasz program
Exit
EndFunc

Func updates()
$ausize = InetGetSize("http://www.sfbot.it-host.pl/client/Sfbot.exe", 1) ;Link do programu .exe na ftp
$aulink = InetGet("http://www.sfbot.it-host.pl/client/Sfbot.exe", @ScriptDir & "\Sfbot.exe", 1, 1) ;Link do programu .exe na ftp oraz jak ma go zapisać
While InetGetInfo($aulink, 2) = False
GUICtrlSetData($Progress1, Int((InetGetInfo($aulink, 0) / $ausize) * 100))
Sleep(100)
WEnd
MsgBox ( 0, "Download Complete!", "Download Complete!" ) ;Msgbox informuje nas o skonczeniu pobierania
Exit
EndFunc

Func exits() ;Funkcja wyjscia z programu
$Box = MsgBox ( 1, "Program exit", "Do you want to exit the program ?", "", "bot" )
If $Box = 1 Then
Exit
EndIf
EndFunc

 

 

[ZakuG]

nie ma opcji sprawdzania wersji, tj. jeśli mam już poprawną wersje to pobiera jeszcze raz i dopiero uruchamia. trochę to głupie ze względu na możliwy duży rozmiar aplikacji do pobrania. ale plus jest.

[jackraymund]

wystarczy że porównasz $ausize z wagą pliku

jak już przeczytałeś

Siemka mam dla was swój stary jakże banalny kod auto updatera z gotowym Gui

jest to w chuj szybki i prosty uptader, więc musiałbyś dodać kilka funkcji