為什麼抓圖都抓不到呢是有在跑辦圖都錯誤呢???
[Script]
MoveTo 1015,68
LeftClick 15
Delay 500
MoveTo 1015,711
LeftClick 6
Delay 500
MoveTo 750,355
Delay 500
MoveTo 734,300
LeftClick 1
Delay 5000
Rem 始
For 14
Gosub 跑
EndFor
Sub 跑
Gosub 1-9
Gosub 63下
Gosub 1-9
Gosub 63下
Gosub 1-9
Gosub 63下
Gosub 1-9
Gosub 63下
Gosub 1-9
Gosub 63下
Delay 500
MoveTo 680,464
LeftClick 1
Delay 500
Gosub 抓圖
MoveTo 750,355
Delay 500
MoveTo 680,492
LeftClick 1
Delay 500
Gosub 抓圖
MoveTo 750,355
Delay 500
MoveTo 680,520
LeftClick 1
Delay 500
Gosub 抓圖
MoveTo 750,355
Delay 500
MoveTo 680,546
LeftClick 1
Delay 500
Gosub 抓圖
MoveTo 750,355
Delay 500
MoveTo 680,575
LeftClick 1
Delay 500
Gosub 抓圖
Delay 5000
MoveTo 750,355
Delay 500
MoveTo 695,621
Delay 500
LeftClick 1
Delay 500
Return
Sub 抓圖
VBSCall FindPic(0,0,1023,767,"Attachment:\123.bmp",0.5,x,y)
If x>=0 and y>=0
MoveTo 563,676
LeftClick 5
Delay 1000
EndIf
VBSCall FindPic(0,0,1023,767,"Attachment:\123.bmp",0.5,x,y)
If x>=-1 and y>=-1
EndIf
Return
Sub 1-9
MoveTo 680,343
LeftClick 1
Delay 500
Gosub 抓圖
MoveTo 750,355
Delay 500
MoveTo 680,371
LeftClick 1
Delay 500
Gosub 抓圖
MoveTo 750,355
Delay 500
MoveTo 680,400
LeftClick 1
Delay 500
Gosub 抓圖
MoveTo 750,355
Delay 500
MoveTo 680,428
LeftClick 1
Delay 500
Gosub 抓圖
MoveTo 750,355
Delay 500
MoveTo 680,456
LeftClick 1
Delay 500
Gosub 抓圖
MoveTo 750,355
Delay 500
MoveTo 680,484
LeftClick 1
Delay 500
Gosub 抓圖
MoveTo 750,355
Delay 500
MoveTo 680,511
LeftClick 1
Delay 500
Gosub 抓圖
MoveTo 750,355
Delay 500
MoveTo 680,540
LeftClick 1
Delay 500
Gosub 抓圖
MoveTo 750,355
Delay 500
MoveTo 680,567
LeftClick 1
Delay 500
Return
Sub 63下
MoveTo 750,355
Delay 500
MoveTo 736,583
LeftClick 63
Return |