dim tua
Do
tua=Array("A","B","C","D")
For i=0 to 3
FindPic 0,0,1024,768,"Attachment:\"&tua(i)&".bmp",0.7,intX,intY
If intX > 0 And intY > 0 Then
call 你的动作()
Exit For
End If
Next
If intX =-1
KeyPress "F5", 1
Else
Exit Do
End If
Delay 1000
Loop
Sub 你的动作()
//MoveTo 407, 186
End Sub