按键精灵循环找图

一共两个图片，先找第一个，找到了就执行点击命令，然后需要判断第二个图有没有出现 ，（因为第一个图点击后有的会出现第二个图，必须要点击第二图的关闭了才能在找第一个图，然后在点击）第二个图出现就点击第二图，没有出现就又找第一个图。依次循环。。

Delay 100
FindPic 0,0,1440,900,"Attachment:\图A.bmp",0.7,X1,Y1
If X1 > 0 And Y1 > 0 Then
MoveTo X1+5, Y1+5
LeftClick 1
Delay 500
FindPic 0,0,1440,900,"Attachment:\图B.bmp",0.7,X2,Y2
If X2 > 0 And Y2 > 0 Then
MoveTo X2+5, Y2+5
LeftClick 1
End If
End If
将以上脚本设置为一直循环执行，直到按终止键为止。
算法：先延时0.1秒，再找图A，找到后点击图A，等待0.5秒。再找图B，找到后点击图B。
根据实际情况，可能要修改找图区域、图片相似度、延时时间

//找多图例子------------------------------------- Dim 图片组 图片组=array("1.bmp","2.bmp","3.bmp","4.bmp","5.bmp") 图片路径="Attachment:\" 数量 = UBound(图片组) For f = 0 To 数量 Delay 500 FindPic 0,0,1024,768,图片路径&图片组(f),0.9,intX,intY If intX > 0 And intY > 0 Then msgbox 图片组(f) End If Next //找多图例子------------------------------------- Dim 图片组 图片路径="Attachment:\" For f = 1 To 2 Delay 500 FindPic 0,0,1024,768,图片路径&f&".bmp",0.9,intX,intY If intX > 0 And intY > 0 Then msgbox 图片组(f) End If if f=2 f=0 end if Next

'如何标记循环找一张图-- 按键精灵论坛 你可以搜索到，百度不给发链接 t=timer 'timer是定时器 单位秒 do until intx >= 0 or timer-t >10 '循环找图1 直到找到或者找图时间超过10秒 findpic 0, 0, 1024, 768, "attachment:\图1.bmp", 0.9, intx, inty delay 500 loop if intx > 0 and inty > 0 then traceprint "找到了图1，接下来找图2" else traceprint "耗时10秒没有找到图1，测试结束" endscript end if delay 500 '等待 防止图2打开过慢 findpic 0,0,1024,768,"attachment:\图2.bmp",0.9,intx,inty if intx > 0 and inty > 0 then msgbox "找到了图1，也找到了图2，测试结束" end if