大家好，我是公众号3分钟学堂的郭立员，今天继续我们的按键精灵安卓版源码分享，这一期带来的是遍历图片在屏幕上出现的所有坐标脚本源码。

适用范围

同一张图在屏幕上多次出现，比如下面这些图。

代码

'定义截图的大小
Dim x=18
Dim y=20


'获取屏幕大小，如果指定范围，直接填写数值
Dim sx1=0
Dim sy1=0
Dim sx2=GetScreenX()
Dim sy2=GetScreenY()


'定义存储坐标的数组变量
Dim arr(),n=0


'遍历图片
Dim intx,inty
KeepCapture
For j = 0 To cint((sy2-sy1)/y)
    For i = 0 To CInt((sx2 - sx1) / x)
        FindPic sx1+x*i, sy1+y*j, sx1+2*x-1+x*i, sy1+2*y-1+y*j, "Attachment:1.png","000000", 0, 0.9, intX, intY
        If intX > -1 And intY > -1 Then 
            arr(n) = intx & "," & inty
            n=n+1
        End If
    Next
Next
ReleaseCapture 


TracePrint join(arr,"|")

代码使用方法

①使用抓抓截取你要找的图片

②查看截图的大小尺寸，填入到代码的第一部分

③把图片上传到脚本附件，修改脚本中的1.png和你的截图名称一致。

④确定找图范围，如果是全屏找图，无需修改，如果是指定找图范围，需要修改sx1,sy1,sx2,sy2这几个变量。

⑤代码执行完得到的是所有的坐标，并且存入到数组变量arr中，如果需要使用坐标操作，可以通过变量数组获取坐标。

⑥对于仅需要点击坐标的情况，可以不用存入数组，直接在找图里面用

tap intx，inty