Haallo. Ich arbeite grad am Update-Script, es läuft auch alles wie es sein soll, aaaaber die Progressbar will nicht.
Könntet ihr euch das bitte ma anschauen?
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
Opt("MustDeclareVars",1)
[/autoit] [autoit][/autoit] [autoit]Global $VersionsInfo = "xxx"
Global $Neueversion = "xxx"
Global $ProgrammVersion = "1.0", $Version
Global $Form1, $Update, $Abbrechen, $Progress1, $Info
Global $nMsg
Global $Ini, $i, $int
Global $Size, $SizeDH, $File, $aInfo, $iSize, $iPercent
$Form1 = GUICreate("xxx |--> Updater", 349, 123, 192, 124)
$Update = GUICtrlCreateButton("Update", 16, 80, 75, 25, $WS_GROUP)
$Abbrechen = GUICtrlCreateButton("Abbrechen", 253, 81, 75, 25, $WS_GROUP)
$Progress1 = GUICtrlCreateProgress(11, 15, 325, 44)
$Info = GUICtrlCreateButton("Info", 131, 81, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $Abbrechen
Exit
Case $Info
MsgBox(0,"Info","Dieser Updater gehört zum xxx Center!")
Case $Update
$Ini = InetGet ($VersionsInfo,@ScriptDir & "\Update\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!" & @CRLF & "Bitte informiere den Hersteller.");Überprüft ob der Download erfolgt ist
Else
$Update = MsgBox (4,"Update","Eine neue Version ist verfügbar." & @CRLF & "Soll diese jetzt herunter geladen weden?")
FileDelete(@ScriptDir & "\Update\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,"NewUpdater.exe",0,1) ;läd die neue version herunter
Do
$aInfo = InetGetInfo($File)
Sleep(250)
$iPercent = Round($aInfo[0] / $iSize * 100,2)
if $iPercent <> GUICtrlRead($Progress1) Then
if $iSize = 0 and $aInfo[1] <> 0 Then $iSize= $aInfo[1]
;GUICtrlSetData($lblDatei,$sUrl & " " & $aInfo[0] & "/" & $iSize)
GUICtrlSetData($Progress1,$iPercent)
EndIf
;EndIf
;WEnd
Until $aInfo[2]
InetClose($File) ; Handle schließen um die Resourcen freizugeben
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
If $Update = 7 Then
Exit
EndIf
EndIf
EndIf
EndSwitch
WEnd
MfG