- 超级版主
- 1228894
- 26975
- 25
- 8050 朵
- 36129 个
- 4746 个
- 421340
- 2012-07-18
|
2#
t
T
发表于 2022-03-02 16:55
|
|只看该用户
友情顶贴: - 一图多坐标
- 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
- ********************
- 一字多坐标
- TracePrint SetDictEx(0, "Attachment:123.txt")
- TracePrint UseDict(0)
- //以上两句脚本只需要调用一次
- Dim img,startx,starty,endx,endy,count
- Dim intX, intY
- img = "安装"'改成自己文字
- startx = 1 : starty = 1 : endx = 1028: endy = 720 : count = 0'前4参数改成自己分辨率
- Do
- FindStr(startx, starty, endx, endy,img,"A0A0A0-303030",0.8,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
复制代码
点评
郭立员
666
发表于 2022/3/2 22:07:39
|