Question

按键精灵脚本问题。请高手完善？

Rem s1
Delay 1000
MoveTo 555, 555
Delay 1000
FindPic 896,292,1400,599,"Attachment:\加强克火.bmp",0.98,intX,intY
//以下是条件判断；如果返回的坐标大于0，那么就说明找到了。
If 1 = 0 Then
End If
If intX > 0 And intY > 0 Then
Delay 1000
MoveTo intX+503, intY+21
Delay 1000
LeftClick 1
Delay 500
goto s2
End If
Rem s2
FindPic 896,292,1400,599,"Attachment:\加强克水.bmp",0.98,intX,intY
//以下是条件判断；如果返回的坐标大于0，那么就说明找到了。
If 1 = 0 Then
End If
If intX > 0 And intY > 0 Then
Delay 1000
MoveTo intX+503, intY+21
Delay 1000
LeftClick 1
Delay 500
goto s3
End If
Rem s3
FindPic 896,292,1400,599,"Attachment:\加强克金.bmp",0.98,intX,intY
//以下是条件判断；如果返回的坐标大于0，那么就说明找到了。
If 1 = 0 Then
End If
If intX > 0 And intY > 0 Then
Delay 1000
MoveTo intX+503, intY+21
Delay 1000
LeftClick 1
Delay 500
goto s4
End If
Rem s4
FindPic 896,292,1400,599,"Attachment:\加强克土.bmp",0.98,intX,intY
//以下是条件判断；如果返回的坐标大于0，那么就说明找到了。
If 1 = 0 Then
End If
If intX > 0 And intY > 0 Then
Delay 1000
MoveTo intX+503, intY+21
Delay 1000
LeftClick 1
Delay 500
goto s5
End If
Rem s5
FindPic 896,292,1400,599,"Attachment:\加强克木.bmp",0.98,intX,intY
//以下是条件判断；如果返回的坐标大于0，那么就说明找到了。
If 1 = 0 Then
End If
If intX > 0 And intY > 0 Then
Delay 1000
MoveTo intX+503, intY+21
Delay 1000
LeftClick 1
Delay 500
End if
MoveTo 1153, 861
Delay 300
LeftClick 1
Delay 3000
MoveTo 834, 696
LeftClick 1
Delay 2000
Goto s1

我想要的结果是：重复搜索，搜到一张鼠标定位点击一次，搜到2张鼠标相应位置各点击一次，直到5张图全部搜索完成，并且鼠标五处定位全部点击。不知道哪里出问题了。执行之后，搜到第一张图正常，后面就直接执行最后的鼠标移动点击了。搜索定位点击就停止了。请高手指点。。

Answer 1

不是很明白你表达的意思，是要一次性点击5个为通过，还是反复点击了全部才算通过？点击过后的还会不会再出现？如果全部对比找完不到怎么处理？
现在按你上面的程序精简了一下
dim Arr
Arr=Array("Attachment:\1.bmp","Attachment:\2.bmp","Attachment:\3.bmp","Attachment:\4.bmp","Attachment:\5.bmp") //将图片路径存入数组
do
clickCount=0 //计数器 每次DO循环重置为0
For i=0 To 4
FindPic 896,292,1400,599,Arr(i),0.98,intX,intY

If intX > 0 And intY > 0 Then

Delay 1000

MoveTo intX+503, intY+21

Delay 1000

LeftClick 1

Delay 500
clickCount = clickCount + 1 //每点击一次+1
End If
Next
If clickCount = 5 then //总数为5 退出do loop
Exit Do
End If
loop