Dim intX,intY,flag
flag = true
While (flag)
FindPic 149,279,400,424,"Attachment:截图1.png","000000",0,1,intX,intY
If intX > - 1 And intY > - 1 Then
flag = False //找到图置为false,停止循环
TracePrint intX
TracePrint intY
Delay 500
Tap intX, intY
End If
Delay 3000
Wend