_____Farge______

[nilsnilsnils]

Hallo was ist an diesem Code falsch:

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 


Bitte um korektur
Gebe auch thx
Ps: ist updater

[Shkal]

Also ich muss sagen, ich bin ja kein aktiver elitepvper, deswegen klärt mich auf:

Ist das hier üblich, dass Threads a la "Mach mir das mal" erstellt werden? In jedem anderen Forum hätte es schon Kopfnüsse geregnet.

@TE: InetGet wurde überarbeitet, @InetGetActive & co gibt es nicht mehr. Schau dir die AutoIt Hilfe zu InetGet & InetInfo an.

[| Moep |]

Is hier ähnlich, nur findet sich immer wieder jemand thx geiles der es dann trotzdem macht.
Wenn der TS schon bei Treadtitel nichtmal so gewissenhaft ist um "Frage" richtig zu schreiben, dann will ich mir nicht vorstellen wie chaotisch er seine Scripts entwickelt...

[nilsnilsnils]

sry für schreibfehler musste weg deswegen

[PenGuin :O]

Welche AutoIt Version hast du?
Afaik gibt es "@InetGetBytesRead" schon lang nicht mehr oO

[nilsnilsnils]

habe durch Inetgetinfo ersetzt aber funk trozdem net