Dim x,y
x=InputBox("输入X：")
y=InputBox("输入Y：")
For 10000
MoveTo x,y
LeftClick 1
Delay 100
FindPic 0,0,1680,1050,"Attachment:\进入战斗.bmp",0.9,intX,intY
If intX> 0 And intY> 0 Then
MoveTo intX, intY
LeftClick 1
End If
Next
楼主帮忙加找到图片后，结束鼠标点击循环，然后去找图