for 60 //循环60次差不多一分钟 delay 1000 //延迟一秒 FindPic 0,0,1024,768,图片名称.bmp,0.9,intX,intY //这里图片需要打包到附件。格式BMP If intX0 and intY0 Then //这里是找到了,请补充需要的命令 End If next //这里是找不到图的下一步命令
'图片做好 把图片添加到附件中 Rem a1 '找图,屏幕范围0,0,1024,768。可根据实际更改。 '路径Attachment:\神盾.bmp可根据实际更改 相似度0.9 保存找到的图片坐标到intX,intY FindPic 0,0,1024,768,Attachment:\神盾.bmp,0.9,intX,intY //以下是条件判断;如果坐标大于0,那么就说明找到了。 If intX 0 And intY 0 Then Goto a1'找到则重新再找 Else'否则 '如果没找到 执行什么命令自己加进去 End If
for 60 findpic 0,0,2000,2000,图片路径,0.9,intX,intY if intX0 and intY0 then exit for end if delay 1000 next if intX0 and intY0 then 一分钟内找不到图的命令 end if 找到图的命令写在这里。
既然是限时找图 那么你找10次即可 在找图里面加个判断 如果找到则跳出循环 如果没找到也没事 就循环10次找图而已 不会死循环 然后点击命令加个判断 如果没找到图就不执行点击命令 那样也不会有影响了 代码如下 For 10 Delay 300 FindPic 0,0,1440,900,Attachment:\1.bmp,0.9,tX,tY If tX0 Then Exit For End IfNextDelay 1000If tX0 Then MoveTo tX,tY Delay 300 LeftClick 1End If
Do FindPic 0,0,1024,768,Attachment:\x.bmp,0.9,intX,intY If intX 0 Then MoveTo intX+2, intY+2 Delay 1000 LeftClick 1 Delay 1000 MoveTo 0, 0//点击图片后,一般图片会变,要把鼠标移开 End If Loop Until intX 0//找不到图不再循环