do while until switch hä?

Kev

Hey zusammen,

ich habn Problem hier bei dem Script
Es geht um das Game World of Warcraft. Das Script soll automatisch patchen, was es auch tut.

Es überprüft die Locale version mit der von dem Server und patched bis zu dem gleichen Stand.
Bloß irgendwie er lädt den patch, entpackt ihn, und startett den patch, installiert und drückt okay. Zack hier sollte er wieder überprüfen was jetzt der stand der localen version ist, wieder vergleichen und weiter downloaden installieren etc. bis die versionen gleich sind.

er macht aber nix ich download/entpacke/installiere/ und er macht nix das wars..er prüft net neu und zieht den nächsten patch, nichts dergleichen. kann mir jemand helfen.

vorsicht komplex:

Spoiler anzeigen

[autoit]

;___Func - patching()_____________________________________________________________
;###################################################################################
Func patching()
Inetget("http://www.Keanu-AutoIT.de/RisingGods/wowversion.txt",@tempdir & "\wowversion.txt")

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

$versionlocal = Filegetversion($wowpath & "\Wow.exe")
$versionextern = Fileread(@tempdir & "\wowversion.txt")

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

while 1
if $versionlocal < $versionextern Then
do
Msgbox(0,"Achtung","Nach dem Download und dem entpacken der Dateien kann es zu Zeitverzögerungen kommen," & @crlf & "bis sich der eigentliche Patchvorgang abspielt. Bitte keine Eingriffe durchführen!")
if $versionlocal = "2.3.3.7799" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
if $versionlocal = "2.4.0.8089" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
if $versionlocal = "2.4.1.8125" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
if $versionlocal = "2.4.2.8278" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
if $versionlocal = "2.4.3.8606" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
if $versionlocal = "3.0.1.8874" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
if $versionlocal = "3.0.2.9056" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
if $versionlocal = "3.2.0.10192" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
if $versionlocal = "3.2.0.10314" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
if $versionlocal = "3.2.2.10482" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
if $versionlocal = "3.2.2.10505" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
if $versionlocal = "3.3.0.10958" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
if $versionlocal = "3.3.0.11159" Then
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)
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")
run($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")
EndIf
$Error=0
EndIf
Endif
if $versionlocal = "3.3.2.11403" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
if $versionlocal = "3.3.3.11685" Then
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)
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")
Endif
$Error=0
EndIf
Endif
Return
until $versionlocal = $versionextern
msgbox(0,"RG WoW Installer","WoW erfolgreich auf den neuesten Stand gebracht")
$verw = Filegetversion($wowpath & "\Wow.exe")
logfile("WoW erfolgreich gepatched: Patchstand:" & $verw)
EndIf
Wend
Endfunc
;___EoF - Patching()_______________________________________________________
;###################################################################################

[/autoit]

clezZ

Boah, räum das mal auf, damit wir uns in diesen 700 Zeilen Code zurecht finden können!

Kev

Spoiler anzeigen

[autoit]

;___Func - patching()_____________________________________________________________
;###################################################################################
Func patching()
Inetget("http://www.Keanu-AutoIT.de/RisingGods/wowversion.txt",@tempdir & "\wowversion.txt") ;download der Externen WoW Version

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

$versionlocal = Filegetversion($wowpath & "\Wow.exe") ; locale WoW Version
$versionextern = Fileread(@tempdir & "\wowversion.txt") ; Server WoW Version

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

while 1
if $versionlocal < $versionextern Then ; Vergleich
do ; tue ***
Msgbox(0,"Achtung","Nach dem Download und dem entpacken der Dateien kann es zu Zeitverzögerungen kommen," & @crlf & "bis sich der eigentliche Patchvorgang abspielt. Bitte keine Eingriffe durchführen!")
; ERSTER PATCH ***************************************************************************************************************
if $versionlocal = "2.3.3.7799" Then ; WoWVersion local = 2.3.3.7799
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) ; Download des Patches
$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 ; Progress
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)") ;logeintrag
$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)
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) ; Dateientpacken
$exe = _FileListToArray($wowpath & "Patch 2.4 - Deutsch\" , "*.exe") ; exe aus ordner auslesen
run($wowpath & "Patch 2.4 - Deutsch\" & $exe[1]) ; ausführen
Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.");patch beenden wenn fertig
ControlClick("100% - Blizzard Updater","&OK","Button1") ; **
sleep(2000)
if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
EndIf
$Error=0
EndIf
Endif
;***********************************************************************************************************************
; ZWEITER PATCH ********************************************************************************************************
if $versionlocal = "2.4.0.8089" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
if $versionlocal = "2.4.1.8125" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
;***********************************************************************************************************************
;*DRITTER PATCH ***********************************************************************************************
if $versionlocal = "2.4.2.8278" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
;***********************************************************************************************************************
;*4ter PATCH ***********************************************************************************************
if $versionlocal = "2.4.3.8606" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
;***********************************************************************************************************************
;*5ter PATCH ***********************************************************************************************
if $versionlocal = "3.0.1.8874" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
;***********************************************************************************************************************
;*6ter PATCH ***********************************************************************************************
if $versionlocal = "3.0.2.9056" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
;***********************************************************************************************************************
;*7ter PATCH ***********************************************************************************************
if $versionlocal = "3.2.0.10192" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
;***********************************************************************************************************************
;*8ter PATCH ***********************************************************************************************
if $versionlocal = "3.2.0.10314" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
;***********************************************************************************************************************
;*8ter PATCH ***********************************************************************************************
if $versionlocal = "3.2.2.10482" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
;***********************************************************************************************************************
;*9ter PATCH ***********************************************************************************************
if $versionlocal = "3.2.2.10505" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
;***********************************************************************************************************************
;*10ter PATCH ***********************************************************************************************
if $versionlocal = "3.3.0.10958" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
;***********************************************************************************************************************
;*11ter PATCH ***********************************************************************************************
if $versionlocal = "3.3.0.11159" Then
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)
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")
run($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")
EndIf
$Error=0
EndIf
Endif
;***********************************************************************************************************************
;*11ter PATCH ***********************************************************************************************
if $versionlocal = "3.3.2.11403" Then
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)
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")
EndIf
$Error=0
EndIf
Endif
;***********************************************************************************************************************
;*12ter PATCH ***********************************************************************************************
if $versionlocal = "3.3.3.11685" Then
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)
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")
Endif
$Error=0
EndIf
Endif
Return ; wieder zum anfang hoch bis wowversionlocal der vom Server entspricht
until $versionlocal = $versionextern
msgbox(0,"RG WoW Installer","WoW erfolgreich auf den neuesten Stand gebracht")
$verw = Filegetversion($wowpath & "\Wow.exe")
logfile("WoW erfolgreich gepatched: Patchstand:" & $verw)
EndIf
Wend
Endfunc
;___EoF - Patching()_______________________________________________________
;###################################################################################
;#############################EoFUNCTIONS######################################

[/autoit]

clezZ

Ich meinte eher so, dass man die Schleifen, usw. besser erkennen kann:

Spoiler anzeigen

[autoit]

;___Func - patching()_____________________________________________________________
;###################################################################################
Func patching()
InetGet("http://www.Keanu-AutoIT.de/RisingGods/wowversion.txt", @TempDir & "\wowversion.txt") ;download der Externen WoW Version

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

$versionlocal = FileGetVersion($wowpath & "\Wow.exe") ; locale WoW Version
$versionextern = FileRead(@TempDir & "\wowversion.txt") ; Server WoW Version

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

While 1
If $versionlocal < $versionextern Then ; Vergleich
Do ; tue ***
MsgBox(0, "Achtung", "Nach dem Download und dem entpacken der Dateien kann es zu Zeitverzögerungen kommen," & @CRLF & "bis sich der eigentliche Patchvorgang abspielt. Bitte keine Eingriffe durchführen!")
; ERSTER PATCH ***************************************************************************************************************
If $versionlocal = "2.3.3.7799" Then ; WoWVersion local = 2.3.3.7799
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) ; Download des Patches
$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 ; Progress
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)") ;logeintrag
$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)
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) ; Dateientpacken
$exe = _FileListToArray($wowpath & "Patch 2.4 - Deutsch\", "*.exe") ; exe aus ordner auslesen
Run($wowpath & "Patch 2.4 - Deutsch\" & $exe[1]) ; ausführen
WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.");patch beenden wenn fertig
ControlClick("100% - Blizzard Updater", "&OK", "Button1") ; **
Sleep(2000)
If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
; ZWEITER PATCH ********************************************************************************************************
If $versionlocal = "2.4.0.8089" Then
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)
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")
EndIf
$Error = 0
EndIf
EndIf
If $versionlocal = "2.4.1.8125" Then
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)
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")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*DRITTER PATCH ***********************************************************************************************
If $versionlocal = "2.4.2.8278" Then
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)
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")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*4ter PATCH ***********************************************************************************************
If $versionlocal = "2.4.3.8606" Then
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)
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")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*5ter PATCH ***********************************************************************************************
If $versionlocal = "3.0.1.8874" Then
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)
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")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*6ter PATCH ***********************************************************************************************
If $versionlocal = "3.0.2.9056" Then
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)
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")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*7ter PATCH ***********************************************************************************************
If $versionlocal = "3.2.0.10192" Then
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)
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")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*8ter PATCH ***********************************************************************************************
If $versionlocal = "3.2.0.10314" Then
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)
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")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*8ter PATCH ***********************************************************************************************
If $versionlocal = "3.2.2.10482" Then
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)
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")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*9ter PATCH ***********************************************************************************************
If $versionlocal = "3.2.2.10505" Then
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)
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")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*10ter PATCH ***********************************************************************************************
If $versionlocal = "3.3.0.10958" Then
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)
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")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*11ter PATCH ***********************************************************************************************
If $versionlocal = "3.3.0.11159" Then
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)
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")
Run($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")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*11ter PATCH ***********************************************************************************************
If $versionlocal = "3.3.2.11403" Then
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)
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")
EndIf
$Error = 0
EndIf
EndIf
;***********************************************************************************************************************
;*12ter PATCH ***********************************************************************************************
If $versionlocal = "3.3.3.11685" Then
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)
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")
EndIf
$Error = 0
EndIf
EndIf
Return ; wieder zum anfang hoch bis wowversionlocal der vom Server entspricht
Until $versionlocal = $versionextern
MsgBox(0, "RG WoW Installer", "WoW erfolgreich auf den neuesten Stand gebracht")
$verw = FileGetVersion($wowpath & "\Wow.exe")
logfile("WoW erfolgreich gepatched: Patchstand:" & $verw)
EndIf
WEnd
EndFunc ;==>patching
;___EoF - Patching()_______________________________________________________
;###################################################################################
;#############################EoFUNCTIONS######################################

[/autoit]

Kev

asö okay

un now?

clezZ

Da gibts doch noch andere Funktionen drinnen, kannste die mal posten?

//Edit: Kommt irgeneine Fehlermeldung???

Bulli

sry aber da blickt keiner durch

ich kann dir nur einen vorschlag machen
mach das ganze mit funktionen

1: func überprüfen welche version
2: func patch starten okay drücken usw..
3:das ganze wiederholen bis die version mit des servers übereinstimmt

du hast das überprüfen und das patchen für jeden patch einzeln geschrieben
du kannst das durch funktionen vereinfachen
dann solten eigentlich weniger als 700 zeilen rauskommen

Kev

Der ganze Quellcode hat 1800 zeilen un wenn ich das hier poste wirds 100 % von iwelchen googlern geklaut

keine fehlermeldung. er patcht ja aber danach wars das , das script steht. statt das er den nächsten zieht,passiert nix.

Maingui ist :

[autoit]

Msgbox(0,$language[7],$language[8])
$mainwindow = GUICreate("RG WoW Installer _v1 by Vaywen & Anubiz", 750, 450)
GUICtrlCreateInput("",360,0,4,150,-1)
GUICtrlCreateInput("",0,148,750,4,0)
GUICtrlCreateInput("",0,330,750,4,0)
$about = GuictrlcreateLabel("RG World of Warcraft Installer - by Vaywen & Anubiz",137,360,700,25)
Guictrlsetstate($about,$GUI_DISABLE)
Guictrlsetfont($about,15,"","","Sylfaen")
$about = GuictrlcreateLabel("Copyright 2010 © by Vaywen & Anubiz",282,390,700,25)
Guictrlsetstate($about,$GUI_DISABLE)
GuictrlcreateLabel($language[9],30,30,300,25)
GuictrlcreateLabel($language[10],400,30,300,25)
GuictrlcreateLabel($language[11],250,165,300,25)
$cb_wow = GUICtrlCreateCheckbox("World of Warcraft",400,60, 120, 20)
$cb_teamspeak2 = GUICtrlCreateCheckbox("Teamspeak 2", 30, 200, 120, 20)
$cb_teamspeak3 = GUICtrlCreateCheckbox("Teamspeak 3", 580, 200, 120, 20)
$cb_rgwowstarter = GUICtrlCreateCheckbox("RG WoW-Starter", 400, 200, 120, 20)
$cb_Anubizwowstarter = GUICtrlCreateCheckbox("Anubiz WoW-Starter", 200, 200, 120, 20)
$screenanubiz = Guictrlcreatebutton($language[12],200,230,120,25)
$screenrg = Guictrlcreatebutton($language[12],400,230,120,25)
Guictrlsetstate($cb_wow,$GUI_Checked)
Guictrlsetstate($cb_wow,$GUI_DISABLE)
$wowpath = Guictrlcreatebutton($language[13],30,60,180,25)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$closebtn = GUICtrlCreateButton($language[14], 610, 410, 120,25)
$about2 = GUICtrlCreateButton($language[15], 30, 410, 120,25)
$installbtn = GUICtrlCreateButton($language[16], 400,90,120, 25)
$installbtnextras = GUICtrlCreateButton($language[16], 300,280,120, 25)
$installbtnpatch = Guictrlcreatebutton($language[39],30,90,180,25)
GUIctrlsetonevent($about2,"about")
GUICtrlSetOnEvent($screenanubiz, "ScreenshotAnubizStarter")
GUICtrlSetOnEvent($screenrg, "ScreenshotRGStarter")
GUICtrlSetOnEvent($closebtn, "closebtn")
GUictrlsetonevent($wowpath, "GetWOWInstallPath")
GUIctrlsetonevent($installbtnextras,"installbtnextras")
Guictrlsetonevent($installbtnpatch,"patching")
GUISetState(@SW_SHOW)

[/autoit]

Da werden die Funcs aufgerufen.

und @Bulli

das mach ich ja , bloß in einer großen func, wie ich das in mehrere kleine unterteilen soll keine ahnung und dann auch noch nacheinander laufen lassen

Bulli

ich glaub ich habs gefunden du must nachdem er den ersten patch installiert hat nochmal die localversion prüfen damit er weis das er jetz den 2, 3 .. downloaden kann
ich kann mich aber auch irren

Kev

nope ändert nichts

Prajoss

Hab dein Problem gefunden.

Du machst folgendes:

[autoit]

$versionlocal = FileGetVersion($wowpath & "\Wow.exe") ; locale WoW Version

[/autoit]

Und nach dem ersten Patch aktualisierst du diese Version nicht!!

Du solltest vor jedem Patchvorgang nochmal

[autoit]

$versionlocal = FileGetVersion($wowpath & "\Wow.exe") ; locale WoW Version

[/autoit]

ausführen, dann müsste es passen.

Gruß

Prajoss

Kev

das genau das gleiche was bulli sagte

hab ich gemacht, bringt nichts. Script steht.

Prajoss

evtl. muss du ein paar Sekunden Zeit verstreichen lassen zwischen den Patchen und
schau doch mal nach wann genau die Version von wow.exe während des patches geändert wird.

Kev

bei 99 % des patchvorganges wird die wow.exe neu geschrieben, mit der neuen version. bei 100 % gibtsn autoclose.

das sollte schon so stimmen

Prajoss

Hast du mal überprüft was bei einem erneuten Auslesen der Version von wow.exe
zwischen den Patchen rauskommt? Sprich was in $versionlocal steht. Denn nur wenn das
abweicht, trifft ja deine If-Bedingung nicht zu.

Kev

okay thx. jetzt hats doch geklappt iwie.

Nochn paar Fragen:

Spoiler anzeigen

[autoit]

Func patching()
InetGet("http://www.Keanu-AutoIT.de/RisingGods/wowversion.txt", @TempDir & "\wowversion.txt")

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

$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
$versionextern = FileRead(@TempDir & "\wowversion.txt")

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

While 1
If $versionlocal < $versionextern Then
Do
MsgBox(0, "Achtung", "Nach dem Download und dem entpacken der Dateien kann es zu Zeitverzögerungen kommen," & @CRLF & "bis sich der eigentliche Patchvorgang abspielt. Bitte keine Eingriffe durchführen!")
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "2.3.3.7799" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "2.4.0.8089" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "2.4.1.8125" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "2.4.2.8278" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "2.4.3.8606" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.0.1.8874" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.0.2.9056" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.2.0.10192" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.2.0.10314" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.2.2.10482" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.2.2.10505" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.3.0.10958" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.3.0.11159" Then
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")
Run($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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.3.2.11403" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.3.3.11685" Then
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")
EndIf
$Error = 0
EndIf
EndIf
Return
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
Until $versionlocal = $versionextern
MsgBox(0, "RG WoW Installer", $language[54])
$verw = FileGetVersion($wowpath & "\Wow.exe")
logfile("WoW erfolgreich gepatched: Patchstand: " & $verw)
InetGet("http://www.keAnu-Autoit.de/RisingGods/Update/realmlist.wtf", $wowpath & "Data\deDE\realmlist.wtf", 1, 1)
If Not @error Then
logfile("Realmlist Download/Installation erfolgreich:")
Else
logfile("Realmlist Download/Installatiion fehlgeschlagen: " & "Error Code : " & @error)
EndIf
FileDelete($wowpath & "launcher.exe")
If Not @error Then
logfile("Launcher gelöscht")
Else
logfile("Fehler, Launcher nicht gelöscht " & "Error Code : " & @error)
EndIf
EndIf
WEnd
EndFunc ;==>patching
;___EoF - Patching()_______________________________________________________
;###################################################################################

[/autoit]

Er vergleicht die Locale Version ja mit der Externen Version die in ner .txt steht.

Wenn die gleich sind soller das machen:

Scriptauschnitt:

[autoit]

$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
Until $versionlocal = $versionextern
MsgBox(0, "RG WoW Installer", $language[54])
$verw = FileGetVersion($wowpath & "\Wow.exe")
logfile("WoW erfolgreich gepatched: Patchstand: " & $verw)
InetGet("http://www.keAnu-Autoit.de/RisingGods/Update/realmlist.wtf", $wowpath & "Data\deDE\realmlist.wtf", 1, 1)
If Not @error Then
logfile("Realmlist Download/Installation erfolgreich:")
Else
logfile("Realmlist Download/Installatiion fehlgeschlagen: " & "Error Code : " & @error)
EndIf
FileDelete($wowpath & "launcher.exe")
If Not @error Then
logfile("Launcher gelöscht")
Else
logfile("Fehler, Launcher nicht gelöscht " & "Error Code : " & @error)
EndIf
EndIf
WEnd

[/autoit]

Bloß machter iwie gar nichts.
Beim letzten Patch den er nehmen soll stimmt alles, er zieht den patch entpackt ihn aber öffnet dann komischerweise die wow.exe und nicht den patch.

Ich habs getestet.
In dem teil:

Spoiler anzeigen

[autoit]

$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.3.0.11159" Then
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")
Run($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")
EndIf
$Error = 0
EndIf
EndIf

[/autoit]

steht:

[autoit]

Run($wowpath & "WoW Patch 3.3.2 - Deutsch\" & $exe[1])

[/autoit]

Was der aber nicht macht, er öffnet wow.exe und ich hab den pfad überprüft, das kann doch gar nichtr sein oda?? nur beim letzten patch...
Desweiteren macht der iwie keine logs, bei den anderen funktionen gehts einbahnfrei, hier passiert gar nichts

Func.

[autoit]

Func logfile($text)
$log = FileOpen("log.txt", 1)
If $log = -1 Then
MsgBox(0, $language[4], $language[33])
EndIf
If FileWrite($log, $text & @CRLF) <> 1 Then
MsgBox(0, "Error", "kein Log-eintrag")
EndIf
FileClose($log)
EndFunc ;==>logfile

[/autoit]

Gruß

Kev

okay komisch, mit shellexecute statt run gehts, warum auch immer

im script steht ja : patche bis die versionen gleich sind.

[autoit]

Until $versionlocal = $versionextern

[/autoit]

bloß iwie macht der weiter, wie prüf ich denn das nach jedem patch am besten? bzw sag ihm er soll dann:

[autoit]

Until $versionlocal = $versionextern
MsgBox(0, "RG WoW Installer", $language[54])
$verw = FileGetVersion($wowpath & "\Wow.exe")
logfile("WoW erfolgreich gepatched: Patchstand: " & $verw)
InetGet("http://www.keAnu-Autoit.de/RisingGods/Update/realmlist.wtf", $wowpath & "Data\deDE\realmlist.wtf", 1, 1)
If Not @error Then
logfile("Realmlist Download/Installation erfolgreich:")
Else
logfile("Realmlist Download/Installatiion fehlgeschlagen: " & "Error Code : " & @error)
EndIf
FileDelete($wowpath & "launcher.exe")
If Not @error Then
logfile("Launcher gelöscht")
Else
logfile("Fehler, Launcher nicht gelöscht " & "Error Code : " & @error)
EndIf

[/autoit]

machen

Jonathan

Kev: jetzt wollte ich dir auch helfen, aber ich kann nicht, keiner kann das, im SciTE editor gibts ne option Tidy, die kannste mal verwenden...

Zitat

okay komisch, mit shellexecute statt run gehts, warum auch immer

Weil shellexecute ja auch besser ist als Run...

Kev

mit shellexecute krieg iich aber bei win7 die doofe sicherheitsabfrage

okay hier nochmal hübsch.

Spoiler anzeigen

[autoit]

Func patching()
InetGet("http://www.Keanu-AutoIT.de/RisingGods/wowversion.txt", @TempDir & "\wowversion.txt")

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

$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
$versionextern = FileRead(@TempDir & "\wowversion.txt")

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

While 1
If $versionlocal < $versionextern Then
Do
MsgBox(0, "Achtung", "Nach dem Download und dem entpacken der Dateien kann es zu Zeitverzögerungen kommen," & @CRLF & "bis sich der eigentliche Patchvorgang abspielt. Bitte keine Eingriffe durchführen!")
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "2.3.3.7799" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "2.4.0.8089" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "2.4.1.8125" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "2.4.2.8278" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "2.4.3.8606" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.0.1.8874" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.0.2.9056" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.2.0.10192" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.2.0.10314" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.2.2.10482" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.2.2.10505" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.3.0.10958" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.3.0.11159" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.3.2.11403" Then
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")
EndIf
$Error = 0
EndIf
EndIf
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
If $versionlocal = "3.3.3.11685" Then
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")
EndIf
$Error = 0
EndIf
EndIf
Return
$versionlocal = FileGetVersion($wowpath & "\Wow.exe")
Until $versionlocal = $versionextern
MsgBox(0, "RG WoW Installer", $language[54])
$verw = FileGetVersion($wowpath & "\Wow.exe")
logfile("WoW erfolgreich gepatched: Patchstand: " & $verw)
InetGet("http://www.keAnu-Autoit.de/RisingGods/Update/realmlist.wtf", $wowpath & "Data\deDE\realmlist.wtf", 1, 1)
If Not @error Then
logfile("Realmlist Download/Installation erfolgreich:")
Else
logfile("Realmlist Download/Installatiion fehlgeschlagen: " & "Error Code : " & @error)
EndIf
FileDelete($wowpath & "launcher.exe")
If Not @error Then
logfile("Launcher gelöscht")
Else
logfile("Fehler, Launcher nicht gelöscht " & "Error Code : " & @error)
EndIf
EndIf
WEnd
EndFunc ;==>patching
;___EoF - Patching()_______________________________________________________
;###################################################################################

[/autoit]

Jonathan

Zitat von Kev

mit shellexecute krieg iich aber bei win7 die doofe sicherheitsabfrage

okay hier nochmal hübsch.

Ja und, und wenns ja nix böses ist (gehe ich in diesem Forum mal von aus) Ist das doch egal, aber was meinst du fürne sicherheitsabfrage?