ผมต้องการที่จะ ให้
พิกัด 111,222
เปลี่ยนสี
ใช่กด1
ไม่กด2
วนดูพิกัด 111,222 ไปเรื่อยๆ
ใครทำได้โพสหน่อยนะครับ
พิกัด 111,222
เปลี่ยนสี
ใช่กด1
ไม่กด2
วนดูพิกัด 111,222 ไปเรื่อยๆ
ใครทำได้โพสหน่อยนะครับ
olyakuzalo พิมพ์ว่า:ผมต้องการที่จะ ให้
พิกัด 111,222
เปลี่ยนสี
ใช่กด1
ไม่กด2
วนดูพิกัด 111,222 ไปเรื่อยๆ
ใครทำได้โพสหน่อยนะครับ
$a = PixelGetColor(111,222)
While 1
$b = PixelGetColor(111,222)
if $a = $b then
MouseClick("",พิกัดx,พิกัดy)
EndIf
Sleep(100)
MouseClick("",พิกัดx,พิกัดy)
Sleep(100)
MouseClick("",พิกัดx,พิกัดy)
Sleep(100)
MouseClick("",พิกัดx,พิกัดy)
Sleep(100)
$a = PixelGetColor(111,222)
WEnd
olyakuzalo พิมพ์ว่า: ตามความคิิดผมนะ พึ่หัดเขียน
$a = PixelGetColor(733,93) ; รับค่าสี a จากตำแหน่ง 733,93 แล้วเก็บไว้ที่ a
While 1 ; เริ่มการวน
$b = PixelGetColor(733,93) ; รับค่าสี b จากตำแหน่ง 733,93 แล้วเก็บไว้ที่ b
If $a <> $b then ; ถ้า a ไม่เท่า b ให้
Sleep (3000) ; หลับ 3 วิ
$w = PixelSearch(0,0, 1024,768 ,0x24B7C7 ) ; w หาสี 0x24B7C7
If Not @error Then
MouseClick("", $w[0], $w[1], 1, 0) ; เมาท์คลิกซ้าย 1 ที
EndIf
$p = PixelSearch(0,0, 1024,768 ,0xE8643E ) ; p หาสี 0xE8643E
If Not @error Then
MouseClick("", $p[0], $p[1], 1, 0) ; เมาท์คลิกซ้าย 1 ที
EndIf
$ok = PixelSearch(0,0, 1024,768 ,0x7F6B42 ) ; ok หาค่าสี 0x7F6B42
If Not @error Then
MouseClick("", $ok[0], $ok[1], 1, 0) ; เมาท์คลิกซ้าย 1 ที
EndIf
Sleep(1000) ; หลับ 1 วิ
$a = PixelGetColor(733,93) ; รับค่าสี a จากตำแหน่ง 733,93 แล้วเก็บไว้ที่ a
WEnd ; วนไปที while1
ไม่รู้ว่าเขียนถูกหรือเปล่า แต่อยากให้ ถ้า $a ไม่เท่ากับ $b ให้ไปที่$w ถ้าเท่ากันให้ไปที่ $p ช่วย comment หน่อยครับ
$a = PixelGetColor(733,93);ตรวจสีที่ 733,93
While 1
$b = PixelGetColor(733,93);ตรวจสีที่ 733,93
If $a = $b then;ถ้าตัวแปรเอเท่ากับตัวแปลบี ให้ทำตามคำสั่งด้านล่าง
$p = PixelSearch(0,0, 1024,768 ,0xE8643E );ค้นหาสี 0xE8643E ที่พิดกัด 0,0-1024,764
If Not @error Then MouseClick("", $p[0], $p[1], 1, 0);คลิกเม้าส์
Else;ถ้าไม่ใช่ ให้ทำตามคำสั่งด้านล่าง
$w = PixelSearch(0,0, 1024,768 ,0x24B7C7 );ค้นหาสี 0x24B7C7 ที่พิดกัด 0,0-1024,764
If Not @error Then MouseClick("", $w[0], $w[1], 1, 0);คลิกเม้าส์
EndIf;จบการเปรีบยเทียบ
$ok = PixelSearch(0,0, 1024,768 ,0x7F6B42 );ค้นหาสี 0x7F6B42 ที่พิดกัด 0,0-1024,764
If Not @error Then MouseClick("", $ok[0], $ok[1], 1, 0);คลิกเม้าส์
Sleep(1000);หน่วงเวลา 1 วิ
$a = PixelGetColor(733,93);ตรวจสีที่ 733,93
WEnd
|
|