Patchfunktion - do until - so richtig?

Kev

Heya !

habe hier meine Patchfunktion umgebaut.
Jetzt wollte ich nur wissen ob ich das so machen kann.
Das der patcht bis zum gleichen Stand der externen Version und der localen Version.

[autoit]

;________________________Func Patch Status_______________________________________________________________________________________________--
;###############################################################################################################################################
Func Patchstatus()
Do ;fang an zu patchen ....
InetGet("http://www.Keanu-AutoIT.de/RisingGods/wowversion.txt", @TempDir & "\wowversion.txt")
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
$versionextern = FileRead(@TempDir & "\wowversion.txt")
If $versionlocal = "2.3.3.7799" Then
Patch1()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "2.4.0.8089" Then
Patch2()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "2.4.1.8125" Then
Patch3()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "2.4.2.8278" Then
Patch4()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "2.4.3.8606" Then
Patch5()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.0.1.8874" Then
Patch6()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.0.2.9056" Then
Patch7()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.2.0.10192" Then
Patch8()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.2.0.10314" Then
Patch9()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.2.2.10482" Then
Patch10()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.2.2.10505" Then
Patch11()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.3.0.10958" Then
Patch12()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.3.0.11159" Then
Patch13()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.3.2.11403" Then
Patch14()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.3.3.11685" Then
Patch15()
EndIf
Until ; bis das hier eintrifft
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
$versionextern = FileRead(@TempDir & "\wowversion.txt")
$versionlocal = $versionextern
MsgBox(0, "", "Auf Rising Gods Stand gepatcht")
logfile("Patchstand Rising Gods: " & $versionlocal)
EndFunc ;==>Patchstatus

[/autoit]

Die Frage ist, checkt der wirklich nach jedem Patchvorgang durch ob die Versionen gleich sind?
Ich habe nach jedem Patchdownload wieder die Patchstatus() aufgerufen, damit er nach jedem Patch wieder in diese Funktion reingeht.
Bloß hört er dann auch auf wenn die Versionen gleich sind oder patcht er bis zum unendlichen weil er gar nicht soweit runter schaut, bis zum

[autoit]

until

[/autoit]

Gruß

Kev

Cartan12

Wenn dann so:

Spoiler anzeigen

[autoit]

Func Patchstatus()
Do ;fang an zu patchen ....
InetGet("http://www.Keanu-AutoIT.de/RisingGods/wowversion.txt", @TempDir & "\wowversion.txt")
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
$versionextern = FileRead(@TempDir & "\wowversion.txt")
If $versionlocal = "2.3.3.7799" Then
Patch1()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "2.4.0.8089" Then
Patch2()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "2.4.1.8125" Then
Patch3()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "2.4.2.8278" Then
Patch4()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "2.4.3.8606" Then
Patch5()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.0.1.8874" Then
Patch6()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.0.2.9056" Then
Patch7()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.2.0.10192" Then
Patch8()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.2.0.10314" Then
Patch9()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.2.2.10482" Then
Patch10()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.2.2.10505" Then
Patch11()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.3.0.10958" Then
Patch12()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.3.0.11159" Then
Patch13()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.3.2.11403" Then
Patch14()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.3.3.11685" Then
Patch15()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
$versionextern = FileRead(@TempDir & "\wowversion.txt")
Until $versionlocal = $versionextern
MsgBox(0, "", "Auf Rising Gods Stand gepatcht")
logfile("Patchstand Rising Gods: " & $versionlocal)
EndFunc ;==>Patchstatus

[/autoit]

Edit: hab was vergessen zu löschen...
Edit2: Nochmals verbessert

Kev

un du bist dir ganz sicher das des so gehtt? ich test das nämlich heut abend un das dauer n paar stunden

weil irgendwie bezweifel ich, das der bis zum until runtergeht, ich denk einfach der patcht und patcht und patcht und sieht das da unten gar net

Cartan12

So geht sogar noch besser:

Spoiler anzeigen

[autoit]

Func Patchstatus()
InetGet("http://www.Keanu-AutoIT.de/RisingGods/wowversion.txt", @TempDir & "\wowversion.txt")
Do ;fang an zu patchen ....
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
Switch $versionlocal
Case "2.3.3.7799"
Patch1()
Case "2.4.0.8089"
Patch2()
Case "2.4.1.8125"
Patch3()
Case "2.4.2.8278"
Patch4()
Case "2.4.3.8606"
Patch5()
Case "3.0.1.8874"
Patch6()
Case "3.0.2.9056"
Patch7()
Case "3.2.0.10192"
Patch8()
Case "3.2.0.10314"
Patch9()
Case "3.2.2.10482"
Patch10()
Case "3.2.2.10505"
Patch11()
Case "3.3.0.10958"
Patch12()
Case "3.3.0.11159"
Patch13()
Case "3.3.2.11403"
Patch14()
Case "3.3.3.11685"
Patch15()
EndSwitch
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
$versionextern = FileRead(@TempDir & "\wowversion.txt")
Until $versionlocal = $versionextern
MsgBox(0, "", "Auf Rising Gods Stand gepatcht")
logfile("Patchstand Rising Gods: " & $versionlocal)
EndFunc ;==>Patchstatus

[/autoit]

Êdit: Wieder verbessert^^

Techmix

Oder so:

[autoit]

Func Patchstatus()
Do ;fang an zu patchen ....
InetGet("http://www.Keanu-AutoIT.de/RisingGods/wowversion.txt", @TempDir & "\wowversion.txt")
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
$versionextern = FileRead(@TempDir & "\wowversion.txt")
If $versionlocal = "2.3.3.7799" Then
Patch1()
ElseIf $versionlocal = "2.4.0.8089" Then
Patch2()
ElseIf $versionlocal = "2.4.1.8125" Then
Patch3()
ElseIf $versionlocal = "2.4.2.8278" Then
Patch4()
ElseIf $versionlocal = "2.4.3.8606" Then
Patch5()
ElseIf $versionlocal = "3.0.1.8874" Then
Patch6()
ElseIf $versionlocal = "3.0.2.9056" Then
Patch7()
ElseIf $versionlocal = "3.2.0.10192" Then
Patch8()
ElseIf $versionlocal = "3.2.0.10314" Then
Patch9()
ElseIf $versionlocal = "3.2.2.10482" Then
Patch10()
ElseIf $versionlocal = "3.2.2.10505" Then
Patch11()
ElseIf $versionlocal = "3.3.0.10958" Then
Patch12()
ElseIf $versionlocal = "3.3.0.11159" Then
Patch13()
ElseIf $versionlocal = "3.3.2.11403" Then
Patch14()
ElseIf $versionlocal = "3.3.3.11685" Then
Patch15()
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
$versionextern = FileRead(@TempDir & "\wowversion.txt")
Until $versionlocal = $versionextern
MsgBox(0, "", "Auf Rising Gods Stand gepatcht")
logfile("Patchstand Rising Gods: " & $versionlocal)
EndFunc ;==>Patchstatus

[/autoit]

Cartan12

Lol, mit Switch... Case ist um einiges eleganter

Techmix

Da war ich glatt zu langsam, mach es so wie Cartan12!

Kev

un wenn ich die version neu auslesen will weil die sich ändert nach jedem patch dann so ? :

[autoit]

Func Patchstatus()
InetGet("http://www.Keanu-AutoIT.de/RisingGods/wowversion.txt", @TempDir & "\wowversion.txt")
Do ;fang an zu patchen ....
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
Switch $versionlocal
Case "2.3.3.7799"
Patch1()
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
Case "2.4.0.8089"
Patch2()
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
Case "2.4.1.8125"
Patch3()
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
Case "2.4.2.8278"
Patch4()
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
Case "2.4.3.8606"
Patch5()
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
Case "3.0.1.8874"
Patch6()
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
Case "3.0.2.9056"
Patch7()
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
Case "3.2.0.10192"
Patch8()
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
Case "3.2.0.10314"
Patch9()
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
Case "3.2.2.10482"
Patch10()
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
Case "3.2.2.10505"
Patch11()
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
Case "3.3.0.10958"
Patch12()
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
Case "3.3.0.11159"
Patch13()
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
Case "3.3.2.11403"
Patch14()
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
Case "3.3.3.11685"
Patch15()
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
EndSwitch
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
$versionextern = FileRead(@TempDir & "\wowversion.txt")
Until $versionlocal = $versionextern
MsgBox(0, "", "Auf Rising Gods Stand gepatcht")
logfile("Patchstand Rising Gods: " & $versionlocal)
EndFunc ;==>Patchstatus

[/autoit]

Cartan12

Das ist mehr als unnötig...
Wieso fragst du jedesmal die Version ab? Das macht der doch schon am anfang der Schleife...
Der wiederholt die ja solange, bis alles richtig ist, von daher ist meine Version schon richtig

Kev

arg stimmt ja, ich geh ja jedes mal neu rein, nach dem patchen.
Gut danke an euch
ich tests heute abend, hoff ma mal das es geht

Kev

geht nicht, er patcht weiter -.- wieso

Spoiler anzeigen

[autoit]

;________________________Func Patch Status_______________________________________________________________________________________________--
;###############################################################################################################################################
Func Patchstatus()
InetGet("http://www.Keanu-AutoIT.de/RisingGods/wowversion.txt", @TempDir & "\wowversion.txt")
Do ;fang an zu patchen ....
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
Switch $versionlocal
Case "2.3.3.7799"
Patch1()
Case "2.4.0.8089"
Patch2()
Case "2.4.1.8125"
Patch3()
Case "2.4.2.8278"
Patch4()
Case "2.4.3.8606"
Patch5()
Case "3.0.1.8874"
Patch6()
Case "3.0.2.9056"
Patch7()
Case "3.2.0.10192"
Patch8()
Case "3.2.0.10314"
Patch9()
Case "3.2.2.10482"
Patch10()
Case "3.2.2.10505"
Patch11()
Case "3.3.0.10958"
Patch12()
Case "3.3.0.11159"
Patch13()
Case "3.3.2.11403"
Patch14()
Case "3.3.3.11685"
Patch15()
EndSwitch
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
$versionextern = FileRead(@TempDir & "\wowversion.txt")
Until $versionlocal = $versionextern ;bis version gleich
MsgBox(0, "", "Auf Rising Gods Stand gepatcht")
logfile("Patchstand Rising Gods: " & $versionlocal)
EndFunc ;==>Patchstatus
;________________________End of Function - Patch1 - 2.3.3.7799________________________________________________________________________________________________--
;###############################################################################################################################################
;________________________Func Patch1 - 2.3.3.7799________________________________________________________________________________________________--
Func Patch1() ;2.3.3.7799
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
logfile("Starte Patchvorgang : Schleife 2.3.3.7799 " & "Locale Version: " & $versionlocal)
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, $language[4], $language[51])
logfile("RG WoW Installer: Can't connect to http://www.wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 2.4 - Deutsch (2.3.3.7799 -> 2.4.0.8089) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10037&mirror=1", $wowpath & "Patch 2.4 - Deutsch.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10037&mirror=1")
$Percent = $Size / 100
ProgressOn("Download of Patch 2.4 - Deutsch (2.3.3.7799 -> 2.4.0.8089)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, $language[4], $language[22])
ProgressOff()
MsgBox(-1, $language[4], $language[21])
logfile("Patch Download: DL NOT succesfull - Patch 2.4 - Deutsch 2.3.3.7799 -> 2.4.0.8089")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath, 3)
logfile("Patch 2.4 - Deutsch (2.3.3.7799 -> 2.4.0.8089) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
#RequireAdmin
_zip_unzipall($wowpath & "Patch 2.4 - Deutsch.zip", $wowpath & "Patch 2.4 - Deutsch", 0)
$exe = _FileListToArray($wowpath & "Patch 2.4 - Deutsch\", "*.exe")
Run($wowpath & "Patch 2.4 - Deutsch\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
Patchstatus()
EndIf
$Error = 0
EndIf
EndFunc ;==>Patch1
;________________________End of Function - Patch1 - 2.3.3.7799________________________________________________________________________________________________--
;###############################################################################################################################################
;________________________Func Patch2- 2.4.0.8089____________________________________________________________________________________________________________
Func Patch2()
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
logfile("Starte Patchvorgang : Schleife 2.4.0.8089 " & "Locale Version: " & $versionlocal)
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 2.4.1 - Deutsch (2.4.0.8089 -> 2.4.1.8125) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10035&mirror=1", $wowpath & "Patch 2.4.1 - Deutsch.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10035&mirror=1")
$Percent = $Size / 100
ProgressOn("Download of Patch 2.4.1 - Deutsch (2.4.0.8089 -> 2.4.1.8125)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull- Patch 2.4.1 - Deutsch 2.4.0.8089 -> 2.4.1.8125")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 2.4.1 - Deutsch (2.4.0.8089 -> 2.4.1.8125) was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath, 3)
logfile("Patch 2.4.1 - Deutsch (2.4.0.8089 -> 2.4.1.8125) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
#RequireAdmin
_zip_unzipall($wowpath & "Patch 2.4.1 - Deutsch.zip", $wowpath & "Patch 2.4.1 - Deutsch", 0)
$exe = _FileListToArray($wowpath & "Patch 2.4.1 - Deutsch\", "*.exe")
Run($wowpath & "Patch 2.4.1 - Deutsch\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
Patchstatus()
EndIf
$Error = 0
EndIf
EndFunc ;==>Patch2
;________________________End of Function - Patch2 - 2.4.0.8089__________________________________________________________________________________
;###############################################################################################################################################
;________________________Func - Patch3 - 2.4.1.8125________________________________________________________________________________________________
Func Patch3()
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
logfile("Starte Patchvorgang : Schleife 2.4.1.8125 " & "Locale Version: " & $versionlocal)
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 2.4.2 - Deutsch (2.4.1.8125 -> 2.4.2.8278) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10033&mirror=1", $wowpath & "Patch 2.4.2 - Deutsch.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10033&mirror=1")
$Percent = $Size / 100
ProgressOn("Download of Patch 2.4.2 - Deutsch (2.4.1.8125 -> 2.4.2.8278)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull- Patch 2.4.2 - Deutsch 2.4.1.8125 -> 2.4.2.8278")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 2.4.2 - Deutsch was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath, 3)
logfile("Patch 2.4.2 - Deutsch (2.4.1.8125 -> 2.4.2.8278) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
_zip_unzipall($wowpath & "Patch 2.4.2 - Deutsch.zip", $wowpath & "Patch 2.4.2 - Deutsch", 0)
$exe = _FileListToArray($wowpath & "Patch 2.4.2 - Deutsch\", "*.exe")
Run($wowpath & "Patch 2.4.2 - Deutsch\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
Patchstatus()
EndIf
$Error = 0
EndIf
EndFunc ;==>Patch3
;________________________End of Function - PatchMiD- 2.4.1.8125_________________________________________________________________________________
;###############################################################################################################################################
;________________________Func - Patch4 - 2.4.2.8278________________________________________________________________________________________________
Func Patch4()
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
logfile("Starte Patchvorgang : Schleife 2.4.2.8278 " & "Locale Version: " & $versionlocal)
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 2.4.3 - Deutsch (2.4.2.8278 -> 2.4.3.8606) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10031&mirror=1", $wowpath & "Patch 2.4.3 - Deutsch.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10031&mirror=1")
$Percent = $Size / 100
ProgressOn("Download of Patch 2.4.3 - Deutsch (2.4.2.8278 -> 2.4.3.8606)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull- Patch 2.4.3 - Deutsch 2.4.2.8278 -> 2.4.3.8606")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 2.4.3 - Deutsch (2.4.2.8278 -> 2.4.3.8606) was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath, 3)
logfile("Patch 2.4.3 - Deutsch (2.4.2.8278 -> 2.4.3.8606) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
#RequireAdmin
_zip_unzipall($wowpath & "Patch 2.4.3 - Deutsch.zip", $wowpath & "Patch 2.4.3 - Deutsch", 0)
$exe = _FileListToArray($wowpath & "Patch 2.4.3 - Deutsch\", "*.exe")
Run($wowpath & "Patch 2.4.3 - Deutsch\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
Patchstatus()
EndIf
$Error = 0
EndIf
EndFunc ;==>Patch4
;________________________End of Function - Patch4 - 2.4.2.8278_________________________________________________________________________________
;###############################################################################################################################################
;________________________Func - Patch5 - 2.4.3.8606________________________________________________________________________________________________
Func Patch5()
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
logfile("Starte Patchvorgang : Schleife 2.4.3.8606 " & "Locale Version: " & $versionlocal)
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 3.0.1 - EU / The Burning Crusade Version (2.4.3 -> 3.0.1) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10029&mirror=1", $wowpath & "Patch 3.0.1 - EU.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10029&mirror=1")
$Percent = $Size / 100
ProgressOn("Download of Patch 3.0.1 - EU / The Burning Crusade Version (2.4.3 -> 3.0.1)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull - Patch 3.0.1 - EU / The Burning Crusade Version 2.4.3 -> 3.0.1")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 3.0.1 - EU / The Burning Crusade Version (2.4.3 -> 3.0.1) was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath, 3)
logfile("Patch 3.0.1 - EU / The Burning Crusade Version (2.4.3 -> 3.0.1) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
#RequireAdmin
_zip_unzipall($wowpath & "Patch 3.0.1 - EU.zip", $wowpath & "Patch 3.0.1 - EU", 0)
$exe = _FileListToArray($wowpath & "Patch 3.0.1 - EU\Updates\WoW-2.4.3-to-3.0.1-TBC-EU-Update\", "*.exe")
Run($wowpath & "Patch 3.0.1 - EU\Updates\WoW-2.4.3-to-3.0.1-TBC-EU-Update\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
Patchstatus()
EndIf
$Error = 0
EndIf
EndFunc ;==>Patch5
;________________________End of Function - Patch5 - 2.4.3.8606_________________________________________________________________________________
;###############################################################################################################################################
;________________________Func - Patch6 - 3.0.1.8874________________________________________________________________________________________________
Func Patch6()
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
logfile("Starte Patchvorgang : Schleife 3.0.1.8874 " & "Locale Version: " & $versionlocal)
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 3.0.2 - EU (3.0.1 -> 3.0.2) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10028&mirror=1", $wowpath & "Patch 3.0.2 - EU.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10028&mirror=1")
$Percent = $Size / 100
ProgressOn("Download of Patch 3.0.2 - EU (3.0.1 -> 3.0.2)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull - Patch 3.0.2 - EU (3.0.1 -> 3.0.2)")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 3.0.2 - EU (3.0.1 -> 3.0.2) was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath, 3)
logfile("Patch 3.0.2 - EU (3.0.1 -> 3.0.2) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
#RequireAdmin
_zip_unzipall($wowpath & "Patch 3.0.2 - EU.zip", $wowpath & "Patch 3.0.2 - EU", 0)
$exe = _FileListToArray($wowpath & "Patch 3.0.2 - EU\Updates\WoW-3.0.1-to-3.0.2-Update\", "*.exe")
Run($wowpath & "Patch 3.0.2 - EU\Updates\WoW-3.0.1-to-3.0.2-Update\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
Patchstatus()
EndIf
$Error = 0
EndIf
EndFunc ;==>Patch6
;________________________End of Function - Patch´6 - 3.0.1.8874_________________________________________________________________________________
;###############################################################################################################################################
;________________________Func - Patch7 - 3.0.2.9056________________________________________________________________________________________________
Func Patch7()
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
logfile("Starte Patchvorgang : Schleife 3.0.2.9056 " & "Locale Version: " & $versionlocal)
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 3.0.2 - EU (3.0.1 -> 3.0.2) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10006&mirror=2", $wowpath & "Patch 3.2 - Full.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10006&mirror=2")
$Percent = $Size / 100
ProgressOn("Download of Patch 3.2 - Full", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull - Patch 3.2 - Full")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 3.2 - Full was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath, 3)
logfile("Patch 3.2 - Full : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
#RequireAdmin
_zip_unzipall($wowpath & "Patch 3.2 - Full.zip", $wowpath & "Patch 3.2 - Full", 0)
$exe = _FileListToArray($wowpath & "Patch 3.2 - Full\", "*.exe")
Run($wowpath & "Patch 3.2 - Full\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
Patchstatus()
EndIf
$Error = 0
EndIf
EndFunc ;==>Patch7
;________________________End of Function - Patch7 - 3.0.2.9056_________________________________________________________________________________
;###############################################################################################################################################
;________________________Func - Patch8 - 3.2.0.10192________________________________________________________________________________________________
Func Patch8()
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
logfile("Starte Patchvorgang : Schleife 3.2.0.10192 " & "Locale Version: " & $versionlocal)
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 3.2.0a - Deutsch (3.2.0.10192-> 3.2.0.10314) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10026&mirror=1", $wowpath & "Patch 3.2.0a - Deutsch.zip", 1, 1)
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10026&mirror=1")
$Percent = $Size / 100
ProgressOn("Download of Patch 3.2.0a - Deutsch (3.2.0.10192-> 3.2.0.10314)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull- Patch 3.2.0a - Deutsch (3.2.0.10192-> 3.2.0.10314")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 3.2.0a - Deutsch (3.2.0.10192-> 3.2.0.10314) was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath, 3)
logfile("Patch 3.2.0a - Deutsch (3.2.0.10192-> 3.2.0.10314) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
#RequireAdmin
_zip_unzipall($wowpath & "Patch 3.2.0a - Deutsch.zip", $wowpath & "Patch 3.2.0a - Deutsch", 0)
$exe = _FileListToArray($wowpath & "Patch 3.2.0a - Deutsch\", "*.exe")
Run($wowpath & "Patch 3.2.0a - Deutsch\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
Patchstatus()
EndIf
$Error = 0
EndIf
EndFunc ;==>Patch8
;________________________End of Function - Patch8 - 3.2.0.10192_________________________________________________________________________________
;###############################################################################################################################################
;________________________Func - Patch9 - 3.2.0.10314_______________________________________________________________________________________________
Func Patch9()
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
logfile("Starte Patchvorgang : Schleife 3.2.0.10314 " & "Locale Version: " & $versionlocal)
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10024&mirror=1", $wowpath & "Patch 3.2.2 - Deutsch.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10024&mirror=1")
$Percent = $Size / 100
ProgressOn("Download of Patch 3.2.2 - Deutsch (3.2.0.10314 -> 3.2.2.10482)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull - Patch 3.2.2 - Deutsch (3.2.0.10314 -> 3.2.2.10482)")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 3.2.2 - Deutsch (3.2.0.10314 -> 3.2.2.10482) was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath, 3)
logfile("Patch 3.2.2 - Deutsch (3.2.0.10314 -> 3.2.2.10482) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
#RequireAdmin
_zip_unzipall($wowpath & "Patch 3.2.2 - Deutsch.zip", $wowpath & "Patch 3.2.2 - Deutsch", 4)
$exe = _FileListToArray($wowpath & "Patch 3.2.2 - Deutsch\", "*.exe")
Run($wowpath & "Patch 3.2.2 - Deutsch\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
Patchstatus()
EndIf
$Error = 0
EndIf
EndFunc ;==>Patch9
;________________________End of Function - Patch9 - 3.2.0.10314_________________________________________________________________________________
;###############################################################################################################################################
;________________________Func - Patch10 - 3.2.2.10482_______________________________________________________________________________________________
Func Patch10()
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
logfile("Starte Patchvorgang : Schleife 3.2.2.10482 " & "Locale Version: " & $versionlocal)
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10022&mirror=1", $wowpath & "Patch 3.2.2a - Deutsch.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10022&mirror=1")
$Percent = $Size / 100
ProgressOn("Download of Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull - Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505) ")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505) was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath, 3)
logfile("Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
#RequireAdmin
_zip_unzipall($wowpath & "Patch 3.2.2a - Deutsch.zip", $wowpath & "Patch 3.2.2a - Deutsch", 0)
$exe = _FileListToArray($wowpath & "Patch 3.2.2a - Deutsch\", "*.exe")
Run($wowpath & "Patch 3.2.2a - Deutsch\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
Patchstatus()
EndIf
$Error = 0
EndIf
EndFunc ;==>Patch10
;________________________End of Function - Patch10- 3.2.2.10505_________________________________________________________________________________
;###############################################################################################################################################
;________________________Func - Patch11 - 3.2.2.10482_______________________________________________________________________________________________
Func Patch11()
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
logfile("Starte Patchvorgang : Schleife 3.2.2.10505 " & "Locale Version: " & $versionlocal)
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 3.3 - Deutsch (3.2.2.10505 -> 3.3) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10020&mirror=2", $wowpath & "Patch 3.3 - Deutsch.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10020&mirror=2")
$Percent = $Size / 100
ProgressOn("Download of Patch 3.3 - Deutsch (3.2.2.10505 -> 3.3)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull- Patch 3.3 - Deutsch (3.2.2.10505 -> 3.3)")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 3.3 - Deutsch (3.2.2.10505 -> 3.3) was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath, 3)
logfile("Patch 3.3 - Deutsch (3.2.2.10505 -> 3.3) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
_zip_unzipall($wowpath & "Patch 3.3 - Deutsch.zip", $wowpath & "Patch 3.3 - Deutsch", 0)
$exe = _FileListToArray($wowpath & "Patch 3.3 - Deutsch\wow-3.2.2-to-3.3.0-deDE-Win-patch", "*.exe")
Run($wowpath & "Patch 3.3 - Deutsch\wow-3.2.2-to-3.3.0-deDE-Win-patch\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
Patchstatus()
EndIf
$Error = 0
EndIf
EndFunc ;==>Patch11

[/autoit] [autoit][/autoit] [autoit]

;________________________End of Function - Patch11- 3.3.0.10958_________________________________________________________________________________
;###############################################################################################################################################
;________________________Func - Patch12 - 3.3.0.10958_______________________________________________________________________________________________

[/autoit] [autoit][/autoit] [autoit]

Func Patch12()
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
logfile("Starte Patchvorgang : Schleife 3.3.0.10958 - " & "Locale Version: " & $versionlocal)
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "WoW Patch 3.3a - Deutsch (3.3.0.10958-> 3.3.0.11159) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10018&mirror=2", $wowpath & "Patch 3.3a - Deutsch.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10018&mirror=2")
$Percent = $Size / 100
ProgressOn("Download of WoW Patch 3.3a - Deutsch (3.3.0.10958-> 3.3.0.11159)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull- WoW Patch 3.3a - Deutsch (3.3.0.10958-> 3.3.0.11159)")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "WoW Patch 3.3a - Deutsch (3.3.0.10958-> 3.3.0.11159) was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath, 3)
logfile("WoW Patch 3.3a - Deutsch (3.3.0.10958-> 3.3.0.11159) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
_zip_unzipall($wowpath & "Patch 3.3a - Deutsch.zip", $wowpath & "Patch 3.3a - Deutsch\", 0)
$exe = _FileListToArray($wowpath & "Patch 3.3a - Deutsch\", "*.exe")
Run($wowpath & "Patch 3.3a - Deutsch\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
Patchstatus()
EndIf
$Error = 0
EndIf
EndFunc ;==>Patch12
;________________________End of Function - Patch12- 3.3.0.10958_________________________________________________________________________________
;###############################################################################################################################################
;________________________Func - Patch13 - 3.3.2.11403_______________________________________________________________________________________________
Func Patch13()
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
logfile("Starte Patchvorgang : Schleife 3.3.0.11159 - " & "Locale Version: " & $versionlocal)
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 3.3.0.11159 -> 3.3.2.11403 wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10016&mirror=2", $wowpath & "WoW Patch 3.3.2 - Deutsch.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10016&mirror=2")
$Percent = $Size / 100
ProgressOn("Download of Patch 3.3.0.11159 -> 3.3.2.11403", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull - Patch 3.3.0.11159 -> 3.3.2.11403")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 3.3.0.11159 -> 3.3.2.11403 was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath, 3)
logfile("Patch 3.3.0.11159 -> 3.3.2.11403 : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
_zip_unzipall($wowpath & "WoW Patch 3.3.2 - Deutsch.zip", $wowpath & "WoW Patch 3.3.2 - Deutsch", 0)
$exe = _FileListToArray($wowpath & "WoW Patch 3.3.2 - Deutsch\", "*.exe")
ShellExecute($wowpath & "WoW Patch 3.3.2 - Deutsch\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
Patchstatus()
EndIf
$Error = 0
EndIf
EndFunc ;==>Patch13
;________________________End of Function - Patch13- 3.3.0.10958_________________________________________________________________________________
;###############################################################################################################################################
;________________________Func - Patch14 - 3.3.2.11403_______________________________________________________________________________________________
Func Patch14()
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
logfile("Starte Patchvorgang : Schleife 3.3.2.11403 - " & "Locale Version: " & $versionlocal)
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "WoW Patch 3.3.3 wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10008&mirror=2", $wowpath & "WoW Patch 3.3.3 - Deutsch.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10008&mirror=2")
$Percent = $Size / 100
ProgressOn("Download of WoW Patch 3.3.3", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull: WoW Patch 3.3.3")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "WoW Patch 3.3.3 was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath, 3)
logfile("WoW Patch 3.3.3 : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
_zip_unzipall($wowpath & "WoW Patch 3.3.3 - Deutsch.zip", $wowpath & "WoW Patch 3.3.3 - Deutsch", 0)
$exe = _FileListToArray($wowpath & "WoW Patch 3.3.3 - Deutsch\wow-3.3.2-to-3.3.3-deDE-Win-patch\", "*.exe")
Run($wowpath & "WoW Patch 3.3.3 - Deutsch\wow-3.3.2-to-3.3.3-deDE-Win-patch\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
Patchstatus()
EndIf
$Error = 0
EndIf
EndFunc ;==>Patch14
;________________________End of Function - Patch14- 3.3.2.11403________________________________________________________________________________
;###############################################################################################################################################
;________________________Func - Patch15 - 3.3.3.11685_______________________________________________________________________________________________
Func Patch15()
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
logfile("Starte Patchvorgang : Schleife 3.3.3.11685 - " & "Locale Version: " & $versionlocal)
Ping("www.wow.4fansites.de")
If @error Then
MsgBox(-1, "ERROR", "Can't connect to wow.4fansites.de Server")
TrayTip("RG WoW Installer", "Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
logfile("RG-Starter: Can't connect to wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
Else
$Error = 0
TrayTip("RG WoW Installer", "Patch 3.3.3a - Deutsch (3.3.3.11685-to-3.3.3.11723) wird runtergeladen...", 5, 1)
$inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10064&mirror=2", $wowpath & "WoW Patch 3.3.3a - Deutsch.zip", 1, 1)
$Size = InetGetSize("http://wow.4fansites.de/download.php?download=10064&mirror=2")
$Percent = $Size / 100
ProgressOn("Download of Patch 3.3.3a - Deutsch (3.3.3.11685-to-3.3.3.11723)", "Size = " & $Size & " Bytes", "0%")
For $i = 0 To 100 Step 1
While 1
If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
ProgressSet($i, $i & "%")
Sleep(100)
If $i == 100 Then
ProgressOff()
EndIf
ExitLoop
ElseIf InetGetInfo() == "" Then
ProgressSet(100, "ERROR", "An Error Occured!!!")
ProgressOff()
MsgBox(-1, "ERROR", "An Error Occured!!!")
logfile("Patch Download: DL NOT succesfull - Patch 3.3.3a - Deutsch (3.3.3.11685-to-3.3.3.11723)")
$Error = 1
EndIf
WEnd
Next
If $Error == 0 Then
TrayTip("RG WoW Installer", "Patch 3.3.3a - Deutsch (3.3.3.11685-to-3.3.3.11723) was downloaded to your WoW Dir.", 5, 1)
MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath, 3)
logfile("Patch 3.3.3a - Deutsch (3.3.3.11685-to-3.3.3.11723) : DL succesfull")
TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
_zip_unzipall($wowpath & "WoW Patch 3.3.3a - Deutsch.zip", $wowpath & "WoW Patch 3.3.3a - Deutsch", 0)
$exe = _FileListToArray($wowpath & "WoW Patch 3.3.3a - Deutsch\", "*.exe")
Run($wowpath & "WoW Patch 3.3.3a - Deutsch\" & $exe[1])
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
ControlClick("100% - Blizzard Updater", "&OK", "Button1")
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
$versionlocal = FileGetVersion($wowpath & "\WoW.exe")
Patchstatus()
EndIf
$Error = 0
EndIf
EndFunc ;==>Patch15

[/autoit]

okay anders er lädt den nächsten patch führt ihn dann aber nicht aus sondern startet die wow.exe nicht den patch waruma uch immer. und er tut nicht das was bei until steht, sprich die msgbox, ich werd kirre

Techmix

einfach, deswegen:
Run($wowpath & "Patch 2.4 - Deutsch\" & $exe[1])
das Backslash vor Patch fehlt immer noch

Kev

hab ich auch gedacht es geht so net glaub mir xD
dann meckerter, file nicht gefunden, ohne backslash gehts top er patcht ja

//edit habs umgebaut so das es geht komplett bis auf eine sache ich krieg keine fertigmeldung
look anderer thread

PokerFace

Jetzt kann es nur noch an der Patchx() (x für ne Zahl von 1 - 15) scheitern.
Wie hast du die denn gestaltet?
Ich glaube das sogar Registryeinträge gepatcht werden..
Kann ich dir jetzt wohl nicht 100% sagen.

Außer das ist ein WoW-Privatserver, denn da sieht die Sache ja ganz anders aus.