Anfang^^

    Global $Button1
    Global $Button2

    #include <GUIConstants.au3>

    GUICreate("test von de4gLe")
    GUISetState (@SW_SHOW)

    Opt("GUICoordMode",2)
    $Button1 = GUICtrlCreateButton ("OK", 150, 150, 50)
    $Button2 = GUICtrlCreateButton ( "Cancel", 0, -1)

    GUISetState ()
    Select
    Case $Button1 = MsgBox(64,"","lol gut gemacht")

    Case $Button2 = Shutdown(1)

    EndSelect

    While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    Wend

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>
    GUICreate("test von de4gLe")
    $Button1 = GUICtrlCreateButton ("OK", 150, 150, 50)
    $Button2 = GUICtrlCreateButton ( "Cancel", 0, -1)
    GUISetState ()
    While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    If $msg = $Button1 Then MsgBox(64,"","lol gut gemacht")
    If $msg = $Button2 Then MsgBox(64,"","fahre herunter")
    Wend

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

    BZW mit Select

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>

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

    GUICreate("test von de4gLe")
    $Button1 = GUICtrlCreateButton ("OK", 150, 150, 50)
    $Button2 = GUICtrlCreateButton ( "Cancel", 0, -1)
    GUISetState ()

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

    While 1
    $msg = GUIGetMsg()

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

    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    Case $msg = $Button1
    MsgBox(64,"","lol gut gemacht")
    Case $msg = $Button2
    MsgBox(64,"","fahre herunter")
    EndSelect

    Wend

    [/autoit]

    Russisches Roulette:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>

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

    GUICreate("Russisches Roulette")
    $Button1 = GUICtrlCreateButton ("Schießen", 150, 150, 50)
    GUISetState ()

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    Case $msg = $Button1
    If Random() < 0.5 Then
    MsgBox(0,"","Click..")
    Else
    MsgBox(16,"","Peng..")
    Shutdown(1)
    EndIf
    EndSelect
    Wend

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