มีปัญหาเรื่องโค๊ดอะครับ
แบบถ้าหลุดจากเกมไปให้มันเปิดเกมมาใหม่ ล๊อกอินมาใหม่แล้วกลับเข้าไปคำสั่งเดิมเลยอะครับ
ผิดพลาดประการใดโปรดชี้แนะที TT
Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
Opt("CaretCoordMode", 2)
Global $GameHD ;ประกาศตัวแปร $GameHD เพื่อนำไปใช้ทั้งเกม
Global $number[3] = [ 0x666666, 0x888888 ,0x999999];ใส่รหัสสีที่จะหา
Global $gameX1, $gameY1
Func _PSsixLoadH($gtitle) ;ฟังก์ชันสำหรับตรวจหาหน้าต่างเกม
$GameHD = WinGetHandle($gtitle) ;ดึงเอาค่า Handle ของหน้าต่างเกมเก็บไว้ในตัวแปร $GameHD
If @error Then
MsgBox(4096, "Error", "ไม่พบหน้าต่างเกม") ;ถ้าไม่เจอหน้าต่างเกมแสดงกรอบหน้าต่างแจ้งให้ทราบ
Else
Return 1
EndIf
EndFunc
HotKeySet("{ESC}", "stop")
While 1
if($GameHD)=0 then Run (""D:\Program Files\Maple\MapleStory\ExtaliaMS.exe"")
while ($GameHD)=1
If _PSsixLoadH("ExtaliaMS")Then
WinActivate($GameHD) ;ส่งค่าชื่อไตเติลเกมเข้าไปยังฟังก์ชัน หากตรวจพบก็จะสั่ง
Sleep(100)
Else
Run (""D:\Program Files\Maple\MapleStory\ExtaliaMS.exe"")
Sleep(100)
EndIf
WEnd
if PixelGetColor(526,161)=0xBB2200 Then
Sleep(3000)
ControlSend($GameHD, "", "","0487682596")
Sleep(1000)
MouseClick("",477,304,1,1)
Sleep(5000)
MouseClick("",158,58,1,1)
Sleep(2000)
MouseClick("",321,353,2,10)
Sleep(2000)
MouseClick("",670,451,1,1)
Sleep(200)
Else
EndIf
WEnd
Func stop()
Exit
EndFunc
แบบถ้าหลุดจากเกมไปให้มันเปิดเกมมาใหม่ ล๊อกอินมาใหม่แล้วกลับเข้าไปคำสั่งเดิมเลยอะครับ
ผิดพลาดประการใดโปรดชี้แนะที TT
Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
Opt("CaretCoordMode", 2)
Global $GameHD ;ประกาศตัวแปร $GameHD เพื่อนำไปใช้ทั้งเกม
Global $number[3] = [ 0x666666, 0x888888 ,0x999999];ใส่รหัสสีที่จะหา
Global $gameX1, $gameY1
Func _PSsixLoadH($gtitle) ;ฟังก์ชันสำหรับตรวจหาหน้าต่างเกม
$GameHD = WinGetHandle($gtitle) ;ดึงเอาค่า Handle ของหน้าต่างเกมเก็บไว้ในตัวแปร $GameHD
If @error Then
MsgBox(4096, "Error", "ไม่พบหน้าต่างเกม") ;ถ้าไม่เจอหน้าต่างเกมแสดงกรอบหน้าต่างแจ้งให้ทราบ
Else
Return 1
EndIf
EndFunc
HotKeySet("{ESC}", "stop")
While 1
if($GameHD)=0 then Run (""D:\Program Files\Maple\MapleStory\ExtaliaMS.exe"")
while ($GameHD)=1
If _PSsixLoadH("ExtaliaMS")Then
WinActivate($GameHD) ;ส่งค่าชื่อไตเติลเกมเข้าไปยังฟังก์ชัน หากตรวจพบก็จะสั่ง
Sleep(100)
Else
Run (""D:\Program Files\Maple\MapleStory\ExtaliaMS.exe"")
Sleep(100)
EndIf
WEnd
if PixelGetColor(526,161)=0xBB2200 Then
Sleep(3000)
ControlSend($GameHD, "", "","0487682596")
Sleep(1000)
MouseClick("",477,304,1,1)
Sleep(5000)
MouseClick("",158,58,1,1)
Sleep(2000)
MouseClick("",321,353,2,10)
Sleep(2000)
MouseClick("",670,451,1,1)
Sleep(200)
Else
EndIf
WEnd
Func stop()
Exit
EndFunc