GUICreate - Schließen ohne Exit, aber Wie? 8D

1. offizieller Beitrag

    Hey!

    Ich arbeite immer noch an meinem Diablo II Spam Bot.
    Ich habe jetzt einen GUICreate gemacht, es klappt auch alles.
    Aber man kann das Fenster das aufgeht nicht Per [X]* Schließen.
    Man kann das ganze nur per Exit unten in der Taskleiste schließen.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    $gui=GUICreate("Diablo II Spam Bot", 300, 200)
    ; background picture
    $background = GUICtrlCreatePic ("background_pic.jpg", 0, 0, 300, 200)
    GUISetState(@SW_SHOW)

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

    do
    $msg = GUIGetMsg()

    until $msg = $GUI_EVENT_CLOSE

    [/autoit]

    Falls jemand den kompletten Bot sehen will, hier im Hide

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>

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

    $gui=GUICreate("Diablo II Spam Bot", 300, 200)
    ; background picture
    $background = GUICtrlCreatePic ("background_pic.jpg", 0, 0, 300, 200)
    GUISetState(@SW_SHOW)

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

    do
    $msg = GUIGetMsg()

    until $msg = $GUI_EVENT_CLOSE

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

    Opt("SendKeyDelay", 1) ;1 milliseconds
    Do
    Sleep(1000)
    If WinActive("Diablo II") Then
    HotKeySet("^a", "_send1")
    HotKeySet("^s", "_send2")
    HotKeySet("^d", "_send3")
    Else
    HotKeySet("^a")
    HotKeySet("^s")
    HotKeySet("^d")
    EndIf
    Until False

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

    Func _send1()
    Send("{enter}")
    Send("eZPK over Europe. Gtfo /delete Asap{!}")
    Send("{enter}")
    EndFunc ;==>_send1

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

    Func _send2()
    Send("{enter}")
    Send("~*~ Have Fun & Good Luck - Don't Rage{!} ~*~")
    Send("{enter}")
    EndFunc ;==>_send2

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

    Func _send3()
    Send("{enter}")
    Send("~*~ Text Text ~*~")
    Send("{enter}")
    EndFunc ;==>_send3

    [/autoit]

    * Mit [X] meine ich den normalen Schließ-Button, welchen man auch zum schließen von Internetseiten/... verwendet

    Ich hoffe ihr könnt mir weiterhelfen, ich habe in der Help nicht's gefunden.

    Gruß
    Falko

    warum machst du das nicht so?

    [autoit]

    #include <GUIConstants.au3>

    $gui=GUICreate("Diablo II Spam Bot", 300, 200)
    ; background picture
    $background = GUICtrlCreatePic ("background_pic.jpg", 0, 0, 300, 200)
    GUISetState(@SW_SHOW)

    While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then Exit
    WEnd

    [/autoit]

    und zweites dein Skript funktioniert bei mir ohne Probleme es schließt sich wenn ich [X] klicke

    hallo,

    hillft das weiter ?

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>

    $gui=GUICreate("Diablo II Spam Bot", 300, 200)
    ; background picture
    $background = GUICtrlCreatePic ("background_pic.jpg", 0, 0, 300, 200)
    GUISetState(@SW_SHOW)
    ;
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd
    ;

    [/autoit]

    *omg - bin ich heute langsam ... *

    MfG
    trallala

    Einmal editiert, zuletzt von trallala (22. April 2007 um 13:38)

    • Offizieller Beitrag

    Hallo!

    Das Problem ist das nach dem until $msg = $GUI_EVENT_CLOSE das Script nicht zu ende ist sonder eine zweite Do .. Until-Schleife beginnt. Wenn Du nach dem der ersten Schleife ein GuiDelete für die Gui aufrufst wird das Fenster geschlossen!

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

    $gui=GUICreate("Diablo II Spam Bot", 300, 200)
    ; background picture
    $background = GUICtrlCreatePic ("background_pic.jpg", 0, 0, 300, 200)
    GUISetState(@SW_SHOW)

    do
    $msg = GUIGetMsg()

    until $msg = $GUI_EVENT_CLOSE

    GUIDelete($gui)

    Opt("SendKeyDelay", 1) ;1 milliseconds
    Do
    Sleep(1000)
    If WinActive("Diablo II") Then
    HotKeySet("^a", "_send1")
    HotKeySet("^s", "_send2")
    HotKeySet("^d", "_send3")
    Else
    HotKeySet("^a")
    HotKeySet("^s")
    HotKeySet("^d")
    EndIf
    Until False

    Func _send1()
    Send("{enter}")
    Send("eZPK over Europe. Gtfo /delete Asap{!}")
    Send("{enter}")
    EndFunc ;==>_send1

    Func _send2()
    Send("{enter}")
    Send("~*~ Have Fun & Good Luck - Don't Rage{!} ~*~")
    Send("{enter}")
    EndFunc ;==>_send2

    Func _send3()
    Send("{enter}")
    Send("~*~ Text Text ~*~")
    Send("{enter}")
    EndFunc ;==>_send3

    [/autoit]

    Jau danke, es klappt