Off Button

  • Hallo erstmal,

    Ich habe folgendes Porblem da ich noch ein noob bin und ich mit müh und not dieses script hinbekommen habe ^^

    [autoit]

    MsgBox(0,"PickUpBot by AngelAndi", "Dieser Bot drückt Y.")

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

    #include <GUIConstants.au3>
    $Form1 = GUICreate("PickUpBot by AngelAndi", 290, 175, 250, 300)
    FileInstall("C:\angel.gif", @ScriptDir & "\angel.gif")
    GUICtrlCreatePic(@ScriptDir & "\angel.gif",23 ,33, 0 ,0)
    $label1=GuiCtrlCreateLabel("PickUpBot by AngelAndi",162,29,121,15)
    $Button1 = GUICtrlCreateButton("On/An", 165, 57, 54, 86, 0)
    $Button2 = GUICtrlCreateButton("Off/Aus", 227, 57, 54, 86, 0)

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

    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    _Func1 ()
    EndSwitch
    WEnd

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button2
    _Func2 ()
    EndSwitch
    WEnd

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

    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button2
    _Func3 ()
    EndSwitch


    Func _Func1 ()
    While 1
    Sleep (1)
    Send ( "{y down}")
    Send ( "{y up}")
    WEnd
    EndFunc

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

    Func _Func2 ()

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

    EndFunc

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

    Func Ende ()
    Exit
    EndFunc

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

    While 1
    sleep (1)
    WEnd

    [/autoit]

    so nun wollte ihr euch fragen wie ich den Off/Aus Button hinbekomme das wenn man auf ihn klickt
    er den schreibprozes beendet :(

    MfG:
    KingAndre

  • Nur mal so als Anregung


    Spoiler anzeigen

    MsgBox(0,"PickUpBot by AngelAndi", "Dieser Bot drückt Y. alle 5 Sekunden")
    HotKeySet("{ESC}", "_exit")
    #include <GUIConstants.au3>
    $Form1 = GUICreate("PickUpBot by AngelAndi", 290, 175, 250, 300)
    $label1=GuiCtrlCreateLabel("PickUpBot by AngelAndi",0,29,121,15)
    $label2=GuiCtrlCreateLabel("ESC drücken für Ende "&@crlf& "GUI bleibt online",0,70)
    $Button1 = GUICtrlCreateButton("On/An", 165, 57, 54, 86, 0)


    GUISetState(@SW_SHOW)

    While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $GUI_EVENT_CLOSE
    Exit
    Case $nMsg = $Button1
    $i = 0

    do
    Sleep (5000);5 Se3kunden
    Send("y"); Drücken von y

    until $i = 1

    EndSelect

    WEnd

    Func _exit()
    $i = 1
    EndFunc

  • [autoit]

    #include <GUIConstantsEx.au3>

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

    $Form1 = GUICreate("AngelAndi", 290, 175, 250, 300)
    FileInstall("C:\angel.gif", @ScriptDir & "\angel.gif")
    GUICtrlCreatePic(@ScriptDir & "\angel.gif",23 ,33, 0 ,0)
    $label1=GuiCtrlCreateLabel("PickUpBot by AngelAndi",162,29,121,15)
    $Button1 = GUICtrlCreateButton("On/An", 165, 57, 54, 86, 0)
    $Button2 = GUICtrlCreateButton("Off/Aus", 227, 57, 54, 86, 0)

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

    Global $Status = 0

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

    GUISetState(@SW_SHOW)

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

    While 1
    $msg = GUIGetMsg()

    Switch $Msg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $Status = 1
    Case $Button2
    $Status = 0
    EndSwitch

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

    If $Status Then
    ToolTip("Eingeschaltet")
    Send ( "{y down}")
    Send ( "{y up}")
    Else
    ToolTip("Ausgeschaltet")
    EndIf
    Sleep(10)
    WEnd

    [/autoit]


    Das mit dem Send gefällt mir auch nicht, da beim Ein- und Ausschalten das falsche Fenster aktiv ist, ControlSend wäre besser.