Beiträge von autoBert

  • JaYT-DwiMP3-P (YT-Downloader) Version 0.8.7.1

    Neues Update auf 0.8.4.6 (siehe Post #)

    da bei abgebrochenen Downloads danach die Titellänge nicht mehr ermittelt wurde. Des weiteren wird jetzt wenn _SoundGetWaveVolume 0 zurückgibt dieser Wert nicht mehr in die Ini geschrieben.
    Die Virenwächter scheinen jetzt mein Programm zu akzeptieren, denn Ergebnis immer noch 0,
    siehe http://www.virustotal.com/de/analisis/c9…1abd-1276455495

    Das dürfte das letzte Update für die nächste Zeit gewesen sein, ausser es meldet jemand noch gravierende Fehler. Für Anfang Herbst ist ein großes Update geplant, bei dem mehrere Downloads parallel durchgeführt werden können. Eventuell will ich auch die Titellänge, Interpret als ID3-Tag in die Files schreiben.
    Wenn ihr Wünsche, Anregungen habt als her damit.

    @ngamer999,

    Zitat von ngamer999

    Kleiner Vorschlag:
    Wie wärs wenn du den Lautstärke-Regler "umkehren" würdest?

    [autoit]

    $lautstaerke = GuiCtrlRead($lautstaerkeregler)
    $lautstaerke = 100 - $lautstaerke
    SoundSetWaveVolume ($lautstaerke)

    [/autoit]


    Wenn es nach oben hin leiser wird, find ich das unlogisch^^
    naja nur nen kleiner Vorschlag...

    mir ist es anders herum auch lieber (hatte ich früher auch so) aber dann werden die Tipps (%Wert) des Sliders falsch angegeben.

    Edit: du kannst ja auch NeMP3-P (MP3-Player) nehmen, dort kannst du den Source anpassen (Link siehe Signatr)

    mfg (Auto)Bert

  • JaYT-DwiMP3-P (YT-Downloader) Version 0.8.7.1

    Update auf Version 0.8.4.4 siehe Post #1

    die Cover/Vorschau-Bilder wurden nicht mehr heruntergeladen (kleine Änderung bei YT). Und oh Wunder, das 1. Mal das kein Virenscanner Alarm schlägt.
    Details: http://www.virustotal.com/de/analisis/18…909b-1276405490

    und gleich noch ein Update hinterher (bitte in Post #1 downloaden) Änderungen beim Umlaute-/Sonderzeichen ersetzen.
    Prüfung bei Virustotal.com http://www.virustotal.com/de/analisis/06…f0c3-1276435813

    mfg (Auto)Bert

  • Datei downloaden, und Status anzeigen

    Hallo HopeFail,

    mach es so:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    Global $download
    Global $progress
    Global $size

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

    GUICreate("Download", 500, 100)
    GUISetState(@SW_SHOW)
    $startbutton = GUICtrlCreateButton("Start", 20, 20, 450, 30)
    $progressbar = GUICtrlCreateProgress(20, 60, 450, 30)

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

    While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
    ExitLoop
    Case $startbutton
    $size = InetGetSize("http://www.29soft.com/pc_game_download/download.asp?fid=914")
    $download = InetGet("http://www.29soft.com/pc_game_download/download.asp?fid=914", "busdriver_setup-dm.exe", 1, 1)
    Do
    $progress = InetGetInfo($download, 0)
    ;$size=InetGetInfo($download,1) ist nicht immer verfügbar siehe Hilfe
    $percentage = $progress * 100 / $size
    GUICtrlSetData($progressbar, $percentage)
    ;ConsoleWrite($progress & "/" & $size & @CRLF)
    Until InetGetInfo($download, 2)

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

    EndSwitch
    WEnd

    [/autoit]

    dein Skript konnte aus verschiedenen Gründen nichts anzeigen

    • du hast inetget ohne den Parameter für im Hintergrund laden gestartet, dadurch wird die Datei erst komplett heruntergeladen und dann mit der Skriptausführung weitergemacht
    • die Berechnung des Progress war ausserhalb der Schleife

    mfg (Ato)Bert

  • Datei downloaden, und Status anzeigen

    Zitat von Darter

    Nein
    hier

    [autoit]

    GUICtrlSetData($Progress,100/$Don_size*InetGetInfo($hDon_file,1))

    [/autoit]


    rechne ich 100 / Herunterzulanden * bereits Heruntergeladen ;)

    wenn $Don_size die Gesamtgröße des Downloads ist [Edit: stimmt da $Don_size = InetGetSize($Don_Link)], rechnest du da

    [autoit]

    InetGetInfo($hDon_file,1)

    [/autoit]

    ja ebenfalls die Gesamtgröße des Downloads zurückgibt 100/herunterzuladen*herunterzuladen ergibt also immer 100%

    mfg (Auto)Bert

  • Datei downloaden, und Status anzeigen

    Darter,

    deine Prozentberechnung ist immer noch falsch:

    [autoit]

    GUICtrlSetData($Progress,100/$Don_size*InetGetInfo($hDon_file,1))

    [/autoit]

    = 100 / bereits Heruntergeladen * Herunterzuladen. Angenommen das File hat 1000 Bytes, 50 davon sind bereits heruntergeladen dann kommt nach deiner Formel 100 / 50 * 1000 2000% heraus.

    mfg (Auto)Bert

  • Datei downloaden, und Status anzeigen

    Hallo CheesButter,

    versuch mal diese Variante, die MsgBox am Ende gibt mehr Informationen:

    Spoiler anzeigen
    [autoit]

    Opt("GUIOnEventMode", 1)

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

    $sLocalFile = @DesktopDir & "\JaYT-DwiMP3-P.exe" ;YouTube-Downloader
    GUICreate("Downloader", 200, 200)
    Global $Status = GUICtrlCreateLabel("",10, 50, 180, 20,0x01)
    Global $Progress = GUICtrlCreateProgress(10, 80, 180, 20)
    GUICtrlCreateButton("Donwload", 70, 160, 60, 20)
    GUICtrlSetOnEvent(-1, "Download")
    GUISetOnEvent(-3, "_exit")
    GUISetState()
    Global $Don_Link = "http://www.autoit.de/index.php?page=Attachment&attachmentID=9962&h=67e7e3c22cfb4ce801c2728d5ac852466455cd9f"

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

    While 1
    Sleep(100)
    WEnd

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

    Func Download()
    $iSizeTo = InetGetSize($Don_Link)
    $hDon_file = InetGet($Don_Link, $sLocalFile, 1, 1)
    if $iSizeTo = 0 Then $iSizeTo = InetGetInfo($hDon_file, 1)
    $iSizeTo = Round($iSizeTo / 1024,0)
    Do
    $iSizeDone = Round(InetGetInfo($hDon_file, 0) / 1024,0)
    $iProz = Round($iSizeDone / $iSizeTo * 100,0)
    GUICtrlSetData($Progress, $iProz)
    GUICtrlSetData($Status,$iSizeDone & "/" & $iSizeTo & " KB = " & $iProz & "%")
    Sleep(1000)
    Until InetGetInfo($hDon_file, 2)
    Local $aData = InetGetInfo($hDon_file) ; Hole alle Informationen.
    InetClose($hDon_file) ; Handle schließen um die Resourcen freizugeben.
    MsgBox(0, "", "Bytes gelesen: " & $aData[0] & @CRLF & _
    "Größe: " & $aData[1] & @CRLF & _
    "Komplett?: " & $aData[2] & @CRLF & _
    "Erfolgreich?: " & $aData[3] & @CRLF & _
    "@error: " & $aData[4] & @CRLF & _
    "@extended: " & $aData[5] & @CRLF)
    Exit
    EndFunc ;==>Download

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

    Func _exit()
    Exit
    EndFunc ;==>_exit

    [/autoit]

    die Prozentereechnung habe ich geändert (stimmt jetzt) und das DownLoad-File habe ich auch ausgetauscht,

    mfg (Auto)Bert

  • AD Gruppenmitglieder in eine andere bestehende Gruppe einpflegen

    Die Fehlermeldung sagt aus, dass $aUserGr kein Array ist, das heisst hier

    [autoit]

    ;jetzt werden alle Gruppen des Users eingelesen
    $aUserGr = _AD_GetUserGroups($User)

    [/autoit]

    wurde nichts zurückgeben. Entweder die Funktion ist fehlerhaft oder der User ist in keiner Gruppe Mitglied. Mit

    [autoit]

    if IsArray($aUserGr) then
    ...
    endif

    [/autoit]

    kannst du den Fehler vermeiden. Ob dein Skript dann das gewünschte Ergebnis liefert weis ich leider nicht,

    mfg (Ato)Bert

  • Ordner aus einem Pfad ausfiltern und isolieren (batch umsetzung vorhanden)

    Hallo inferior,

    Spoiler anzeigen
    [autoit]

    #Include <File.au3>
    ;#Include <Array.au3>
    #include <ftp.au3>

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

    $server = "servername"
    $username = "username"
    $pass = "xyz"

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

    $Open = _FTPOpen('MyFTP Control')
    $Conn = _FTPConnect($Open, $server, $username, $pass)
    $aFiles = _FileListToArray(@TempDir & "\Backup", '*.zip', 1)
    if IsArray($aFiles) Then
    For $i = 1 To $aFiles[0]
    $Source = @TempDir & "\Backup\" & $aFiles[$i]
    $Dest = "ServerPfad/" & $aFiles[$i] ;hier anpassen
    ConsoleWrite($Source & " wird nach " & $Dest & "kopiert" & @CRLF)
    $Ftpp = _FtpPutFile($Conn, $Source,$Dest)
    Next
    ;_ArrayDisplay($aFiles)
    Else
    MsgBox(0,"Information","keine ZIPs gefunden")
    EndIf
    $Ftpc = _FTPClose($Open)

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

    die Logik stimmt, der Serverpfad muss auf jedenfallangepasst werden, der Sourcepath stimmt, ich selber habe auf meinem System noch nicht einmal die ftp.au3 und auch keine Hilfe dazu, ändere also evtl die Überschrift in Post #1, damit sich FTP-Spezialisten angesprochen fühlen

    mfg (Auto)Bert

  • Formel 1 Display

    Hallo Darter,

    1. kurzer Test, schönes Design, Schrift etwas zu Klein (NetBook mit 1024*600, wird aber nicht ausgenutzt). Fahrernamen stimmen (ÄÖÜ)

    bei weiteren Programmstart(-Versuchen) jedoch Absturz:

    Spoiler anzeigen
    Code
    >"C:\Programme\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Programme\AutoIt3\Downloads\Darter\Formel1\Formel1 Display 1.1.au3" /autoit3dir "C:\Programme\AutoIt3" /UserParams    
+>21:52:55 Starting AutoIt3Wrapper v.2.0.1.24    Environment(Language:0407  Keyboard:00000407  OS:WIN_XP/Service Pack 3  CPU:X86 OS:X86)
>Running AU3Check (1.54.19.0)  from:C:\Programme\AutoIt3
+>21:52:57 AU3Check ended.rc:0
>Running:(3.3.6.1):C:\Programme\AutoIt3\autoit3.exe "C:\Programme\AutoIt3\Downloads\Darter\Formel1\Formel1 Display 1.1.au3"    
C:\Programme\AutoIt3\Downloads\Darter\Formel1\MyHover.au3 (48) : ==> Subscript used with non-Array variable.:
If $aMouseinfo2[0] > $aGUI_Register_Hover_Infos[3] And $aMouseinfo2[0] < $aGUI_Register_Hover_Infos[3]+$aGUI_Register_Hover_Infos[5]   And   $aMouseinfo2[1] > $aGUI_Register_Hover_Infos[4] And $aMouseinfo2[1] < $aGUI_Register_Hover_Infos[4]+$aGUI_Register_Hover_Infos[6] And WinActive(HWnd($aGUI_Register_Hover_Infos[1]))Then
If $aMouseinfo2^ ERROR
->21:53:08 AutoIT3.exe ended.rc:1
>Exit code: 1    Time: 18.472

    ich habe sogar das rar noch einmal entpackt, leider selbes Ergebnis,

    Edit: Fehler tritt nur auf, wenn beim Programmstart die Maus über dem Anzeigebereich ist

    mfg (Auto)Bert

  • Ordner aus einem Pfad ausfiltern und isolieren (batch umsetzung vorhanden)

    Hallo inferior,

    ich habe mich bis jetzt nur theoretisch mit FTP auseinandergesetzt, würde es aber so lösen:

    Spoiler anzeigen
    [autoit]

    #Include <File.au3>
    ;#Include <Array.au3>
    #include <ftp.au3>

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

    $server = "servername"
    $username = "username"
    $pass = "xyz"

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

    $Open = _FTPOpen('MyFTP Control')
    $Conn = _FTPConnect($Open, $server, $username, $pass)
    $aFiles = _FileListToArray(@TempDir & "\Backup", '*.zip', 1)
    if IsArray($aFiles) Then
    For $i = 1 To $aFiles[0]
    $aFiles[$i] = StringReplace(@TempDir & "\Backup\" & $aFiles[$i],"\","/") ;evtl. unnötig/schädlich
    ConsoleWrite($aFiles[$i] & " wird tarnsferiert" & @CRLF)
    $Ftpp = _FtpPutFile($Conn, $aFiles[$i])
    Next
    ;_ArrayDisplay($aFiles)
    Else
    MsgBox(0,"Information","keine ZIPs gefunden")
    EndIf
    $Ftpc = _FTPClose($Open)

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

    ich habe selbst aber keine Möglichkeit dies zu testen,

    mfg (Auto)Bert

  • Ordner aus einem Pfad ausfiltern und isolieren (batch umsetzung vorhanden)

    ändere so ab:

    Spoiler anzeigen
    [autoit]

    #Include <File.au3>
    #Include <Array.au3>

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

    $aFiles = _FileListToArray(@TempDir & "\Backup", '*.zip', 1)
    if IsArray($aFiles) Then
    For $i = 1 To $aFiles[0]
    $aFiles[$i] = @TempDir & "\Backup\" & $aFiles[$i]
    Next
    _ArrayDisplay($aFiles)
    Else
    MsgBox(0,"Information","keine ZIPs gefunden")
    EndIf

    [/autoit]

    der Fehler tritt auf wenn keine ZIP-Files in @TempDir\Backup gefunden werden,

    Edit: zu langsam

    mfg (Auto)Bert

  • Wecker

    Hallo MrMultiBot,

    jetzt klappts (sogar noch mit kleinem opt. Gimmick):

    Spoiler anzeigen
    [autoit]

    #include <sound.au3>
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <EditConstants.au3>
    #include <date.au3>

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

    #region ### START Koda GUI section ### Form=
    ;NebenForm

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

    $Form1_1 = GUICreate("Wecker...by...Mr.Multibot", 373, 73, 192, 127)
    GUISetIcon("Icon.ico")
    $Input2 = GUICtrlCreateInput("", 264, 8, 97, 21)
    $Label1 = GUICtrlCreateLabel("Aktuelle Zeit: " & _NowTime(), 8, 8, 145, 21)
    $Label2 = GUICtrlCreateLabel("Weckzeit", 184, 8, 61, 17)
    $Button3 = GUICtrlCreateButton("!!!!START!!!!", 8, 40, 353, 25, $WS_GROUP)
    GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
    $State_NF = GUISetState(@SW_SHOW)

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

    ;Hauptform
    $Form1 = GUICreate("Wecker...by...Mr.Multibot", 251, 201, 243, 148)
    GUISetIcon("Icon.ico")
    $Pic1 = GUICtrlCreatePic("Bild.gif", 8, 8, 233, 153, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
    $Button1 = GUICtrlCreateButton("SLEEP", 8, 168, 113, 25, $WS_GROUP)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    $Button2 = GUICtrlCreateButton("STOP", 128, 168, 113, 25, $WS_GROUP)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    ;$State_HF = GUISetState(@SW_HIDE)
    #endregion ### END Koda GUI section ###

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

    $Soundopen = _SoundOpen("Weck_sound.wav")
    While 1
    $nMsg = GUIGetMsg(1)
    Switch $nMsg[1]
    Case $Form1_1
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button3
    GUISetState(@SW_SHOW, $Form1)
    GUISetState(@SW_HIDE, $Form1_1)
    $Weckzeit = GUICtrlRead($Input2)
    While 1
    ;If _NowTime(5) = $Weckzeit Then ;ursprünglich
    If _NowTime(4) = StringLeft($Weckzeit,5) Then
    AdlibRegister("Aufwachen",5000)
    ;$State_HF = GUISetState(@SW_SHOW)
    ExitLoop
    EndIf
    Sleep(40)
    WEnd
    EndSwitch
    Case $Form1
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    _SoundStop($Soundopen)
    $Slummerzeit = IniRead("option.txt", "Schlummer Funktion", "", "")
    ; $State_NF = GUISetState(@SW_HIDE)
    AdlibUnRegister("Aufwachen")
    Sleep($Slummerzeit)
    AdlibRegister("Aufwachen",5000)
    ; $State_NF = GUISetState(@SW_SHOW)
    Case $Button2
    AdlibUnRegister("Aufwachen")
    _SoundClose($Soundopen)
    GUISetState(@SW_HIDE, $Form1)
    GUISetState(@SW_SHOW, $Form1_1)
    EndSwitch
    EndSwitch
    WEnd

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

    Func Aufwachen()
    ConsoleWrite("Aufwachen" & @CRLF)
    _SoundPlay($Soundopen)
    $Pos = ControlGetPos($Form1,"",$Pic1)
    for $i = 1 to 50
    ControlMove($Form1,"",$Pic1,$Pos[0]-5,$Pos[1])
    Sleep(10)
    ControlMove($Form1,"",$Pic1,$Pos[0],$Pos[1]-5)
    Sleep(10)
    ControlMove($Form1,"",$Pic1,$Pos[0]+5,$Pos[1])
    Sleep(10)
    ControlMove($Form1,"",$Pic1,$Pos[0],$Pos[1]+5)
    Sleep(10)
    Next
    EndFunc ;==>Aufwachen

    [/autoit]

    die Vorgängerversion klappt auch schon, nur darfst du dann keine Sekunden mehr eingeben. Sekunden werden auch in dieser Version einfach nicht mehr berücksichtigt,

    mfg (Auto)Bert

  • List Problem (Add , Doubleclick , Context)

    Hallo TuttiFrutti,

    du hast doch im Prinzip schon alles, etwas korrigiert:

    Spoiler anzeigen
    [autoit]

    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <INet.au3>
    #include <string.au3>
    #include <GDIPlus.au3>
    #include <Misc.au3>
    #include <WinAPI.au3>
    #include <ListViewConstants.au3>
    #include <Array.au3>
    #include <File.au3>
    #include <GuiListView.au3>
    #include <SliderConstants.au3>

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

    $hGui = GUICreate("Problem", 234, 162, -1, -1);,$WS_EX_CONTROLPARENT))
    GUISetBkColor(0x00FFFF)
    Global $Anzeige[1] = [GUICtrlCreateListView("", 8, 14, 140, 95, BitOR($LVS_LIST, $LVS_SHOWSELALWAYS),0)]
    _GUICtrlListView_SetExtendedListViewStyle(-1, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT,$LVS_EX_BORDERSELECT))
    GUICtrlSetFont(-1, 10)
    ;GUICtrlSetColor(-1, 0xFFFFFF)

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

    $contextmenu3 = GUICtrlCreateContextMenu($Anzeige[0]) ;<==============
    $hideContext = GUICtrlCreateMenuItem("Hide All", $contextmenu3)
    $showContext = GUICtrlCreateMenuItem("Show All", $contextmenu3)
    _Add()
    GUISetState(@SW_SHOW)
    ;~ GUIRegisterMsg(0x004E, "_DoubleClickOnListView");Die Funktion wird bei einem Klick auf die GUI aufgerufen!
    GUIRegisterMsg($WM_NOTIFY, "_DoubleClickOnListView") ;<====== Bemachrichtigung Doppelklick

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

    While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $hideContext
    MsgBox(0,"","$hideContext")
    Case $ShowContext
    MsgBox(0,"","$ShowContext")

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

    EndSwitch
    WEnd

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

    Func _Add()
    _GUICtrlListView_AddItem($Anzeige[0], "Einstellungen...")
    EndFunc

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

    Func _DoubleClickOnListView($hWnd, $MsgID, $wParam, $lParam);Die Eigentliche Funktion ;<==ausgetauscht
    Local $tagNMHDR, $event, $hwndFrom, $code
    $tagNMHDR = DllStructCreate("int;int;int", $lParam)
    If @error Then Return 0
    $code = DllStructGetData($tagNMHDR, 3)
    If $wParam = $Anzeige[0] Then
    ConsoleWrite($code & @CRLF)
    Switch $code
    ;case -2 ;Klick
    Case -3 ;Doppelklick
    _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($Anzeige[0]))
    MsgBox(0, "Doppel-Klick","ausgeführt")
    EndSwitch
    EndIf
    Return $GUI_RUNDEFMSG
    EndFunc

    [/autoit]

  • InetRead Problem (mal wieder)

    Hallo ProblemUser,

    bei diesem Aufruf kommt ein Fehler: http://local.yahooapis.com/MapsService/V1/geocode?appid=YD-9G7bey8_JXxQP6rxl.fBFGgCdNjoDMACQA--&city=Würzburg evtl. Spezialfall, aber OWB steigt auch aus wenn ich meine Heimatstadt ohne PLZ eingebe. Werde dein neues Skrupt jetzt mit Berlin testen,

    Edit: ja, jetzt verstehe ich dein Problem, das Programm wird zwar nicht beendet aber deine Gui verschwindet. Habe einen (schlechten) Workaround gefunden:

    Spoiler anzeigen
    [autoit]

    While 1

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

    $msg = GUIGetMsg()
    ConsoleWrite($msg & @CRLF)
    if $msg = 0 Then ContinueLoop
    Switch $msg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $picexit, $mExit ; ,$exitContext
    GUISetState(@SW_HIDE, $hGui)
    Case $mSettings, $picsettings
    _Einstellungen()
    Case $picabout, $About
    _About()
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button2
    $map = 100
    _IENavigate($IE, @ScriptDir & "/start.html")
    Case $Button3
    $map = 10
    _IENavigate($IE, @ScriptDir & "/seastart.html")
    Case $search
    If $map = 10 Then
    $func = _Sea()
    Else
    $func = _World()
    EndIf
    Case $Button4
    _About()
    Case $OWBFunks
    If $Wetter = 1 Then
    GUISetState(@SW_HIDE, $hGui)
    Else
    _Weather()
    EndIf
    EndSwitch
    WEnd

    [/autoit]

    du solltest dir "GUIGetMsg für Fortgeschrittene und mehrere Fenster" (Gui Referenz | MessageLoop Modus) anschauen und am Schluss nur noch eine Schleife für alle Fenster benutzen,

    mfg (Auto)Bert
    mfg (Auto)Bert