ผมลองเขียน
Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
Opt("CaretCoordMode", 2)
Global $GameHD ;ประกาศตัวแปร $GameHD เพื่อนำไปใช้ทั้งเกม
Global $begin = TimerInit(), $B1 = 1, $B2 = 5
$Title = "BlueStacks App Player"
$Full = WinGetTitle($Title)
$HWnD = WinGetHandle($Full)
WinActivate($HWnD)
Func _PSsixLoadH($gtitle) ;ฟังก์ชันสำหรับตรวจหาหน้าต่างเกม
$GameHD = WinGetHandle($gtitle) ;ดึงเอาค่า Handle ของหน้าต่างเกมเก็บไว้ในตัวแปร $GameHD
If @error Then
MsgBox(4096, "Error", "ไม่พบหน้าต่างเกม") ;ถ้าไม่เจอหน้าต่างเกมแสดงกรอบหน้าต่างแจ้งให้ทราบ
Else
Return 1
EndIf
EndFunc
If _PSsixLoadH("BlueStacks App Player") Then WinActivate($GameHD) ;ส่งค่าชื่อไตเติลเกมเข้าไปยังฟังก์ชัน หากตรวจพบก็จะสั่ง
HotKeySet("{F1}", "stop")
while 1
ControlClick($HWnD, "", "0", "left", 1, 707, 311)
WEnd
Func stop()
Exit
EndFunc
ผมลองทำแล้วมันดึงหน้าจอมาแสดงก็จริงแต่ไหงเมาส์มันไม่คลิกอะครับ
Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
Opt("CaretCoordMode", 2)
Global $GameHD ;ประกาศตัวแปร $GameHD เพื่อนำไปใช้ทั้งเกม
Global $begin = TimerInit(), $B1 = 1, $B2 = 5
$Title = "BlueStacks App Player"
$Full = WinGetTitle($Title)
$HWnD = WinGetHandle($Full)
WinActivate($HWnD)
Func _PSsixLoadH($gtitle) ;ฟังก์ชันสำหรับตรวจหาหน้าต่างเกม
$GameHD = WinGetHandle($gtitle) ;ดึงเอาค่า Handle ของหน้าต่างเกมเก็บไว้ในตัวแปร $GameHD
If @error Then
MsgBox(4096, "Error", "ไม่พบหน้าต่างเกม") ;ถ้าไม่เจอหน้าต่างเกมแสดงกรอบหน้าต่างแจ้งให้ทราบ
Else
Return 1
EndIf
EndFunc
If _PSsixLoadH("BlueStacks App Player") Then WinActivate($GameHD) ;ส่งค่าชื่อไตเติลเกมเข้าไปยังฟังก์ชัน หากตรวจพบก็จะสั่ง
HotKeySet("{F1}", "stop")
while 1
ControlClick($HWnD, "", "0", "left", 1, 707, 311)
WEnd
Func stop()
Exit
EndFunc
ผมลองทำแล้วมันดึงหน้าจอมาแสดงก็จริงแต่ไหงเมาส์มันไม่คลิกอะครับ