EXIT auch in einer Schleife verfügbar?

    Guten Abend,
    ich hab da mal ne frage:

    hab Versucht durch den X-Button das Programm zu beenden, wenn ich schon auf Connect geklickt habe, und das brachte mich zur folgenden frage:

    wie kann ich den EXIT-Befehl aufrufen, wenn ich schon in der Connect-schleife bin...???


    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    TCPStartup ()

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

    $Form1 = GUICreate("Form1", 421, 202, 192, 114)

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

    $L_IP = GUICtrlCreateInput("127.0.0.1", 16, 8, 161, 21)

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

    $B_Connect = GUICtrlCreateButton("Connect!", 208, 8, 145, 25, $WS_GROUP)

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

    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    $event = $GUI_EVENT_CLOSE
    Switch $nMsg
    Case $B_Connect
    Connect ()
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

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

    Func Connect()
    Do
    $Mainsocket = TCPListen ($L_IP, 1234)
    Until $Mainsocket <> -1
    MsgBox (0, "", "Connect")
    EndFunc

    [/autoit]

    Vielen dank für eure antworten

    Einmal editiert, zuletzt von Mr_gitarre (3. April 2010 um 07:50)

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

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    TCPStartup ()

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

    $Form1 = GUICreate("Form1", 421, 202, 192, 114)

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

    $L_IP = GUICtrlCreateInput("127.0.0.1", 16, 8, 161, 21)

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

    $B_Connect = GUICtrlCreateButton("Connect!", 208, 8, 145, 25, $WS_GROUP)

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

    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    $event = $GUI_EVENT_CLOSE
    Switch $nMsg
    Case $B_Connect
    Connect ()
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

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

    Func Connect()
    Do
    if GUIGetMsg() = $GUI_EVENT_CLOSE then
    exit
    endif
    $Mainsocket = TCPListen ($L_IP, 1234)
    Until $Mainsocket <> -1
    MsgBox (0, "", "Connect")
    EndFunc

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


    [MSIE_newline_end ]

    hmm...
    stimmt....!!!

    ich muss ja nochmal in der schleife danach fragen, geht wohl nich anders...

    Vielen dank;) :)


    Und das mit dem ON Event mode versteh ich nich so ganz...:(