a = - 1
b = - 1
FindPic 0,0,1024,768,"Attachment:\222.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
a = intx
b = inty
Else
MessageBox "不能找到"
End If
For 1000
Delay 1500
MoveTo a - 200, b + 470
Delay 100
LeftClick 1
Delay 2000
FindPic 0,0,1024,768,"Attachment:\武力.bmp",0.98,intX,intY
If intX > 0 And intY > 0 Then
MoveTo a + 100 , b + 500
Delay 100
LeftClick 1
Delay 100
Else
MoveTo a - 400, b + 470
Delay 100
LeftClick 1
Delay 100
End If
Next