เพิ่งหัดทำครั้งแรกนะคับโค๊ดประมาณนี้อะคับ
Global $GameHD
Func _PSsixLoadH($gtitle)
$GameHD = WinGetHandle($gtitle)
If @error Then
MsgBox(4096, "Error", "ไม่พบหน้าต่างเกม")
Else
Return 1
EndIf
EndFunc
If _PSsixLoadH("XXXXX") Then WinActivate($GameHD)
Hotkeyset("{Esc}","stop")
While 1
MouseClick("left",1341,507,1,30) ;กดเปิดหน้าต่างภายในเกมส์
Sleep(500)
MouseClick("left",814,563,1,30) ;กดปุ่มสร้างห้อง
Sleep(500)
MouseClick("left",682,431,1,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",895,435,1,30) ;กดช่องพิมพ์
Sleep(500)
if WinActive ($GameHD) then Send ("ใส่ข้อความ")
Sleep(1000)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",895,435,1,30) ;กดช่องพิมพ์
Sleep(500)
if WinActive ($GameHD) then Send ("^A") ;กรณีมีข้อความแล้ว
if WinActive ($GameHD) then Send ("{DELETE}")
if WinActive ($GameHD) then Send ("ใส่ข้อความ")
Sleep(1000)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",895,435,1,30) ;กดช่องพิมพ์
Sleep(500)
if WinActive ($GameHD) then Send ("^A") ;กรณีมีข้อความแล้ว
if WinActive ($GameHD) then Send ("{DELETE}")
if WinActive ($GameHD) then Send ("ใส่ข้อความ")
Sleep(1000)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",895,435,1,30) ;กดช่องพิมพ์
Sleep(500)
if WinActive ($GameHD) then Send ("^A") ;กรณีมีข้อความแล้ว
if WinActive ($GameHD) then Send ("{DELETE}")
if WinActive ($GameHD) then Send ("ใส่ข้อความ")
Sleep(1000)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",895,435,1,30) ;กดช่องพิมพ์
Sleep(500)
if WinActive ($GameHD) then Send ("^A") ;กรณีมีข้อความแล้ว
if WinActive ($GameHD) then Send ("{DELETE}")
if WinActive ($GameHD) then Send ("ใส่ข้อความ")
Sleep(1000)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",985,403,5,30) ;กดปุ่มเริ่มเกมส์
Sleep(65000)
MouseClick("left",1236,213,1,30) ;กดปุ่มหน้าต่างใส่พิกัด
Sleep(1000)
MouseClick("left",971,197,30) ;กดช่องใส่พิกัด1
Sleep(1000)
if WinActive ($GameHD) then Send ("44")
Sleep(1000)
MouseClick("left",1053,197,1,30) ;กดช่องใส่พิกัด2
Sleep(1000)
if WinActive ($GameHD) then Send ("220")
Sleep(1000)
MouseClick("left",1108,197,1,30) ;กดปุ่มตกลง
Sleep(24000)
MouseClick("left",630,415,3,30) ;ตรงนี้อยากแก้เป็นใส่คำสั่งกดปุ่ม
MouseClick("left",630,415,3,30) ;ตรงนี้อยากแก้เป็นใส่คำสั่งกดปุ่ม
Sleep(1000)
MouseClick("left",569,550,3,30) ;ตรงนี้อยากแก้เป็นใส่คำสั่งกดปุ่ม
MouseClick("left",569,550,3,30) ;ตรงนี้อยากแก้เป็นใส่คำสั่งกดปุ่ม
Sleep(1000)
MouseClick("left",836,683,1,30) ;ตรงนี้อยากแก้เป็นใส่คำสั่งกดปุ่ม
Sleep(22000)
WEnd
Func Stop()
Exit
EndFunc
รบกวนพี่ๆช่วยทีนะคับขอเป็นแนวทางก้อได้คับหนังสือหาซื้อไม่ได้อะคับT T
Global $GameHD
Func _PSsixLoadH($gtitle)
$GameHD = WinGetHandle($gtitle)
If @error Then
MsgBox(4096, "Error", "ไม่พบหน้าต่างเกม")
Else
Return 1
EndIf
EndFunc
If _PSsixLoadH("XXXXX") Then WinActivate($GameHD)
Hotkeyset("{Esc}","stop")
While 1
MouseClick("left",1341,507,1,30) ;กดเปิดหน้าต่างภายในเกมส์
Sleep(500)
MouseClick("left",814,563,1,30) ;กดปุ่มสร้างห้อง
Sleep(500)
MouseClick("left",682,431,1,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",895,435,1,30) ;กดช่องพิมพ์
Sleep(500)
if WinActive ($GameHD) then Send ("ใส่ข้อความ")
Sleep(1000)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",895,435,1,30) ;กดช่องพิมพ์
Sleep(500)
if WinActive ($GameHD) then Send ("^A") ;กรณีมีข้อความแล้ว
if WinActive ($GameHD) then Send ("{DELETE}")
if WinActive ($GameHD) then Send ("ใส่ข้อความ")
Sleep(1000)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",895,435,1,30) ;กดช่องพิมพ์
Sleep(500)
if WinActive ($GameHD) then Send ("^A") ;กรณีมีข้อความแล้ว
if WinActive ($GameHD) then Send ("{DELETE}")
if WinActive ($GameHD) then Send ("ใส่ข้อความ")
Sleep(1000)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",895,435,1,30) ;กดช่องพิมพ์
Sleep(500)
if WinActive ($GameHD) then Send ("^A") ;กรณีมีข้อความแล้ว
if WinActive ($GameHD) then Send ("{DELETE}")
if WinActive ($GameHD) then Send ("ใส่ข้อความ")
Sleep(1000)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",895,435,1,30) ;กดช่องพิมพ์
Sleep(500)
if WinActive ($GameHD) then Send ("^A") ;กรณีมีข้อความแล้ว
if WinActive ($GameHD) then Send ("{DELETE}")
if WinActive ($GameHD) then Send ("ใส่ข้อความ")
Sleep(1000)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",947,470,5,30) ;กดปุ่มตกลง
Sleep(500)
MouseClick("left",985,403,5,30) ;กดปุ่มเริ่มเกมส์
Sleep(65000)
MouseClick("left",1236,213,1,30) ;กดปุ่มหน้าต่างใส่พิกัด
Sleep(1000)
MouseClick("left",971,197,30) ;กดช่องใส่พิกัด1
Sleep(1000)
if WinActive ($GameHD) then Send ("44")
Sleep(1000)
MouseClick("left",1053,197,1,30) ;กดช่องใส่พิกัด2
Sleep(1000)
if WinActive ($GameHD) then Send ("220")
Sleep(1000)
MouseClick("left",1108,197,1,30) ;กดปุ่มตกลง
Sleep(24000)
MouseClick("left",630,415,3,30) ;ตรงนี้อยากแก้เป็นใส่คำสั่งกดปุ่ม
MouseClick("left",630,415,3,30) ;ตรงนี้อยากแก้เป็นใส่คำสั่งกดปุ่ม
Sleep(1000)
MouseClick("left",569,550,3,30) ;ตรงนี้อยากแก้เป็นใส่คำสั่งกดปุ่ม
MouseClick("left",569,550,3,30) ;ตรงนี้อยากแก้เป็นใส่คำสั่งกดปุ่ม
Sleep(1000)
MouseClick("left",836,683,1,30) ;ตรงนี้อยากแก้เป็นใส่คำสั่งกดปุ่ม
Sleep(22000)
WEnd
Func Stop()
Exit
EndFunc
รบกวนพี่ๆช่วยทีนะคับขอเป็นแนวทางก้อได้คับหนังสือหาซื้อไม่ได้อะคับT T