GUI which counts runtime of a script

[jannikrendl]

Hey guys,

lately I was working on a script... Good thing: the script works well. Bad thing: I would like to create a nice GUI which consists of various elements (1. Start Button, 2. Stop Button, 3. Input [to define the time which the script should work], 4. Timer [which counts the total runtime of the script]). Problem: I know how to create the GUI but I don't know how to create the timers and stuff. I visited some forum sites but I just don't understand how the whole timer stuff works .

Maybe someone could help me...

Thanks in advance 

 

Jannik Rendl

[JLogan3o13]

@jannikrendl how about posting your script, so we can see what kind of timers would fit well in your GUI?

[jannikrendl]

@JLogan3o13 Basicly it does some clicks on random spots to "prentend" staying online and active.

 

expandcollapse popup

Local $mygui = GUICreate('AntiAFK.exe', 300, 70)
GUICtrlCreateLabel('Runtime in minutes:', 10, 13, 100, 20)
Local $mytime = GUICtrlCreateInput('', 110, 10, 40, 20, $ES_NUMBER)
Local $start = GUICtrlCreateButton('Start', 160, 10, 60, 20)
Local $stop = GUICtrlCreateButton('Stop', 230, 10, 60, 20)
GUICtrlSetLimit(-1, 2)
Local $status = GUICtrlCreateLabel('', 10, 40, 280, 20, BitOR($SS_SUNKEN, $SS_CENTER))
GUICtrlSetColor($status, 0xff0000)
GUICtrlSetFont($status, 10, 800)
GUISetState()

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $gui_event_close
            Exit
        Case $mytime
        Case $start
                $timer = TimerInit()
                chk_time()
                AdlibRegister('chk_time', 1000)
                GUICtrlSetState($mytime, $GUI_DISABLE)
                GUICtrlSetState($start, $GUI_DISABLE)
                AntiAFK()
        Case $stop
            Exit
    EndSwitch
WEnd

Func chk_time()
    Local $diff = Int(TimerDiff($timer))
    If $diff > GUICtrlRead($mytime) * 1000 * 60 Then Exit MsgBox(0, 'AntiAFK', 'You are going to AFK now!', 10)
    GUICtrlSetData($status, 'Ending in ' & GUICtrlRead($mytime) - Int($diff / 1000 / 60) & ' Minutes')
EndFunc

Func AntiAFK();to stay online
    sleep(random(15000,120000)
    MouseMove(random(x,x),random(x,x),random(10,30));replace x
    sleep(random(15000,120000)
    MouseClick("Left",random(y,y),random(y,y),1,random(10,30));replace y
    sleep(random(15000,120000)
    MouseCLick("Right",random(z,z),random(z,z),1,random(10,30));replace z
EndFunc

Thats basically what I achieved right now... (Thanks to @kylomas for helping me with the first part )

Missing stuff: Timer aka "Runtime counter"...

 

Edited March 28, 2017 by jannikrendl

[JLogan3o13]

So, how is this any different than your last post, which was locked? Aside from removing the references to Runescape, that is. Did you actually read the forum rules to which you were pointed, this piece in particular?

Quote

7. Do not repost the same question if the previous thread has been locked - particularly if you merely reword the question to get around one of the prohibitions listed above.

 

[JLogan3o13]

@jannikrendl as I see you have been viewing this thread, and no answer is forthcoming, I'll assume there is no decent explanation. This is the second thread locked for game automation, don't let there be a third.