ผมกำลังอยากจะลองศึกษาดูครับ
จะลองเอาไปประยุกต์ใช้กับเกม GTA ONLINE
GTA ONLINE มันจะมีงานให้ทำ ขับรถไปส่งของตามจุดที่มอบหมาย (ไม่ทราบว่าโปรแกรม Autoit สามารถทำให้มันขับรถไปเอง ได้หรือไม่ครับ ให้มันขับไปเองอย่างนี้เรื่อยๆนะครับ)
ขอบคุณครับ
โค๊ดนี้ผมลองทำดูแล้ว มันใช้งานได้แต่ ตอนขับรถมันจะไม่เหมือนกด Wค้างไว้ มันเหมือนกดทีละครั้ง ทำยังไงดีครับถึงสามารถให้มัน เหมือนWค้างไว้ (มันสามารถปรับให้ใช้เม้า ขับรถได้ จะสามารถประยุกต์ใช้ได้ไหมกับการใช้เม้าแทน)
โค๊ด
จะลองเอาไปประยุกต์ใช้กับเกม GTA ONLINE
GTA ONLINE มันจะมีงานให้ทำ ขับรถไปส่งของตามจุดที่มอบหมาย (ไม่ทราบว่าโปรแกรม Autoit สามารถทำให้มันขับรถไปเอง ได้หรือไม่ครับ ให้มันขับไปเองอย่างนี้เรื่อยๆนะครับ)
ขอบคุณครับ
โค๊ดนี้ผมลองทำดูแล้ว มันใช้งานได้แต่ ตอนขับรถมันจะไม่เหมือนกด Wค้างไว้ มันเหมือนกดทีละครั้ง ทำยังไงดีครับถึงสามารถให้มัน เหมือนWค้างไว้ (มันสามารถปรับให้ใช้เม้า ขับรถได้ จะสามารถประยุกต์ใช้ได้ไหมกับการใช้เม้าแทน)
โค๊ด
Global $GameHD
HotKeySet("{F2}", "_start")
HotKeySet("{F3}", "_stop")
If _PSsixLoadH("GTA:SA:MP") 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
if WinActive ($GameHD) then Send ("W")
Sleep(0) ;
if WinActive ($GameHD) then Send ("W")
Sleep(0) ;
if WinActive ($GameHD) then Send ("W")
Sleep(0) ;
if WinActive ($GameHD) then Send ("W")
Sleep(0) ;
if WinActive ($GameHD) then Send ("W")
Sleep(0) ;
if WinActive ($GameHD) then Send ("W")
Sleep(0) ;
WEnd
EndFunc ;==>_start
Func _stop()
MsgBox(0, "", "End")
Exit
EndFunc ;==>_stop
แก้ไขล่าสุดโดย namenut0099 เมื่อ 27/04/15, 06:52 pm, ทั้งหมด 2 ครั้ง