_____Farge______
PHP Code:
Global $VersionsInfo = "http://www.patchergsgb.***********/Version.txt"
Global $Neueversion = "http://www.patchergsgb.***********/GSGB Explora.exe"
Global $ProgrammVersion = "1.0", $Version
Global $Form1, $Update, $Abbrechen, $Progress1, $Info
Global $nMsg
Global $Ini, $i, $int
Global $Size, $SizeDH, $File
$Form1 = GUICreate("Update suchen", 349, 123, 192, 124)
$Update = GUICtrlCreateButton("Update suchen", 16, 80, 75, 25, $WS_GROUP)
$Abbrechen = GUICtrlCreateButton("Abbrechen", 253, 81, 75, 25, $WS_GROUP)
$Progress1 = GUICtrlCreateProgress(11, 15, 325, 44)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $Abbrechen
GUIDelete("Update suchen")
ExitLoop
Case $Update
$Ini = InetGet ($VersionsInfo,@ScriptDir & "/Version.ini") ;Läd die Version.txt vom Webspace herunter und wandelt si in Version.ini um.
If $Ini = 0 Then
MsgBox(0,"ERROR","Es ist ein Fehler aufgetreten bitte informiren sie den Hersteller!1");Überprüft ob der Download erfolgt ist
Else
$Version = IniRead (@ScriptDir & "/Version.ini","Version","Version","");Ließt Version.ini aus
If $Version = $ProgrammVersion Then ;Überprüft ob es eine neue Version gibt
MsgBox (0,"Kein Update","Es steht kein Update zur Verfügung!")
FileDelete(@ScriptDir & "/Version.ini") ;lösch Version.ini
Else
$Update = MsgBox (4,"Update","Es gibt eine aktuellere Version! Soll diese jetzt herunter geladen weden?")
FileDelete(@ScriptDir & "/Version.ini")
If $Update = 6 Then
$Size = InetGetSize($Neueversion) ;Bestimmen der Datei größe
$i = 1
$SizeDH = Execute($Size/100) ;Dateigröße durch 100 teilen
$int = $SizeDH
$File = InetGet($Neueversion,"GSGB Explora.exe",0,1) ;läd die neue version herunter
While @InetGetActive ;solange der download nicht beendet ist...
If @InetGetBytesRead = $int Then ;wenn die bisher gedownlodete datei größer oder gelich $int ist, dann...
GUICtrlSetData ($Progress1,$i) ;verändert dei prozenzahl bei der Progressbar
$int = $int + $SizeDH
$i = $i +1
EndIf
WEnd
If $File = 0 Then
MsgBox(0,"ERROR","Es ist ein Fehler aufgetreten bitte informiren sie den Hersteller!2")
Exit
Else
MsgBox(0,"Download erfolgt","Das Update wurde erfolgreich heruntergeladen!")
Exit
EndIf
ElseIf $Update = 7 Then
Exit
EndIf
EndIf
EndIf
EndSwitch
WEnd
EndFunc
Gebe auch thx
Ps: ist updater
