参考一图多坐标 修改找图为找色命令即可
Dim img,startx,starty,endx,endy,count
Dim intX, intY
img = "Attachment:1.png"'改成自己图片名称
startx = 1 : starty = 1 : endx = 720 : endy = 1028 : count = 0'前4参数改成自己分辨率
Do
FindPic startx, starty, endx, endy, img, "000000", 0, 0.9, intX, intY
If intx = - 1 Then
If startx=0 Then Exit do //查找结束
starty = starty + 1 : startx = 0
Else
If inty = starty or startx = 0 Then
startx = intx + 1:starty=inty
count = count + 1
TracePrint intX, intY
Else
startx = 0 : starty = starty + 1
End If
End If
Loop