รบกวนหน่อยคับ เกมนี้เป็นเกมส์ Slot Machine ถ้าผมจะให้ เม้า ไปกดคลิกตามช่อง ไล่ตั้งแต่ช่อง 1-5 [img]
ให้มันกดออกมาประมาณนี้ อะคับ
เท่าที่ผมลองทำดู มันเจอสีที่ตั้งไว้แล้วมันจะกด คลิกอยู่นั่นไม่ไปช่องถัดไป ช่วยแนะนำทีนะคับ ต้องแก้ตรงไหนบ้าง
Global $gameX1, $gameY1
While Sleep(10)
If WinActive("Glucky7") Then
WinMove("lucky7","",0, 0)
If FindGame() = 1 Then
playgame()
EndIf
Else
EndIf
WEnd
Func playgame()
$coord = PixelSearch($gameX1, $gameY1, $gameX1+358, $gameY1+500 ,0x21709D)
If IsArray($coord) Then
If PixelGetColor($coord[0] , $coord[1] ) = 0x21709D Then MouseClick("Left", $coord[0] + 1, $coord[1], 1, 0)
Sleep(100)
EndIf
EndFunc
Func FindGame()
$size = WinGetPos("[active]")
$coord = PixelSearch($size[0], $size[1], $size[2], $size[3], 0x013B31)
If IsArray($coord) Then
$gameX1 = $coord[0]
$gameY1 = $coord[1]
Return 1
EndIf
EndFunc
Func stop()
Exit
EndFunc
ให้มันกดออกมาประมาณนี้ อะคับ
เท่าที่ผมลองทำดู มันเจอสีที่ตั้งไว้แล้วมันจะกด คลิกอยู่นั่นไม่ไปช่องถัดไป ช่วยแนะนำทีนะคับ ต้องแก้ตรงไหนบ้าง
Global $gameX1, $gameY1
While Sleep(10)
If WinActive("Glucky7") Then
WinMove("lucky7","",0, 0)
If FindGame() = 1 Then
playgame()
EndIf
Else
EndIf
WEnd
Func playgame()
$coord = PixelSearch($gameX1, $gameY1, $gameX1+358, $gameY1+500 ,0x21709D)
If IsArray($coord) Then
If PixelGetColor($coord[0] , $coord[1] ) = 0x21709D Then MouseClick("Left", $coord[0] + 1, $coord[1], 1, 0)
Sleep(100)
EndIf
EndFunc
Func FindGame()
$size = WinGetPos("[active]")
$coord = PixelSearch($size[0], $size[1], $size[2], $size[3], 0x013B31)
If IsArray($coord) Then
$gameX1 = $coord[0]
$gameY1 = $coord[1]
Return 1
EndIf
EndFunc
Func stop()
Exit
EndFunc