1、找图方式智能点击:
Dim i=0 Function 智能点击封装函数1() Do Delay 1000 KeepCapture FindPic 1,37,539,339,"Attachment:nansheng.png","101010",0,0.9,intX,intY If intX > -1 And intY > -1 Then Tap intX, intY TracePrint "点击到了信息"&intX&","&intY Exit Do //退出DO死循环 End If ReleaseCapture /*我用I来监控查找次数,如果到达10次还没法点击的话。 就CALL错误处理*/ i = i + 1 If i = 10 Then Call 错误处理() Exit Do End If TracePrint "没找到信息-->>继续寻找" Loop End Function
================================================================
2、找色方式智能点击:
Dim i=0 Function 智能点击封装函数2() Do Delay 1000 FindMultiColor 0,0,0,0,"FFFFFF-101010","18|32|6F281F-101010,34|20|7AAE62-101010,43|18|A57499-101010,46|43|6F281F-101010",0,0.9,intX,intY If intX > -1 And intY > -1 Then Tap intX, intY TracePrint "点击图标:"&intX&","&intY Exit Do //退出DO死循环 End If /*我用I来监控查找次数,如果到达10次还没法点击的话。 就CALL错误处理*/ i = i + 1 If i = 10 Then Call 错误处理() Exit Do End If TracePrint "还找不到图标,--->继续寻找中" Loop End Function