按键精灵手机版抓图如果抓不到就等待3秒继续抓图要怎么写

2024年11月18日 02:48
有1个网友回答
网友(1):

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