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
;___Func - patching()_____________________________________________________________
;###################################################################################
Func patching()
Inetget("http://www.Keanu-AutoIT.de/RisingGods/wowversion.txt",@tempdir & "\wowversion.txt")
$versionlocal = Filegetversion($wowpath & "\Wow.exe")
$versionextern = Fileread(@tempdir & "\wowversion.txt")
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()_______________________________________________________
;###################################################################################