数组找图

还没学会数组或者图不多的话可以用这个笨办法..
五张图片名：图1.bmp，图2.bmp，图3.bmp，图4.bmp，图5.bmp
丢附件里
For i = 1 To 5
FindPic 0,0,1024,768,"Attachment:\图"&i&".bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
TracePrint "找到图"&i
// 这里写点击移动卖掉动作
Else
TracePrint "没找到图"&i
Delay 200
End If
Next

For i = 1 To 5
Do
FindPic 0,0,1024,768,"Attachment:\图"&i&".bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
TracePrint "找到图"&i
// 这里写点击移动卖掉动作
Else
TracePrint "没找到图"&i
Exit Do
End If
Delay 200
Loop
Next
图片做好一点，避免死循环。。。 或者把do循环换成for循环。如果用for 循环，循环次数应该设置成多少？你想到了没？