via. GUI Button Script Pausieren

1. offizieller Beitrag

    Hallo,


    Ich möchte mit einem GUI Button mein Skript Pausieren bis es wieder von vorne gestartet wird. Könnte mir dazu jemand ein wenn möglich einfaches (=simples) Beispielscript im "Case $..." Style erstellen?


    Viele Grüße
    MrM.♥

    Wie wäre es wenn du stattdessen dein vorhandenes Script postest und genauer beschreibst wann, wie und was pausiert werden können soll?
    Es gibt keine allgemein gültige Lösung dafür.

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    #RequireAdmin
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Icon=favicon.ico
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <GUIConstants.au3>
    HotKeySet("{F6}","Exit_")
    Func Exit_()
    Exit
    EndFunc

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

    #Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\fabian\desktop\koda\forms\form.kxf
    $Form1_1 = GUICreate("Form1", 515, 218, 193, 125)
    GUISetBkColor(0x716F64)
    $Button1 = GUICtrlCreateButton("Credits", 184, 80, 153, 33, 0)
    GUICtrlSetFont(-1, 12, 800, 4, "Comic Sans MS")
    GUICtrlSetCursor (-1, 0)
    $Button2 = GUICtrlCreateButton("Adversiting", 352, 80, 153, 33, 0)
    GUICtrlSetFont(-1, 12, 800, 4, "Comic Sans MS")
    GUICtrlSetCursor (-1, 0)
    $Button3 = GUICtrlCreateButton("Informationen", 16, 120, 153, 57, 0)
    GUICtrlSetFont(-1, 12, 800, 4, "Comic Sans MS")
    GUICtrlSetCursor (-1, 0)
    $Button4 = GUICtrlCreateButton("Start", 184, 120, 153, 57, 0)
    GUICtrlSetFont(-1, 12, 800, 4, "Comic Sans MS")
    GUICtrlSetCursor (-1, 0)
    $Button5 = GUICtrlCreateButton("Pause", 352, 120, 153, 57, 0)
    GUICtrlSetFont(-1, 12, 800, 4, "Comic Sans MS")
    GUICtrlSetCursor (-1, 0)
    $Label1 = GUICtrlCreateLabel("Copyright by Bl4CkIsTheBest http://cleanii.eu/ - Webdesigns", 16, 184, 486, 21)
    GUICtrlSetFont(-1, 9, 400, 6, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    ShellExecute("http://cleanii.eu/")
    Exit
    Case $Button1
    MsgBox(0,"Credits","Bl4CkIsTheBest - Coding"&@CRLF&"Cleanii - Design")
    Case $Button2
    ShellExecute("http://cleanii.eu/")
    ShellExecute("http://blackworld3.com/")
    Case $Button3
    Case $Button5
    ;Hier sollte er Pausieren
    Case $Button4
    MsgBox(0,"","Mit F6 beendet sich das Script")

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

    EndSwitch
    WEnd

    [/autoit]


    Eine richtige funktion hat er noch nicht

    [strike]ja wie gesagt bin ich gerade bei der GUI und wie ich es schon schrieben habe hat es noch keine richtige funktion... ich werde mal eine erstellen und dann editieren[/strike]

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    #RequireAdmin
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Icon=favicon.ico
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <GUIConstants.au3>
    HotKeySet("{F6}","Exit_")
    Func Exit_()
    Exit
    EndFunc

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

    #Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\fabian\desktop\koda\forms\form.kxf
    $Form1_1 = GUICreate("Form1", 515, 218, 193, 125)
    GUISetBkColor(0x716F64)
    $Button1 = GUICtrlCreateButton("Credits", 184, 80, 153, 33, 0)
    GUICtrlSetFont(-1, 12, 800, 4, "Comic Sans MS")
    GUICtrlSetCursor (-1, 0)
    $Button2 = GUICtrlCreateButton("Adversiting", 352, 80, 153, 33, 0)
    GUICtrlSetFont(-1, 12, 800, 4, "Comic Sans MS")
    GUICtrlSetCursor (-1, 0)
    $Button3 = GUICtrlCreateButton("Informationen", 16, 120, 153, 57, 0)
    GUICtrlSetFont(-1, 12, 800, 4, "Comic Sans MS")
    GUICtrlSetCursor (-1, 0)
    $Button4 = GUICtrlCreateButton("Start", 184, 120, 153, 57, 0)
    GUICtrlSetFont(-1, 12, 800, 4, "Comic Sans MS")
    GUICtrlSetCursor (-1, 0)
    $Button5 = GUICtrlCreateButton("Pause", 352, 120, 153, 57, 0)
    GUICtrlSetFont(-1, 12, 800, 4, "Comic Sans MS")
    GUICtrlSetCursor (-1, 0)
    $Label1 = GUICtrlCreateLabel("Copyright by Bl4CkIsTheBest http://cleanii.eu/ - Webdesigns", 16, 184, 486, 21)
    GUICtrlSetFont(-1, 9, 400, 6, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    ShellExecute("http://cleanii.eu/")
    Exit
    Case $Button1
    MsgBox(0,"Credits","Bl4CkIsTheBest - Coding"&@CRLF&"Cleanii - Design")
    Case $Button2
    ShellExecute("http://cleanii.eu/")
    ShellExecute("http://blackworld3.com/")
    Case $Button3
    Case $Button5
    ;Hier sollte er Pausieren
    Case $Button4
    MsgBox(0,"","Mit F6 beendet sich das Script")
    While 1
    MouseClick("left")
    WEnd

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

    EndSwitch
    WEnd

    [/autoit]

    Er soll MouseKlick Unendlich oft ausführen, allerdings soll Paussiert werden ohne das script zu beenden.

    Einmal editiert, zuletzt von MrM. (15. August 2011 um 19:38)

    Du solltest deinen Freund Cleanii im übrigen auf die Impressumspflicht in D hinweisen, insbesondere wenn man seine Dienste gegen Bezahlung anbietet könnte sowas schnell Ärger einbringen, in seinem Fall womöglich sogar für die Eltern.

    Denke doch dass so ein sinnloser Klick-BOT hier nichts zu suchen hat,

    mfg autoBert

    1.) Ich könnte mir viele NÜTZLICHE Bereiche für eine art Pause-Button, Pause-Funktion vorstellen ( benutze selber folgendes Script ).
    2.) Halt das Script was in die Lücke KANN:

    [autoit]

    While GuiGetMsg() <> $Button5 ; Solange der Button kein zweites mal gedrückt wird...
    Wend;...Wird eine leere endlosschleife ausgeführt

    [/autoit]

    mfg
    Hauke