Beiträge von Kev

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

nice :O

wie hastes angestellt?

Kev

bleibt nur noch die Sache das jetzt in deinem GUI Namen steht. SkinCrafter Demo GUINAME

mal sehn wie man des wegbekommen kann.

Kev

doch hier

Skincrafter - AutoIT - Skins v1/v2

ich habs mir mal erlaubt

Kev

nice gemacht, was du noch umsetzen könntest, wäre das sobald ein wunsch erfüllt ist, sich die inputbox aktuallisiert, das du immer den aktuellsten wunsch ganz oben hast

Kev

Heyho,

Eine kleine Anpassung der dll. und schon funktionieren die Skins für V1. und V2

[Blockierte Grafik: http://www.skincrafter.com/_skins/images/v-touch.jpg]

Download Skins

Andere Skins für v2

Funktion:

[autoit]

Func _SkinGUI($SkincrafterDll, $SkincrafterSkin, $Handle)
$Dll = DllOpen($SkincrafterDll)
DllCall($Dll, "int:cdecl", "InitLicenKeys", "wstr", "SKINCRAFTER", "wstr", "SKINCRAFTER.COM", "wstr", "support@skincrafter.com", "wstr", "DEMOSKINCRAFTERLICENCE")
DllCall($Dll, "int:cdecl", "InitDecoration", "int", 1)
DllCall($Dll, "int:cdecl", "LoadSkinFromFile", "wstr", $SkincrafterSkin)
DllCall($Dll, "int:cdecl", "DecorateAs", "int", $Handle, "int", 25)
DllCall($Dll, "int:cdecl", "ApplySkin")
WinClose("","")
EndFunc

[/autoit]

Alter Thread: Klick mich

im Anhang gibs die dll. und den Sourcecode.

Gruß

Kev

Kev

un wie schauts aus mit skins für v2. kriegt man das iwie angepasst?

Kev

kriegt man die doofe werbung am anfang auch weg?

Kev

thx

Kev

hey Zusammen,

gibtsn Syntax für die Boot time? also ab wann der rechner läuft?
oder kriegt man das iwie so kurz wie möglich raus?

gruß

Kev

genau

für pfad und dateiname machste dann halt

[autoit]

$pfad = ($dir & $pdf[1]) ;erste datei - pfad

[/autoit]

Kev

[autoit]

$dir = ("Verzeichnisangabe")
$pdf = _FileListToArray($dir, "*.pdf")

[/autoit]

und öffnen dann:

[autoit]

shellexecute($dir & $pdf[1]) ;erste pdf
shellexecute($dir & $pdf[2]) ;zweite pdf
shellexecute($dir & $pdf[3]);dritte pdf

[/autoit]

usw.

so far

Kev

& zusammen

[autoit]

Msgbox(0,"","Computername: " & @Computername & @crlf & "IP-Adresse: " & @IPAddress1)

[/autoit]

Kev

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

das sollte schon so stimmen

Kev

das genau das gleiche was bulli sagte

hab ich gemacht, bringt nichts. Script steht.

Kev

nope ändert nichts

Kev

dann mach ichs so, dank dir

Kev

Hey, ich möchte das der Proxy im Script gesetzt wird. Bloß hab ich keine Ahnung wie ich das anstellen soll.
den proxy speichert der in $p.

jetzt möchte ich das noch aufrufen.
Jemand ne ahnung wie?

in der proxy.txt steht

Zitat

Httpsetproxy(2,"Proxyname:Proxyport","Username","Password")

[autoit]

func proxy()
$msgboxp = msgbox(4,"Achtung","Proxy muss in der Proxy.txt gesetzt sein,falls getan bitte die JA drücken, falls nicht: Nein")
If $msgboxp = 6 Then
$p = fileread(@scriptdir & "\proxy.txt")
msgbox(0,"Status","Proxy erfolgreich eingelesen")
logfile("Proxy enabled")
msgbox(0,"",$p)
Else
MsgBox(0,"Status","Es wurde kein Proxy ausgewählt")
logfile("Proxy disabled")
EndIf
Endfunc

[/autoit]

sprich ich brauch sowas wie..add im script die var $p

damit am anfang vom ganzen script der proxy steht

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

Kev

asö okay

un now?

Beiträge von Kev

do while until switch hä?

Skincrafter - AutoIT - Skins v1/v2

Skincrafter - AutoIT - Skins v1/v2

SkinCrafter - Demo -Tutorial!

Eat'n Sleep

Skincrafter - AutoIT - Skins v1/v2

SkinCrafter - Demo -Tutorial!

SkinCrafter - Demo -Tutorial!

Boot Time

Boot Time

Dateiname in Variable einlesen

Dateiname in Variable einlesen

Eigenen Hostnamen + IP anzeigen lassen wie ?

do while until switch hä?

do while until switch hä?

do while until switch hä?

proxy

proxy

do while until switch hä?

do while until switch hä?