SmartUpdater

[Phoenix_PL]

Witam.

 

Z mojej potrzeby zrobiłem skrypt który aktualizuje jeden plik.

Może to się okazać nieprzydatne, aczkolwiek wstawiam tu kod - z tego kodu można w sumie napisać 'większego' autopatchera (którego posiadam, ale nie umieszczam :P).

 

Tak więc, łapcie.

 

#include <GuiConstantsEx.au3>

;GUI
$FORM_update = GUICreate("Update", 228, 60, -1, -1, 0x00C00000)
$PRG_postep = GUICtrlCreateProgress(8, 32, 206, 17)
$LABEL_pobieranie = GUICtrlCreateLabel("", 8, 8, 212, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUISetState(@SW_SHOW)

;rozpoczynanie pobierania

;zmienna z linkiem do pliku i miejscem zapisu pliku
Global Const $DownloadURL = "tutaj wstaw bezpośredni link do pliku"
Global Const $SavePath = "tutaj wstaw ścieżkę zapisu pobranego pliku"

GUICtrlSetData($LABEL_pobieranie, "Sprawdzam aktualnosć pliku...")

;pobierz informacje o pliku
$FileSize = InetGetSize($DownloadURL)

;sprawdź czy plik juz jest sciągnięty
If FileExists($SavePath) Then
;jesli plik istnieje to sprawdź jego wielkosć i porównaj z wielkoscią z serwera
$DwnFileSize = FileGetSize($SavePath)
If $DwnFileSize = $FileSize Then
;jesli wielkosć jest taka sama (więc pliki są identyczne)
MsgBox(64, "Informacja", "Masz aktualną wersję pliku!")
zakoncz()
EndIf
EndIf

;zrób obliczenia potrzebne do obsługi progressbara
$Procent = $FileSize/100
;MsgBox(0, "", $Procent)

;rozpocznij pobieranie
$Inet = InetGet($DownloadURL, $SavePath, 1, 1)
Local $Pos

;pętla do obsługi progressbara
While InetGetInfo($Inet, 2) = False
$Pos = Ceiling((InetGetInfo($Inet, 0)/$FileSize)*100)
GUICtrlSetData($PRG_postep, $Pos)
GUICtrlSetData($LABEL_pobieranie, "Pobieranie: "&$Pos&"%")
Sleep (250)
WEnd
GUICtrlSetData($PRG_postep, 100)

zakoncz()

;funkcje
Func zakoncz()
Run($SavePath)
Exit
EndFunc

;pętla programu
While 1
Sleep (100)
WEnd

 

 

Jeśli ktoś nie chce, żeby pobrany plik się uruchamiał (w przypadku jeśli plik jest wykonywalny) to niech zakomentuje Run($SavePath) w funkcji zakoncz() (kombinowałem z checkboxem ale się buntował )

 

A, i jeszcze jedno - Link do pobieranego pliku oraz miejsce jego zapisania jest w zmiennych pod gui (są komentarze )

Link do pliku musi być bezpośredni, czyli musi się kończyć rozszerzeniem pliku (takie linki można uzyskać poprzez wrzucanie na np. Dropboxa, Sourceforge)

 

Miłej zabawy ...

[tapne]

no no masz lajka :P, a może byś pokazał jak zrobić żeby aktualizowało z FTP ?

[jackraymund]

@up

na ftp jest troszke szkoda czasu, ponieważ łatwo dekompilować au3

[Phoenix_PL]

Jak @up... chyba że chcesz żeby ci ktoś do bazy wbił :P

A z FTP nie można wziąść linku do pliku?

[Gość]

Można by było zrobić program który ma funkcje update'u samego siebie. Właściwie zmiana to @ScriptFullPath

#include <GuiConstantsEx.au3>
;GUI
$FORM_update = GUICreate("Update", 228, 60, -1, -1, 0x00C00000)
$PRG_postep = GUICtrlCreateProgress(8, 32, 206, 17)
$LABEL_pobieranie = GUICtrlCreateLabel("", 8, 8, 212, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUISetState(@SW_SHOW)
;rozpoczynanie pobierania
;zmienna z linkiem do pliku i miejscem zapisu pliku
Global Const $DownloadURL = "tutaj wstaw bezpośredni link do pliku"
Global Const $SavePath = @ScriptFullPath
GUICtrlSetData($LABEL_pobieranie, "Sprawdzam aktualnosć pliku...")
;pobierz informacje o pliku
$FileSize = InetGetSize($DownloadURL)
;sprawdź czy plik juz jest sciągnięty
If FileExists($SavePath) Then
;jesli plik istnieje to sprawdź jego wielkosć i porównaj z wielkoscią z serwera
$DwnFileSize = FileGetSize($SavePath)
If $DwnFileSize = $FileSize Then
;jesli wielkosć jest taka sama (więc pliki są identyczne)
MsgBox(64, "Informacja", "Masz aktualną wersję pliku!")
zakoncz()
EndIf
EndIf
;zrób obliczenia potrzebne do obsługi progressbara
$Procent = $FileSize/100
;MsgBox(0, "", $Procent)
;rozpocznij pobieranie
$Inet = InetGet($DownloadURL, $SavePath, 1, 1)
Local $Pos
;pętla do obsługi progressbara
While InetGetInfo($Inet, 2) = False
$Pos = Ceiling((InetGetInfo($Inet, 0)/$FileSize)*100)
GUICtrlSetData($PRG_postep, $Pos)
GUICtrlSetData($LABEL_pobieranie, "Pobieranie: "&$Pos&"%")
Sleep (250)
WEnd
GUICtrlSetData($PRG_postep, 100)
zakoncz()
;funkcje
Func zakoncz()
Run($SavePath)
Exit
EndFunc
;pętla programu
While 1
Sleep (100)
WEnd

[Selectofe]

Dodaje skana zeby nie było a pliki fajne;0 a co to ten keylogger?

Scan :

[MatiCraft]

a co to ten keylogger?

 

ty pytasz co to keylogger ?

[Bum662]

Nie działa mi. Pokazuje pobrane: 0% i się wyłącza.

[Phoenix_PL]

Wiem że nie działa, najwyraźniej przy którejś aktualizacji AutoITa coś zmienili. Znajdę wenę to poprawię.

[Bum662]

Wiem że nie działa, najwyraźniej przy którejś aktualizacji AutoITa coś zmienili. Znajdę wenę to poprawię.

 

Trzeba teraz rozszerzenie dopisać i działa.