If WaitImg("回收站",1.5) Then
TracePrint "回收站找到了"
MoveTo ImgX, ImgY
Else
TracePrint"回收站没有被找到"
End If
Function WaitImg(图片名,找图时间)
Dim i
WaitImg = False
For i =1 To 找图时间 *10
FindPic 0
函数-规定时间内找图实例If WaitImg("回收站", 1.5) Then TracePrint "回收站找到了" MoveTo ImgX, ImgYElse TracePrint"回收站没有被找到"End IfFunction WaitImg(图片名,找图时间) Dim i WaitImg = False For i = 1 To 找图时间 * 10 FindPic 0, 0, 1024, 768, "Attachment:\" & 图片名 & ".b