Beiträge von Kev

  • do while until switch hä?

    Spoiler anzeigen
    [autoit]

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

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

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

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

    while 1
    if $versionlocal < $versionextern Then ; Vergleich
    do ; tue ***
    Msgbox(0,"Achtung","Nach dem Download und dem entpacken der Dateien kann es zu Zeitverzögerungen kommen," & @crlf & "bis sich der eigentliche Patchvorgang abspielt. Bitte keine Eingriffe durchführen!")
    ; ERSTER PATCH ***************************************************************************************************************
    if $versionlocal = "2.3.3.7799" Then ; WoWVersion local = 2.3.3.7799
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,$language[4],$language[51])
    logfile("RG WoW Installer: Can't connect to http://www.wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 2.4 - Deutsch (2.3.3.7799 -> 2.4.0.8089) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10037&mirror=1",$wowpath&"\Patch 2.4 - Deutsch.zip", 1, 1) ; Download des Patches
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10037&mirror=1")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 2.4 - Deutsch (2.3.3.7799 -> 2.4.0.8089)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then ; Progress
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,$language[4],$language[22])
    ProgressOff()
    MsgBox(-1,$language[4],$language[21])
    logfile("Patch Download: DL NOT succesfull - Patch 2.4 - Deutsch (2.3.3.7799 -> 2.4.0.8089)") ;logeintrag
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 2.4 - Deutsch (2.3.3.7799 -> 2.4.0.8089) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    #RequireAdmin
    _zip_unzipall($wowpath & "Patch 2.4 - Deutsch.zip",$wowpath & "Patch 2.4 - Deutsch",0) ; Dateientpacken
    $exe = _FileListToArray($wowpath & "Patch 2.4 - Deutsch\" , "*.exe") ; exe aus ordner auslesen
    run($wowpath & "Patch 2.4 - Deutsch\" & $exe[1]) ; ausführen
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.");patch beenden wenn fertig
    ControlClick("100% - Blizzard Updater","&OK","Button1") ; **
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    ;***********************************************************************************************************************
    ; ZWEITER PATCH ********************************************************************************************************
    if $versionlocal = "2.4.0.8089" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 2.4.1 - Deutsch (2.4.0.8089 -> 2.4.1.8125) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10035&mirror=1",$wowpath&"\Patch 2.4.1 - Deutsch.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10035&mirror=1")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 2.4.1 - Deutsch (2.4.0.8089 -> 2.4.1.8125)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull- Patch 2.4.1 - Deutsch (2.4.0.8089 -> 2.4.1.8125)")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 2.4.1 - Deutsch (2.4.0.8089 -> 2.4.1.8125) was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 2.4.1 - Deutsch (2.4.0.8089 -> 2.4.1.8125) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    #RequireAdmin
    _zip_unzipall($wowpath & "Patch 2.4.1 - Deutsch.zip",$wowpath & "Patch 2.4.1 - Deutsch",0)
    $exe = _FileListToArray($wowpath & "Patch 2.4.1 - Deutsch\" , "*.exe")
    run($wowpath & "Patch 2.4.1 - Deutsch\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    if $versionlocal = "2.4.1.8125" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 2.4.2 - Deutsch (2.4.1.8125 -> 2.4.2.8278) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10033&mirror=1",$wowpath&"\Patch 2.4.2 - Deutsch.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10033&mirror=1")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 2.4.2 - Deutsch (2.4.1.8125 -> 2.4.2.8278)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull- Patch 2.4.2 - Deutsch (2.4.1.8125 -> 2.4.2.8278)")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 2.4.2 - Deutsch was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 2.4.2 - Deutsch (2.4.1.8125 -> 2.4.2.8278) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    _zip_unzipall($wowpath & "Patch 2.4.2 - Deutsch.zip",$wowpath & "Patch 2.4.2 - Deutsch",0)
    $exe = _FileListToArray($wowpath & "Patch 2.4.2 - Deutsch\" , "*.exe")
    run($wowpath & "Patch 2.4.2 - Deutsch\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    ;***********************************************************************************************************************
    ;*DRITTER PATCH ***********************************************************************************************
    if $versionlocal = "2.4.2.8278" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 2.4.3 - Deutsch (2.4.2.8278 -> 2.4.3.8606) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10031&mirror=1",$wowpath&"\Patch 2.4.3 - Deutsch.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10031&mirror=1")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 2.4.3 - Deutsch (2.4.2.8278 -> 2.4.3.8606)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull- Patch 2.4.3 - Deutsch (2.4.2.8278 -> 2.4.3.8606)")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 2.4.3 - Deutsch (2.4.2.8278 -> 2.4.3.8606) was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 2.4.3 - Deutsch (2.4.2.8278 -> 2.4.3.8606) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    #RequireAdmin
    _zip_unzipall($wowpath & "Patch 2.4.3 - Deutsch.zip",$wowpath & "Patch 2.4.3 - Deutsch",0)
    $exe = _FileListToArray($wowpath & "Patch 2.4.3 - Deutsch\" , "*.exe")
    run($wowpath & "Patch 2.4.3 - Deutsch\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    ;***********************************************************************************************************************
    ;*4ter PATCH ***********************************************************************************************
    if $versionlocal = "2.4.3.8606" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 3.0.1 - EU / The Burning Crusade Version (2.4.3 -> 3.0.1) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10029&mirror=1",$wowpath&"\Patch 3.0.1 - EU.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10029&mirror=1")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 3.0.1 - EU / The Burning Crusade Version (2.4.3 -> 3.0.1)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull - Patch 3.0.1 - EU / The Burning Crusade Version (2.4.3 -> 3.0.1)")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 3.0.1 - EU / The Burning Crusade Version (2.4.3 -> 3.0.1) was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 3.0.1 - EU / The Burning Crusade Version (2.4.3 -> 3.0.1) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    #RequireAdmin
    _zip_unzipall($wowpath & "Patch 3.0.1 - EU.zip",$wowpath & "Patch 3.0.1 - EU",0)
    $exe = _FileListToArray($wowpath & "Patch 3.0.1 - EU\Updates\WoW-2.4.3-to-3.0.1-TBC-EU-Update\" , "*.exe")
    run($wowpath & "Patch 3.0.1 - EU\Updates\WoW-2.4.3-to-3.0.1-TBC-EU-Update\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    ;***********************************************************************************************************************
    ;*5ter PATCH ***********************************************************************************************
    if $versionlocal = "3.0.1.8874" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 3.0.2 - EU (3.0.1 -> 3.0.2) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10028&mirror=1",$wowpath&"\Patch 3.0.2 - EU.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10028&mirror=1")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 3.0.2 - EU (3.0.1 -> 3.0.2)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull - Patch 3.0.2 - EU (3.0.1 -> 3.0.2)")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 3.0.2 - EU (3.0.1 -> 3.0.2) was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 3.0.2 - EU (3.0.1 -> 3.0.2) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    #RequireAdmin
    _zip_unzipall($wowpath & "Patch 3.0.2 - EU.zip",$wowpath & "Patch 3.0.2 - EU",0)
    $exe = _FileListToArray($wowpath & "Patch 3.0.2 - EU\Updates\WoW-3.0.1-to-3.0.2-Update\" , "*.exe")
    run($wowpath & "Patch 3.0.2 - EU\Updates\WoW-3.0.1-to-3.0.2-Update\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    ;***********************************************************************************************************************
    ;*6ter PATCH ***********************************************************************************************
    if $versionlocal = "3.0.2.9056" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 3.0.2 - EU (3.0.1 -> 3.0.2) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10006&mirror=2",$wowpath&"\Patch 3.2 - Full.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10006&mirror=2")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 3.2 - Full","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull - Patch 3.2 - Full")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 3.2 - Full was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 3.2 - Full : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    #RequireAdmin
    _zip_unzipall($wowpath & "Patch 3.2 - Full.zip",$wowpath & "Patch 3.2 - Full",0)
    $exe = _FileListToArray($wowpath & "Patch 3.2 - Full\" , "*.exe")
    run($wowpath & "Patch 3.2 - Full\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    ;***********************************************************************************************************************
    ;*7ter PATCH ***********************************************************************************************
    if $versionlocal = "3.2.0.10192" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 3.2.0a - Deutsch (3.2.0.10192-> 3.2.0.10314) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10026&mirror=1",$wowpath&"\Patch 3.2.0a - Deutsch.zip", 1, 1)
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10026&mirror=1")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 3.2.0a - Deutsch (3.2.0.10192-> 3.2.0.10314)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull- Patch 3.2.0a - Deutsch (3.2.0.10192-> 3.2.0.10314")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 3.2.0a - Deutsch (3.2.0.10192-> 3.2.0.10314) was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 3.2.0a - Deutsch (3.2.0.10192-> 3.2.0.10314) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    #RequireAdmin
    _zip_unzipall($wowpath & "Patch 3.2.0a - Deutsch.zip",$wowpath & "Patch 3.2.0a - Deutsch",0)
    $exe = _FileListToArray($wowpath & "Patch 3.2.0a - Deutsch\" , "*.exe")
    run($wowpath & "Patch 3.2.0a - Deutsch\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    ;***********************************************************************************************************************
    ;*8ter PATCH ***********************************************************************************************
    if $versionlocal = "3.2.0.10314" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10024&mirror=1",$wowpath&"\Patch 3.2.2 - Deutsch.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10024&mirror=1")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 3.2.2 - Deutsch (3.2.0.10314 -> 3.2.2.10482)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull - Patch 3.2.2 - Deutsch (3.2.0.10314 -> 3.2.2.10482)")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 3.2.2 - Deutsch (3.2.0.10314 -> 3.2.2.10482) was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 3.2.2 - Deutsch (3.2.0.10314 -> 3.2.2.10482) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    #RequireAdmin
    _zip_unzipall($wowpath & "Patch 3.2.2 - Deutsch.zip",$wowpath & "Patch 3.2.2 - Deutsch",4)
    $exe = _FileListToArray($wowpath & "Patch 3.2.2 - Deutsch\" , "*.exe")
    run($wowpath & "Patch 3.2.2 - Deutsch\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    ;***********************************************************************************************************************
    ;*8ter PATCH ***********************************************************************************************
    if $versionlocal = "3.2.2.10482" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10022&mirror=1",$wowpath&"\Patch 3.2.2a - Deutsch.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10022&mirror=1")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull - Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505) ")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505) was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    #RequireAdmin
    _zip_unzipall($wowpath & "Patch 3.2.2a - Deutsch.zip",$wowpath & "Patch 3.2.2a - Deutsch",0)
    $exe = _FileListToArray($wowpath & "Patch 3.2.2a - Deutsch\" , "*.exe")
    run($wowpath & "Patch 3.2.2a - Deutsch\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    ;***********************************************************************************************************************
    ;*9ter PATCH ***********************************************************************************************
    if $versionlocal = "3.2.2.10505" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 3.3 - Deutsch (3.2.2.10505 -> 3.3) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10020&mirror=2",$wowpath&"\Patch 3.3 - Deutsch.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10020&mirror=2")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 3.3 - Deutsch (3.2.2.10505 -> 3.3)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull- Patch 3.3 - Deutsch (3.2.2.10505 -> 3.3)")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 3.3 - Deutsch (3.2.2.10505 -> 3.3) was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 3.3 - Deutsch (3.2.2.10505 -> 3.3) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    _zip_unzipall($wowpath & "Patch 3.3 - Deutsch.zip",$wowpath & "Patch 3.3 - Deutsch",0)
    $exe = _FileListToArray($wowpath & "Patch 3.3 - Deutsch\wow-3.2.2-to-3.3.0-deDE-Win-patch" , "*.exe")
    run($wowpath & "Patch 3.3 - Deutsch\wow-3.2.2-to-3.3.0-deDE-Win-patch\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    ;***********************************************************************************************************************
    ;*10ter PATCH ***********************************************************************************************
    if $versionlocal = "3.3.0.10958" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","WoW Patch 3.3a - Deutsch (3.3.0.10958-> 3.3.0.11159) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10018&mirror=2",$wowpath&"\Patch 3.3a - Deutsch.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10018&mirror=2")
    $Percent = $Size / 100
    ProgressOn("Download of WoW Patch 3.3a - Deutsch (3.3.0.10958-> 3.3.0.11159)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull- WoW Patch 3.3a - Deutsch (3.3.0.10958-> 3.3.0.11159)")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","WoW Patch 3.3a - Deutsch (3.3.0.10958-> 3.3.0.11159) was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("WoW Patch 3.3a - Deutsch (3.3.0.10958-> 3.3.0.11159) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    _zip_unzipall($wowpath & "Patch 3.3a - Deutsch.zip",$wowpath & "Patch 3.3a - Deutsch\",0)
    $exe = _FileListToArray($wowpath & "Patch 3.3a - Deutsch\" , "*.exe")
    run($wowpath & "Patch 3.3a - Deutsch\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    ;***********************************************************************************************************************
    ;*11ter PATCH ***********************************************************************************************
    if $versionlocal = "3.3.0.11159" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 3.3.0.11159 -> 3.3.2.11403 wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10016&mirror=2",$wowpath&"\WoW Patch 3.3.2 - Deutsch.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10016&mirror=2")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 3.3.0.11159 -> 3.3.2.11403","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull - Patch 3.3.0.11159 -> 3.3.2.11403")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 3.3.0.11159 -> 3.3.2.11403 was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 3.3.0.11159 -> 3.3.2.11403 : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    _zip_unzipall($wowpath & "WoW Patch 3.3.2 - Deutsch.zip",$wowpath & "WoW Patch 3.3.2 - Deutsch",0)
    $exe = _FileListToArray($wowpath & "WoW Patch 3.3.2 - Deutsch\" , "*.exe")
    run($wowpath & "WoW Patch 3.3.2 - Deutsch\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    ;***********************************************************************************************************************
    ;*11ter PATCH ***********************************************************************************************
    if $versionlocal = "3.3.2.11403" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","WoW Patch 3.3.3 wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10008&mirror=2",$wowpath&"\WoW Patch 3.3.3 - Deutsch.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10008&mirror=2")
    $Percent = $Size / 100
    ProgressOn("Download of WoW Patch 3.3.3","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull: WoW Patch 3.3.3")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","WoW Patch 3.3.3 was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("WoW Patch 3.3.3 : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    _zip_unzipall($wowpath & "WoW Patch 3.3.3 - Deutsch.zip",$wowpath & "WoW Patch 3.3.3 - Deutsch",0)
    $exe = _FileListToArray($wowpath & "WoW Patch 3.3.3 - Deutsch\wow-3.3.2-to-3.3.3-deDE-Win-patch\" , "*.exe")
    run($wowpath & "WoW Patch 3.3.3 - Deutsch\wow-3.3.2-to-3.3.3-deDE-Win-patch\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    ;***********************************************************************************************************************
    ;*12ter PATCH ***********************************************************************************************
    if $versionlocal = "3.3.3.11685" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 3.3.3a - Deutsch (3.3.3.11685-to-3.3.3.11723) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10064&mirror=2",$wowpath&"\WoW Patch 3.3.3a - Deutsch.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10064&mirror=2")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 3.3.3a - Deutsch (3.3.3.11685-to-3.3.3.11723)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull - Patch 3.3.3a - Deutsch (3.3.3.11685-to-3.3.3.11723)")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 3.3.3a - Deutsch (3.3.3.11685-to-3.3.3.11723) was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 3.3.3a - Deutsch (3.3.3.11685-to-3.3.3.11723) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    _zip_unzipall($wowpath & "WoW Patch 3.3.3a - Deutsch.zip",$wowpath & "WoW Patch 3.3.3a - Deutsch",0)
    $exe = _FileListToArray($wowpath & "WoW Patch 3.3.3a - Deutsch\" , "*.exe")
    run($wowpath & "WoW Patch 3.3.3a - Deutsch\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    Endif
    $Error=0
    EndIf
    Endif
    Return ; wieder zum anfang hoch bis wowversionlocal der vom Server entspricht
    until $versionlocal = $versionextern
    msgbox(0,"RG WoW Installer","WoW erfolgreich auf den neuesten Stand gebracht")
    $verw = Filegetversion($wowpath & "\Wow.exe")
    logfile("WoW erfolgreich gepatched: Patchstand:" & $verw)
    EndIf
    Wend
    Endfunc
    ;___EoF - Patching()_______________________________________________________
    ;###################################################################################
    ;#############################EoFUNCTIONS######################################

    [/autoit]

  • do while until switch hä?

    Hey zusammen,

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

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

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

    vorsicht komplex:

    Spoiler anzeigen
    [autoit]

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

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

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

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

    while 1
    if $versionlocal < $versionextern Then
    do
    Msgbox(0,"Achtung","Nach dem Download und dem entpacken der Dateien kann es zu Zeitverzögerungen kommen," & @crlf & "bis sich der eigentliche Patchvorgang abspielt. Bitte keine Eingriffe durchführen!")
    if $versionlocal = "2.3.3.7799" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,$language[4],$language[51])
    logfile("RG WoW Installer: Can't connect to http://www.wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 2.4 - Deutsch (2.3.3.7799 -> 2.4.0.8089) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10037&mirror=1",$wowpath&"\Patch 2.4 - Deutsch.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10037&mirror=1")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 2.4 - Deutsch (2.3.3.7799 -> 2.4.0.8089)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,$language[4],$language[22])
    ProgressOff()
    MsgBox(-1,$language[4],$language[21])
    logfile("Patch Download: DL NOT succesfull - Patch 2.4 - Deutsch (2.3.3.7799 -> 2.4.0.8089)")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 2.4 - Deutsch (2.3.3.7799 -> 2.4.0.8089) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    #RequireAdmin
    _zip_unzipall($wowpath & "Patch 2.4 - Deutsch.zip",$wowpath & "Patch 2.4 - Deutsch",0)
    $exe = _FileListToArray($wowpath & "Patch 2.4 - Deutsch\" , "*.exe")
    run($wowpath & "Patch 2.4 - Deutsch\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    if $versionlocal = "2.4.0.8089" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 2.4.1 - Deutsch (2.4.0.8089 -> 2.4.1.8125) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10035&mirror=1",$wowpath&"\Patch 2.4.1 - Deutsch.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10035&mirror=1")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 2.4.1 - Deutsch (2.4.0.8089 -> 2.4.1.8125)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull- Patch 2.4.1 - Deutsch (2.4.0.8089 -> 2.4.1.8125)")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 2.4.1 - Deutsch (2.4.0.8089 -> 2.4.1.8125) was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 2.4.1 - Deutsch (2.4.0.8089 -> 2.4.1.8125) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    #RequireAdmin
    _zip_unzipall($wowpath & "Patch 2.4.1 - Deutsch.zip",$wowpath & "Patch 2.4.1 - Deutsch",0)
    $exe = _FileListToArray($wowpath & "Patch 2.4.1 - Deutsch\" , "*.exe")
    run($wowpath & "Patch 2.4.1 - Deutsch\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    if $versionlocal = "2.4.1.8125" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 2.4.2 - Deutsch (2.4.1.8125 -> 2.4.2.8278) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10033&mirror=1",$wowpath&"\Patch 2.4.2 - Deutsch.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10033&mirror=1")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 2.4.2 - Deutsch (2.4.1.8125 -> 2.4.2.8278)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull- Patch 2.4.2 - Deutsch (2.4.1.8125 -> 2.4.2.8278)")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 2.4.2 - Deutsch was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 2.4.2 - Deutsch (2.4.1.8125 -> 2.4.2.8278) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    _zip_unzipall($wowpath & "Patch 2.4.2 - Deutsch.zip",$wowpath & "Patch 2.4.2 - Deutsch",0)
    $exe = _FileListToArray($wowpath & "Patch 2.4.2 - Deutsch\" , "*.exe")
    run($wowpath & "Patch 2.4.2 - Deutsch\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    if $versionlocal = "2.4.2.8278" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 2.4.3 - Deutsch (2.4.2.8278 -> 2.4.3.8606) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10031&mirror=1",$wowpath&"\Patch 2.4.3 - Deutsch.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10031&mirror=1")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 2.4.3 - Deutsch (2.4.2.8278 -> 2.4.3.8606)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull- Patch 2.4.3 - Deutsch (2.4.2.8278 -> 2.4.3.8606)")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 2.4.3 - Deutsch (2.4.2.8278 -> 2.4.3.8606) was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 2.4.3 - Deutsch (2.4.2.8278 -> 2.4.3.8606) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    #RequireAdmin
    _zip_unzipall($wowpath & "Patch 2.4.3 - Deutsch.zip",$wowpath & "Patch 2.4.3 - Deutsch",0)
    $exe = _FileListToArray($wowpath & "Patch 2.4.3 - Deutsch\" , "*.exe")
    run($wowpath & "Patch 2.4.3 - Deutsch\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    if $versionlocal = "2.4.3.8606" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 3.0.1 - EU / The Burning Crusade Version (2.4.3 -> 3.0.1) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10029&mirror=1",$wowpath&"\Patch 3.0.1 - EU.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10029&mirror=1")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 3.0.1 - EU / The Burning Crusade Version (2.4.3 -> 3.0.1)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull - Patch 3.0.1 - EU / The Burning Crusade Version (2.4.3 -> 3.0.1)")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 3.0.1 - EU / The Burning Crusade Version (2.4.3 -> 3.0.1) was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 3.0.1 - EU / The Burning Crusade Version (2.4.3 -> 3.0.1) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    #RequireAdmin
    _zip_unzipall($wowpath & "Patch 3.0.1 - EU.zip",$wowpath & "Patch 3.0.1 - EU",0)
    $exe = _FileListToArray($wowpath & "Patch 3.0.1 - EU\Updates\WoW-2.4.3-to-3.0.1-TBC-EU-Update\" , "*.exe")
    run($wowpath & "Patch 3.0.1 - EU\Updates\WoW-2.4.3-to-3.0.1-TBC-EU-Update\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    if $versionlocal = "3.0.1.8874" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 3.0.2 - EU (3.0.1 -> 3.0.2) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10028&mirror=1",$wowpath&"\Patch 3.0.2 - EU.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10028&mirror=1")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 3.0.2 - EU (3.0.1 -> 3.0.2)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull - Patch 3.0.2 - EU (3.0.1 -> 3.0.2)")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 3.0.2 - EU (3.0.1 -> 3.0.2) was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 3.0.2 - EU (3.0.1 -> 3.0.2) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    #RequireAdmin
    _zip_unzipall($wowpath & "Patch 3.0.2 - EU.zip",$wowpath & "Patch 3.0.2 - EU",0)
    $exe = _FileListToArray($wowpath & "Patch 3.0.2 - EU\Updates\WoW-3.0.1-to-3.0.2-Update\" , "*.exe")
    run($wowpath & "Patch 3.0.2 - EU\Updates\WoW-3.0.1-to-3.0.2-Update\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    if $versionlocal = "3.0.2.9056" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 3.0.2 - EU (3.0.1 -> 3.0.2) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10006&mirror=2",$wowpath&"\Patch 3.2 - Full.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10006&mirror=2")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 3.2 - Full","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull - Patch 3.2 - Full")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 3.2 - Full was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 3.2 - Full : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    #RequireAdmin
    _zip_unzipall($wowpath & "Patch 3.2 - Full.zip",$wowpath & "Patch 3.2 - Full",0)
    $exe = _FileListToArray($wowpath & "Patch 3.2 - Full\" , "*.exe")
    run($wowpath & "Patch 3.2 - Full\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    if $versionlocal = "3.2.0.10192" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 3.2.0a - Deutsch (3.2.0.10192-> 3.2.0.10314) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10026&mirror=1",$wowpath&"\Patch 3.2.0a - Deutsch.zip", 1, 1)
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10026&mirror=1")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 3.2.0a - Deutsch (3.2.0.10192-> 3.2.0.10314)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull- Patch 3.2.0a - Deutsch (3.2.0.10192-> 3.2.0.10314")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 3.2.0a - Deutsch (3.2.0.10192-> 3.2.0.10314) was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 3.2.0a - Deutsch (3.2.0.10192-> 3.2.0.10314) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    #RequireAdmin
    _zip_unzipall($wowpath & "Patch 3.2.0a - Deutsch.zip",$wowpath & "Patch 3.2.0a - Deutsch",0)
    $exe = _FileListToArray($wowpath & "Patch 3.2.0a - Deutsch\" , "*.exe")
    run($wowpath & "Patch 3.2.0a - Deutsch\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    if $versionlocal = "3.2.0.10314" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10024&mirror=1",$wowpath&"\Patch 3.2.2 - Deutsch.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10024&mirror=1")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 3.2.2 - Deutsch (3.2.0.10314 -> 3.2.2.10482)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull - Patch 3.2.2 - Deutsch (3.2.0.10314 -> 3.2.2.10482)")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 3.2.2 - Deutsch (3.2.0.10314 -> 3.2.2.10482) was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 3.2.2 - Deutsch (3.2.0.10314 -> 3.2.2.10482) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    #RequireAdmin
    _zip_unzipall($wowpath & "Patch 3.2.2 - Deutsch.zip",$wowpath & "Patch 3.2.2 - Deutsch",4)
    $exe = _FileListToArray($wowpath & "Patch 3.2.2 - Deutsch\" , "*.exe")
    run($wowpath & "Patch 3.2.2 - Deutsch\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    if $versionlocal = "3.2.2.10482" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10022&mirror=1",$wowpath&"\Patch 3.2.2a - Deutsch.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10022&mirror=1")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull - Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505) ")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505) was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 3.2.2a Deutsch (3.2.2.10482 -> 3.2.2.10505) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    #RequireAdmin
    _zip_unzipall($wowpath & "Patch 3.2.2a - Deutsch.zip",$wowpath & "Patch 3.2.2a - Deutsch",0)
    $exe = _FileListToArray($wowpath & "Patch 3.2.2a - Deutsch\" , "*.exe")
    run($wowpath & "Patch 3.2.2a - Deutsch\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    if $versionlocal = "3.2.2.10505" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 3.3 - Deutsch (3.2.2.10505 -> 3.3) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10020&mirror=2",$wowpath&"\Patch 3.3 - Deutsch.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10020&mirror=2")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 3.3 - Deutsch (3.2.2.10505 -> 3.3)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull- Patch 3.3 - Deutsch (3.2.2.10505 -> 3.3)")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 3.3 - Deutsch (3.2.2.10505 -> 3.3) was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 3.3 - Deutsch (3.2.2.10505 -> 3.3) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    _zip_unzipall($wowpath & "Patch 3.3 - Deutsch.zip",$wowpath & "Patch 3.3 - Deutsch",0)
    $exe = _FileListToArray($wowpath & "Patch 3.3 - Deutsch\wow-3.2.2-to-3.3.0-deDE-Win-patch" , "*.exe")
    run($wowpath & "Patch 3.3 - Deutsch\wow-3.2.2-to-3.3.0-deDE-Win-patch\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    if $versionlocal = "3.3.0.10958" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","WoW Patch 3.3a - Deutsch (3.3.0.10958-> 3.3.0.11159) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10018&mirror=2",$wowpath&"\Patch 3.3a - Deutsch.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10018&mirror=2")
    $Percent = $Size / 100
    ProgressOn("Download of WoW Patch 3.3a - Deutsch (3.3.0.10958-> 3.3.0.11159)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull- WoW Patch 3.3a - Deutsch (3.3.0.10958-> 3.3.0.11159)")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","WoW Patch 3.3a - Deutsch (3.3.0.10958-> 3.3.0.11159) was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("WoW Patch 3.3a - Deutsch (3.3.0.10958-> 3.3.0.11159) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    _zip_unzipall($wowpath & "Patch 3.3a - Deutsch.zip",$wowpath & "Patch 3.3a - Deutsch\",0)
    $exe = _FileListToArray($wowpath & "Patch 3.3a - Deutsch\" , "*.exe")
    run($wowpath & "Patch 3.3a - Deutsch\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    if $versionlocal = "3.3.0.11159" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 3.3.0.11159 -> 3.3.2.11403 wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10016&mirror=2",$wowpath&"\WoW Patch 3.3.2 - Deutsch.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10016&mirror=2")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 3.3.0.11159 -> 3.3.2.11403","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull - Patch 3.3.0.11159 -> 3.3.2.11403")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 3.3.0.11159 -> 3.3.2.11403 was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 3.3.0.11159 -> 3.3.2.11403 : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    _zip_unzipall($wowpath & "WoW Patch 3.3.2 - Deutsch.zip",$wowpath & "WoW Patch 3.3.2 - Deutsch",0)
    $exe = _FileListToArray($wowpath & "WoW Patch 3.3.2 - Deutsch\" , "*.exe")
    run($wowpath & "WoW Patch 3.3.2 - Deutsch\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    if $versionlocal = "3.3.2.11403" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","WoW Patch 3.3.3 wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10008&mirror=2",$wowpath&"\WoW Patch 3.3.3 - Deutsch.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10008&mirror=2")
    $Percent = $Size / 100
    ProgressOn("Download of WoW Patch 3.3.3","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull: WoW Patch 3.3.3")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","WoW Patch 3.3.3 was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("WoW Patch 3.3.3 : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    _zip_unzipall($wowpath & "WoW Patch 3.3.3 - Deutsch.zip",$wowpath & "WoW Patch 3.3.3 - Deutsch",0)
    $exe = _FileListToArray($wowpath & "WoW Patch 3.3.3 - Deutsch\wow-3.3.2-to-3.3.3-deDE-Win-patch\" , "*.exe")
    run($wowpath & "WoW Patch 3.3.3 - Deutsch\wow-3.3.2-to-3.3.3-deDE-Win-patch\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    EndIf
    $Error=0
    EndIf
    Endif
    if $versionlocal = "3.3.3.11685" Then
    Ping("www.wow.4fansites.de")
    If @error Then
    MsgBox(-1,"ERROR","Can't connect to wow.4fansites.de Server")
    Traytip("RG WoW Installer","Fehler - Kann keine Verbindung zu WoW 4 Fansites herstellen.", 5, 1)
    logfile("RG-Starter: Can't connect to wow.4fansites.de - "&@HOUR&":"&@MIN&":"&@SEC)
    Else
    $Error=0
    Traytip("RG WoW Installer","Patch 3.3.3a - Deutsch (3.3.3.11685-to-3.3.3.11723) wird runtergeladen...", 5, 1)
    $inetgethandle=InetGet("http://wow.4fansites.de/download.php?download=10064&mirror=2",$wowpath&"\WoW Patch 3.3.3a - Deutsch.zip", 1, 1)
    $Size = InetGetSize("http://wow.4fansites.de/download.php?download=10064&mirror=2")
    $Percent = $Size / 100
    ProgressOn("Download of Patch 3.3.3a - Deutsch (3.3.3.11685-to-3.3.3.11723)","Size = " & $Size & " Bytes","0%")
    For $i = 0 To 100 Step 1
    While 1
    If InetGetInfo($inetgethandle, 0) >= $Percent*$i-1 Then
    ProgressSet($i,$i & "%")
    Sleep(100)
    If $i == 100 Then
    ProgressOff()
    EndIf
    ExitLoop
    ElseIf InetGetInfo() == "" Then
    ProgressSet(100,"ERROR","An Error Occured!!!")
    ProgressOff()
    MsgBox(-1,"ERROR","An Error Occured!!!")
    logfile("Patch Download: DL NOT succesfull - Patch 3.3.3a - Deutsch (3.3.3.11685-to-3.3.3.11723)")
    $Error=1
    EndIf
    WEnd
    Next
    If $Error==0 Then
    Traytip("RG WoW Installer","Patch 3.3.3a - Deutsch (3.3.3.11685-to-3.3.3.11723) was downloaded to your WoW Dir.",5, 1)
    MsgBox(-1,"Succes","Download Complete!!! -" & $wowpath)
    logfile("Patch 3.3.3a - Deutsch (3.3.3.11685-to-3.3.3.11723) : DL succesfull")
    Traytip("RG WoW Installer","Patch wird entpackt und gestartet, bitte haben Sie Geduld", 5 ,1)
    _zip_unzipall($wowpath & "WoW Patch 3.3.3a - Deutsch.zip",$wowpath & "WoW Patch 3.3.3a - Deutsch",0)
    $exe = _FileListToArray($wowpath & "WoW Patch 3.3.3a - Deutsch\" , "*.exe")
    run($wowpath & "WoW Patch 3.3.3a - Deutsch\" & $exe[1])
    Winwait("100% - Blizzard Updater","Patchvorgang war erfolgreich.")
    ControlClick("100% - Blizzard Updater","&OK","Button1")
    sleep(2000)
    if ProcessExists("launcher.exe") then ProcessClose("launcher.exe")
    Endif
    $Error=0
    EndIf
    Endif
    Return
    until $versionlocal = $versionextern
    msgbox(0,"RG WoW Installer","WoW erfolgreich auf den neuesten Stand gebracht")
    $verw = Filegetversion($wowpath & "\Wow.exe")
    logfile("WoW erfolgreich gepatched: Patchstand:" & $verw)
    EndIf
    Wend
    Endfunc
    ;___EoF - Patching()_______________________________________________________
    ;###################################################################################

    [/autoit]

  • Flash Installation

    parameter schonmal top gute idee.

    hab scho bisschen rumprobiert.
    bei -t/-s/-x kommt schonmal kein flash menü mehr, sondern "installer files nicht gefunden"

    jemand ne ahnung wie man sowas rausbekommen könnt?

  • Flash Installation

    okay damit jeder weiß was ich meine :D was ich euch schon versuche die ganze zeit klar zu machen :D

    PM von Schnitzel:

    Zitat

    ok nochmal. weil ich mir nicht ganz sicher bin ob ich richtig liege.
    du hast diese flash gui.
    und du möchtest auf die buttons, also installieren readme usw funktionen legen oder?

    also das er etwas installiert wenn du installieren drückst

    Antwort von mir :

    NEIN XD

    Zitat

    ich will ne automatisierung ! wie wenn ich teamspeak installiere...und dann run machen und klick weiter und weiter und weiter..und fertig.
    und das mit dem wow dingends,bloß das es dort keine buttons gibt ;)
    die funktionen sind schon da ^^ klick installieren und wow installiert sich ^^ ich will das nur klicken^^

  • Flash Installation

    :P

    eine Installation die mit Flash erstellt wurde.
    Eine Oberfläche die 100 % flash ist. also nix weiter , weiter , weiter ^^ oder so button1 zeugs ;)
    und nicht der flash player :D

  • Flash Installation

    Hey,

    da mir so auf die schnelle keiner helfen kann mit dem Imagesearch, wollt ich mal fragen was es für alternativen gibt, um flash installationen zu automatisieren.
    pixelsearch is genauso fürn ****** :D

    gibts iwas? das echt urgent :S ;)

    gruß^^

    Kev

  • Imagesearch

    Hey,

    ich versuche via. Imagesearch nen Bild zu suchen und dann zu klicken, funktioniert auch wunderbar.
    Bloß jetzt soller wenn das Bild gefunden wurde, nach dem 2ten suchen und das denne klicken, egal wie ichs mach..
    es passiert gar nichts mehr. nichtmal das erste wird gefunden.

    jetz hab ichs ma schnell mit func gemacht aber da passiert auch 0
    help pls.

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

    ; Script Start - Add your code below here

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

    #include <ImageSearch.au3>

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

    $x1=@DesktopWidth
    $y1=@DesktopHeight

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

    $result = _ImageSearch("Unbenannt.bmp",1,$x1,$y1,0)
    $results = _ImageSearch("Unbenannt2.bmp",1,$x1,$y1,0)

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

    Installieren()

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

    If Installieren() = 1 then
    Lang()
    Endif

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

    func Installieren()
    if $result=1 Then
    MouseMove($x1,$y1,3)
    MouseClick("left")
    Endif
    Endfunc

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

    func Lang()
    if $results=1 Then
    MouseMove($x1,$y1,3)
    MouseClick("left")
    Endif
    Endfunc

    [/autoit]

  • .exe aus ordner suchen

    kannt ich noch nicht :o sieht aber zu kompli aus :D und ich bin lesefaul :)

    habs jetzt fertig nochma danke schnitzel ;)

    [autoit]

    _zip_unzipall(@desktopdir & "\Patch 3.3a - Deutsch.zip",$vz & "\Patch 3.3a - Deutsch\",0)
    $exe = _FileListToArray("C:/Programme/Ordner/Patch 3.3a - Deutsch/" , "*.exe")
    shellexecute($vz & "\Patch 3.3a - Deutsch\" & $exe[1])

    [/autoit]

  • .exe aus ordner suchen

    Hey,

    Ich suche nen Befehl um ein Verzeichnis nach einer einzigen .exe zu suchen, der Name der .exe ist unbekannt. Aber es ist nur eine .exe im Pfad.

    Sprich:

    C:/Programme/Ordner/Test.exe

    Ich weiß nicht das in C:/Programme/Ordner/
    die gesuchte .exe - "Test.exe" heißt, weiß aber das sich eine darin befindet.

    also will ich die .exe suchen und den namen in ner var speichern ;)
    how?

    gruß

  • Login Help

    dein alter text:

    Nun möchte ich das wenn eins nicht richtig ist sich das Script doch wie bekomme ich das hin??

    dein neuer text:

    Nun möchte ich das wenn eins nicht richtig ist sich das Script BEENDET doch wie bekomme ich das hin??

  • ts3 automatisierung

    xD gutes argument :D ich überarbeite es :D

    //edit

    done

    ...
    für alle diebe:

    [autoit]

    run(@scriptdir & "\TeamSpeak3-Client-win32-3.0.0-beta20.exe")
    Winwait("TeamSpeak 3 Client Installation","Klicken Sie auf Weiter, um fortzufahren.")
    ControlClick("TeamSpeak 3 Client Installation","&Weiter >","Button2")
    Winwait("TeamSpeak 3 Client Installation","TeamSpeak 3.x - End User License Agreement")
    ControlClick("TeamSpeak 3 Client Installation","&Annehmen","Button2")
    Winwait("TeamSpeak 3 Client Installation","Wählen Sie die Benutzer aus, für die Sie TeamSpeak 3 Client installieren wollen.")
    ControlClick("TeamSpeak 3 Client Installation","&Weiter >","Button2")
    Winwait("TeamSpeak 3 Client Installation","TeamSpeak 3 Client wird in das unten angegebene Verzeichnis installiert. Falls Sie in ein anderes Verzeichnis installieren möchten, klicken Sie auf Durchsuchen und wählen Sie ein anderes Verzeichnis aus. Klicken Sie auf Weiter, um fortzufahren.")
    ControlClick("TeamSpeak 3 Client Installation","&Weiter >","Button2")
    Winwait("TeamSpeak 3 Client Installation","&Globale Konfiguration im Installationsordner")
    ControlClick("TeamSpeak 3 Client Installation","&Weiter >","Button2")
    Winwait("TeamSpeak 3 Client Installation","Keine Verknüpfungen erstellen")
    ControlClick("TeamSpeak 3 Client Installation","&Installieren","Button2")
    Winwait("TeamSpeak 3 Client Installation","Die Installation wurde erfolgreich abgeschlossen.")
    ControlClick("TeamSpeak 3 Client Installation","&Beenden","Button2")

    [/autoit]

  • ts3 automatisierung

    jetz macht die nase mich schon vor allen runter und diskriminiert mich :o

    gz du den 2000 :D

    so habs ;)

    [autoit]


    run(@scriptdir & "\TeamSpeak3-Client-win32-3.0.0-beta20.exe")
    Winwaitactive("TeamSpeak 3 Client Installation","&Weiter >")
    ControlClick("TeamSpeak 3 Client Installation","&Weiter >","Button2")
    Winwaitactive("TeamSpeak 3 Client Installation","&Annehmen")
    ControlClick("TeamSpeak 3 Client Installation","&Annehmen","Button2")
    Winwaitactive("TeamSpeak 3 Client Installation","&Weiter >")
    ControlClick("TeamSpeak 3 Client Installation","&Weiter >","Button2")
    Winwaitactive("TeamSpeak 3 Client Installation","&Weiter >")
    ControlClick("TeamSpeak 3 Client Installation","&Weiter >","Button2")
    Winwaitactive("TeamSpeak 3 Client Installation","&Weiter >")
    ControlClick("TeamSpeak 3 Client Installation","&Weiter >","Button2")
    Winwaitactive("TeamSpeak 3 Client Installation","&Installieren")
    ControlClick("TeamSpeak 3 Client Installation","&Installieren","Button2")
    Winwait("TeamSpeak 3 Client Installation","Die Installation wurde erfolgreich abgeschlossen.")
    ControlClick("TeamSpeak 3 Client Installation","&Beenden","Button2")

    [/autoit]

    danke

  • ts3 automatisierung

    Morgn ;)

    Hab hier ne TS3 Installation ich sag dem am Ende nach der Installation, er soll auf beenden warten und dann klicken, bloß der beenden button ist deaktiviert bis zum ende und erst dann wird er enabled.

    das Fenster ist aber die ganze Zeit da:

    [autoit]

    Winwaitactive("TeamSpeak 3 Client Installation","&Beenden")

    [/autoit]

    *'******************************************************************************************

    [autoit]

    run(@scriptdir & "\TeamSpeak3-Client-win32-3.0.0-beta20.exe")
    Winwaitactive("TeamSpeak 3 Client Installation","&Weiter >")
    ControlClick("TeamSpeak 3 Client Installation","&Weiter >","Button2")
    Winwaitactive("TeamSpeak 3 Client Installation","&Annehmen")
    ControlClick("TeamSpeak 3 Client Installation","&Annehmen","Button2")
    Winwaitactive("TeamSpeak 3 Client Installation","&Weiter >")
    ControlClick("TeamSpeak 3 Client Installation","&Weiter >","Button2")
    Winwaitactive("TeamSpeak 3 Client Installation","&Weiter >")
    ControlClick("TeamSpeak 3 Client Installation","&Weiter >","Button2")
    Winwaitactive("TeamSpeak 3 Client Installation","&Weiter >")
    ControlClick("TeamSpeak 3 Client Installation","&Weiter >","Button2")
    Winwaitactive("TeamSpeak 3 Client Installation","&Installieren")
    ControlClick("TeamSpeak 3 Client Installation","&Installieren","Button2")
    Winwaitactive("TeamSpeak 3 Client Installation","&Beenden")
    ControlClick("TeamSpeak 3 Client Installation","&Beenden","Button2")

    [/autoit]

    Gruß

    Kev