Beiträge von Kev

  • Func rückgabewert

    Ich hab hier 2 Hauptfunktionen, eine die das Patching startet und eine die sagt Fertig gepatched.

    Func Patchstarten:

    Spoiler anzeigen
    [autoit]

    Func Patchstatus()
    InetGet("http://www.Keanu-AutoIT.de/RisingGods/wowversion.txt", @TempDir & "\wowversion.txt")
    $versionlocal = FileGetVersion($wowpath & "\WoW.exe")
    Switch $versionlocal
    Case "2.3.3.7799"
    Patch1()
    Case "2.4.0.8089"
    Patch2()
    Case "2.4.1.8125"
    Patch3()
    Case "2.4.2.8278"
    Patch4()
    Case "2.4.3.8606"
    Patch5()
    Case "3.0.1.8874"
    Patch6()
    Case "3.0.2.9056"
    Patch7()
    Case "3.2.0.10192"
    Patch8()
    Case "3.2.0.10314"
    Patch9()
    Case "3.2.2.10482"
    Patch10()
    Case "3.2.2.10505"
    Patch11()
    Case "3.3.0.10958"
    Patch12()
    Case "3.3.0.11159"
    Patch13()
    Case "3.3.2.11403"
    Patch14()
    Case "3.3.3.11685"
    Patch15()
    EndSwitch
    EndFunc ;==>Patchstatus

    [/autoit]

    Func Patchbeenden:

    Spoiler anzeigen
    [autoit]

    Func Ende()
    $versionlocal = FileGetVersion($wowpath & "\WoW.exe")
    $versionextern = FileRead(@TempDir & "\wowversion.txt")
    if $versionlocal = $versionextern then
    return true
    MsgBox(0, "", "Auf Rising Gods Stand gepatcht")
    logfile("Patchstand Rising Gods: " & $versionlocal)
    else
    return false
    Endif
    Endfunc

    [/autoit]

    Jetzt
    will ich das nach jedem Patch die Funktion Patchbeenden aufgerufen wird, wenn die zutrifft soller nichts mehr machen, als ne msgbox mit fertig zu senden.
    Falls nicht soll er wieder in die Funktion Patchstarten gehen und weiterpatchen. Nach jedem Patch werden beide Funktionen so abgefragt.

    Ein Patch als Beispiel:

    Spoiler anzeigen
    [autoit]

    Func Patch1() ;2.3.3.7799
    $versionlocal = FileGetVersion($wowpath & "\WoW.exe")
    logfile("Starte Patchvorgang : Schleife 2.3.3.7799 " & "Locale Version: " & $versionlocal)
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1, $language[4], $language[51])
    logfile("RG WoW Installer: Can't connect to http://www.wow.4fansites.de - " & @HOUR & ":" & @MIN & ":" & @SEC)
    Else
    $Error = 0
    TrayTip("RG WoW Installer", "Patch 2.4 - Deutsch (2.3.3.7799 -> 2.4.0.8089) wird runtergeladen...", 5, 1)
    $inetgethandle = InetGet("http://wow.4fansites.de/download.php?download=10037&mirror=1", $wowpath & "Patch 2.4 - Deutsch.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10037&mirror=1")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 2.4 - Deutsch (2.3.3.7799 -> 2.4.0.8089)", "Size = " & $Size & " Bytes", "0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent * $i - 1 Then
    ProgressSet($i, $i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100, $language[4], $language[22])
    ProgressOff()
    MsgBox(-1, $language[4], $language[21])
    logfile("Patch Download: DL NOT succesfull - Patch 2.4 - Deutsch 2.3.3.7799 -> 2.4.0.8089")
    $Error = 1
    EndIf
    WEnd
    Next
    If $Error == 0 Then
    TrayTip("RG WoW Installer", "Patch was downloaded to your WoW Dir.", 5, 1)
    MsgBox(-1, "Succes", "Download Complete!!! -" & $wowpath, 3)
    logfile("Patch 2.4 - Deutsch (2.3.3.7799 -> 2.4.0.8089) : DL succesfull")
    TrayTip("RG WoW Installer", "Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5, 1)
    #RequireAdmin
    _zip_unzipall($wowpath & "Patch 2.4 - Deutsch.zip", $wowpath & "Patch 2.4 - Deutsch", 0)
    $exe = _FileListToArray($wowpath & "Patch 2.4 - Deutsch\", "*.exe")
    Run($wowpath & "Patch 2.4 - Deutsch\" & $exe[1])
    WinWait("100% - Blizzard Updater", "Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater", "&OK", "Button1")
    Sleep(2000)
    If ProcessExists("launcher.exe") Then ProcessClose("launcher.exe")
    $versionlocal = FileGetVersion($wowpath & "\WoW.exe")
    if ende() = true then ; ABFRAGE HIER
    msgbox(0,"","ende")
    else
    Patchstatus()
    EndIf ; ENDE DER ABFRAGE
    Endif
    $Error = 0
    EndIf
    EndFunc ;==>Patch1

    [/autoit]

    Er hört auf jeden Fall auf zu patchen, das heißt er erkennt das die versionen gleich sind. gibt mir aber keine rückgabe raus, also keine msgbox(0,"",fertig")
    dsw denk ich irgendwas stimmt nicht.

    [autoit]

    if ende() = true then ; ABFRAGE HIER
    msgbox(0,"","ende")
    else
    Patchstatus()
    EndIf ; ENDE DER ABFRAGE
    Endif

    [/autoit]

    wird hier die ende func überhaupt aufgerufen?

    Gruß

    Kev

  • Patchfunktion - do until - so richtig?

    geht nicht, er patcht weiter -.- wieso

    Spoiler anzeigen
    [autoit]

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

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

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

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

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

    [/autoit]

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

  • Guictrlsetbkcolor

    [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.6.1
    Author: myName

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

    Script Function:
    Template AutoIt script.

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

    #ce ----------------------------------------------------------------------------

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

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>

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

    $a = 0x44484E
    _IEErrorHandlerRegister ()

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

    $oIE = _IECreateEmbedded ()
    $Gui = GUICreate("Rising Gods Browser", @DesktopWidth , @DesktopHeight, _
    (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
    $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
    $GUIActiveX = GUICtrlCreateObj($oIE, 10, 80, @DesktopWidth - 60/2, @desktopheight -540 /2)
    Guisetbkcolor($Gui,$a )
    Winsetstate("Rising Gods Browser","",@SW_MAXIMIZE)
    ;_SkinGUI("SkinCrafterDll.dll", "V-touch.skf", $Gui) ;Skin setzen
    $GUI_Button_Back = GUICtrlCreateButton("Zurück", 10, 920, 100, 25)
    $GUI_Button_Forward = GUICtrlCreateButton("Vorwärts", 120, 920, 100, 25)
    $GUI_Button_Home = GUICtrlCreateButton("Home", 230, 920, 100, 25)
    $GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 920, 100, 25)
    $beenden = Guictrlcreatebutton("Beenden",@desktopwidth - 250/2,920,100,25)
    $Eingabefeld = GuictrlcreateInput("",12,30,500,25)
    $start = Guictrlcreatebutton("los",520,30,100,25)
    $progress = GuictrlcreateProgress(9,860,1255,25)
    GUISetState() ;Show GUI

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

    _IENavigate ($oIE, "http://www.rising-gods.de")

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

    ; Waiting for user to close the window
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $GUI_Button_Home
    _IENavigate ($oIE, "http://www.rising-gods.de")
    GUICtrlSetData($progress, 100)
    if Guictrlsetdata($progress, 100) Then
    sleep(1500)
    Guictrlsetdata($progress, 0)
    Endif
    Case $msg = $GUI_Button_Back
    _IEAction ($oIE, "back")
    Case $msg = $GUI_Button_Forward
    _IEAction ($oIE, "forward")
    Case $msg = $GUI_Button_Stop
    _IEAction ($oIE, "stop")
    case $msg = $start
    _IENavigate($oie, GUICtrlRead($Eingabefeld), 0)
    Traytip("Rising Gods Browser",Guictrlread($Eingabefeld), 5, 1)
    GUICtrlSetData($progress, 100)
    if Guictrlsetdata($progress, 100) Then
    sleep(1500)
    Guictrlsetdata($progress, 0)
    Endif
    case $msg = $beenden
    exit
    EndSelect
    WEnd

    [/autoit][autoit][/autoit][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]


    da nimm :D

  • Guictrlsetbkcolor

    Ich hab von Skincrafter n Design. Leider spackt das rum also hab ich mir die Farbe auslesen lassen und als hex ausgegeben.

    Hex: 44484E

    Wenn ich jetzte

    [autoit]

    Guicrlsetbkcolor("",0x44484E)

    [/autoit]

    mache, passiert aber iwie gar nichts :S
    why?

    gruß

  • Patchfunktion - do until - so richtig?

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

    [autoit]

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

    [/autoit]

  • Patchfunktion - do until - so richtig?

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

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

  • Patchfunktion - do until - so richtig?

    Heya !

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

    [autoit]

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

    [/autoit]

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

    [autoit]

    until

    [/autoit]

    Gruß

    Kev

  • do while until switch hä?

    guter punkt, ^^ ist aber nicht auschlaggebend für das was ich erreichen will und _versioncompare ists auch nicht ;)
    ich kann die ja vergleichen...

    aber das script sollte doch so gehen

    patche ... bis $versionlocal = $versionextern oder nicht?

  • do while until switch hä?

    das will ich so aber nicht :P

    geht das nicht einfach, das der patcht bis die versionen gleich sind.
    und nicht weitermacht bis zum unendlichen.

    sprich der soll wenn die versionen gleich sind,dies tun:

    [autoit]


    $versionlocal = $versionextern then
    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]

    und nicht weiterpatchen, das muss doch iwie gehn

  • do while until switch hä?

    windows sicherheitsfrage öffnen der datei.
    naja hat jemand n plan wie ich das machen, das der nach jedem patchstand prüft ob die versionen gleich sind und das script dann beendet, bzw die msgbox macht, dasser fertig ist und die logsfiles und dann exit ;)

  • do while until switch hä?

    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]

  • do while until switch hä?

    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 ^^