//////////////////////////////循环次数找图////////////////////////////////////////// Function 找图点击(图片) Dim count=0 Do Delay 1000 FindPic 0, 0, 0, 0, "Attachment:"&图片&".png", "000000", 0, 0.9, intX, intY If intX > -1 And intY > -1 Then TracePrint "找到图片" Delay 300 Tap intx, inty Exit Do Else count=count+1 TracePrint "正在寻找图片" End If If count > 10 Then TracePrint "找了10次没找到图片" Exit Do End If Loop End Function ///////////////////////////////////////////////////////////////////////////// //找图点击"保存"