ผมเปลี่ยนจากMouseClickเป็นControlClick แล้วไม่ทามงานนะครับ รบกวนผู้รู้ทีนะครับ
Global $GameHD
HotKeySet("{ENTER}", "_start")
HotKeySet("{ESC}", "_stop")
If _PSsixLoadH("TS OnLine") Then WinActivate($GameHD)
While 1
Sleep(100)
WEnd
Func _PSsixLoadH($gtitle)
$GameHD = WinGetHandle($gtitle)
If @error Then
MsgBox(4096, "Error", "Not Found Game")
Else
Return 1
EndIf
EndFunc ;==>_PSsixLoadH
Func _start()
MsgBox(0, "", "Start")
While 1
MouseClick("left",483, 167,1,50)
Sleep(1000)
MouseClick("left",483, 167,1,50)
Sleep(1000)
MouseClick("left",483, 167,1,50)
Sleep(1000)
MouseClick("left",483, 167,1,50)
Sleep(1000)
MouseClick("left",113, 44,1,50)
Sleep(1000)
MouseClick("left",210, 208,1,50)
Sleep(1000)
MouseClick("left",113, 44,1,50)
Sleep(1000)
MouseClick("left",210, 208,1,50)
Sleep(13000)
MouseClick("left",716, 550,1,50)
Sleep(1000)
MouseClick("left",716, 550,1,50)
Sleep(2000)
WEnd
EndFunc ;==>_start
Func _stop()
MsgBox(0, "", "End")
Exit
EndFunc ;==>_stop
Global $GameHD
HotKeySet("{ENTER}", "_start")
HotKeySet("{ESC}", "_stop")
If _PSsixLoadH("TS OnLine") Then WinActivate($GameHD)
While 1
Sleep(100)
WEnd
Func _PSsixLoadH($gtitle)
$GameHD = WinGetHandle($gtitle)
If @error Then
MsgBox(4096, "Error", "Not Found Game")
Else
Return 1
EndIf
EndFunc ;==>_PSsixLoadH
Func _start()
MsgBox(0, "", "Start")
While 1
MouseClick("left",483, 167,1,50)
Sleep(1000)
MouseClick("left",483, 167,1,50)
Sleep(1000)
MouseClick("left",483, 167,1,50)
Sleep(1000)
MouseClick("left",483, 167,1,50)
Sleep(1000)
MouseClick("left",113, 44,1,50)
Sleep(1000)
MouseClick("left",210, 208,1,50)
Sleep(1000)
MouseClick("left",113, 44,1,50)
Sleep(1000)
MouseClick("left",210, 208,1,50)
Sleep(13000)
MouseClick("left",716, 550,1,50)
Sleep(1000)
MouseClick("left",716, 550,1,50)
Sleep(2000)
WEnd
EndFunc ;==>_start
Func _stop()
MsgBox(0, "", "End")
Exit
EndFunc ;==>_stop