#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>

#Region ### START Koda GUI section ### Form=c:\users\pc\downloads\koda_1.7.2.0\forms\form1.kxf

$Form1_1 = GUICreate("Tab Wechsel + Enter <3", 600, 148, 193, 256)

GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$Label1 = GUICtrlCreateLabel("Gewünschte Verzögerung zwischen den Tabwechseln:", 21, 20, 350, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$delay_von_tabwechsel = GUICtrlCreateInput("0.1", 400, 17, 50, 27, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$delay_bis_tabwechsel = GUICtrlCreateInput("0.2", 460, 17, 50, 27, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")

$Label2 = GUICtrlCreateLabel("Gewünschte Verzögerung beim absenden:", 21, 63, 328, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$delay_von_absenden = GUICtrlCreateInput("0.2", 400, 60, 50, 27, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
$delay_bis_absenden = GUICtrlCreateInput("0.3", 460, 60, 50, 27, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")

$start_button = GUICtrlCreateButton("Start", 320, 103, 265, 29, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $g_bPaused = False

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $start_button
            HotKeySet("{ESC}","_stop")
            HotKeySet("{PAUSE}", "_Pause")
            _StartBot()
    EndSwitch
WEnd

Func _StartBot()

    $delay_von_tabwechsel = GUICtrlRead($delay_von_tabwechsel)
    $delay_bis_tabwechsel = GUICtrlRead($delay_bis_tabwechsel)
    $delay_von_absenden = GUICtrlRead($delay_von_absenden)
    $delay_bis_absenden = GUICtrlRead($delay_bis_absenden)


    ToolTip("Script gestartet, Start in 5 Sekunden", 0, 0)
    Sleep(5000)

    While True
        $delay_tabwechsel = Random($delay_von_tabwechsel*1000, $delay_bis_tabwechsel*1000, 1)
        ToolTip("Warte " & Round($delay_tabwechsel/1000) & " Sekunden, dann drücke 2", 0, 0)
        Sleep($delay_tabwechsel)
        tabsend()
    WEnd
EndFunc

Func tabsend()
    Send("{2}")
    $delay_absenden = Random($delay_von_absenden*1000, $delay_bis_absenden*1000, 1)
    ToolTip("Warte " & Round($delay_absenden/1000) & " Sekunden, dann drücke Enter", 0, 0)
    Sleep($delay_absenden)
    Send("{ENTER}")
EndFunc

Func _Pause()
    $g_bPaused = Not $g_bPaused
    While $g_bPaused
        Sleep(100)
        ToolTip('Script pausiert', 0, 0)
    WEnd
    ToolTip("")
EndFunc

Func _Stop()
   Exit
endFunc