Func _main()
While 1
ControlSend($GameHD,"Enter",0,"{ENTER}")
Sleep(300)
ControlSend($GameHD,"UP",0,"{UP down}")
Sleep(50)
ControlSend($GameHD,"UP",0,"{UP up}")
Sleep(Random(100,300))
ControlSend($GameHD,"UP",0,"{UP down}")
Sleep(50)
ControlSend($GameHD,"UP",0,"{UP up}")
Sleep(300)
ControlSend($GameHD,"DOWN",0,"{DOWN down}")
Sleep(Random(300,1000))
ControlSend($GameHD,"DOWN",0,"{DOWN up}")
WEnd
EndFunc
Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('"Script is Paused"', 0, 0)
Sleep(100)
WEnd
Sleep(100)
ToolTip("")
Sleep(100)
EndFun
ไม่ทราบว่าจะเขียนเพิ่มยังไงให้มันหยุด Loop ครับ โดยที่ ไม่ใช้ Hotkey ใช้ Button ในการ Pause
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $_main
_main()
Case $pause
TogglePause()
EndSwitch
WEnd
ใช้แบบนี้ก้อยังไม่หยุด loop นอกจากจะใช้ hotkey
While 1
ControlSend($GameHD,"Enter",0,"{ENTER}")
Sleep(300)
ControlSend($GameHD,"UP",0,"{UP down}")
Sleep(50)
ControlSend($GameHD,"UP",0,"{UP up}")
Sleep(Random(100,300))
ControlSend($GameHD,"UP",0,"{UP down}")
Sleep(50)
ControlSend($GameHD,"UP",0,"{UP up}")
Sleep(300)
ControlSend($GameHD,"DOWN",0,"{DOWN down}")
Sleep(Random(300,1000))
ControlSend($GameHD,"DOWN",0,"{DOWN up}")
WEnd
EndFunc
Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('"Script is Paused"', 0, 0)
Sleep(100)
WEnd
Sleep(100)
ToolTip("")
Sleep(100)
EndFun
ไม่ทราบว่าจะเขียนเพิ่มยังไงให้มันหยุด Loop ครับ โดยที่ ไม่ใช้ Hotkey ใช้ Button ในการ Pause
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $_main
_main()
Case $pause
TogglePause()
EndSwitch
WEnd
ใช้แบบนี้ก้อยังไม่หยุด loop นอกจากจะใช้ hotkey