Question

按键精灵怎么实现区域内顺序找相同的图片后执行后续代码

我通过找推广旁边的V字来判断是不是推广链接，确定为推广链接后点击该链接，依次进行，没有推广链接结束搜索，换下一个词继续搜索。求大神指点
在网上找的循环找图命令，更改后蹦不出循环，一直在点击第一个竞价
yss = 0 : cw = 0 : DDD = "" : yyy = 0 : xxx = 0:// 初始化所有变量 cw为连续查找错误的次数 yss为了方便知道是不是第一次运算 yyy 和 XXX 就不需要解释了
Do
Do //↓ 面的XXX+1 从找到的图的 位置 增加 1再往下找 大大加快速度。避免重复
FindPic xxx+1,yyy,1440,900,"Attachment:\1.bmp",1.0,intX,intY
If intX > 0 And intY > 0 Then
// TracePrint inty
yss=0 //找到了就把连续没找到的次数记录的变量清零
If cw = 0 Then //当第一次运行的时候，得到的INTX，inty 肯定是最上面的一幅图 ，所以Y轴的可以缩小到这里，节约计算时间和运算量
yyy = inty:cw=cw+1 ///缩小查找范围 从最上面的第一幅开始
End If
xxx = intx:yyyy = inty //找到一幅图 那么就把坐标赋值给 变量XXX yyyy 把这个坐标保存到DDD这个变量里面
If InStr(DDD,xxx & "," & yyyy)= 0 Then //这个地方是我个人觉得最精华的地方 一个INSTR函数 比较新找到的坐标是不是已经找过的坐标 通过和找到的坐标集合对比来实现 妙用 INSTR 如果没有记录就记录下来。记录过的坐标就跳过
DDD=DDD&xxx&","&yyyy&chr(13) //这里是把所有不一样的坐标保存下来 保存到DDD当中
End If
Else
yss = yss + 1 //查找不到的几次 ！一次没查找到 说明一排已经扫描完了 跳出循环 两次的话就说明所有的图都找完了
Exit Do
End If
Loop

yyy = yyy + 1:xxx = 0 // 当一排扫描完成 yyy 自增 6个坐标 重新扫描 XX拉回起点位置
FindPic xxx + 1, yyy, 1440, 900, "Attachment:\1.bmp", 1.0, intX, intY
If intx > 0 Then
yyy=inty
End If
if yss>1 Then //出现两次没找到图就说明Y轴的范围内已经找完了所以就不用再找下去了 大大节约计算时间
Exit Do
End If
Loop

Answer 1

xxx不需要增加
xxx = intx:yyyy = inty //找到一幅图 那么就把坐标赋值给 变量XXX yyyy 把这个坐标保存到DDD这个变量里面
上面这句怎么是4个y?

修改后脚本:
yss = 0 : cw = 0 : DDD = "" : yyy = 0 : xxx = 0
Do
FindPic xxx,yyy,1440,900,"Attachment:\1.bmp",1.0,intX,intY
If intX > 0 And intY > 0 Then
yss=0
yyy = inty + 6
Call 点链接()
Else
yss = yss + 1
Call 换词()
Exit Do
End If
Loop
Sub 点链接()
MoveTo intX,intY
LeftClick 1
Delay 1000
MoveTo 0,0
Delay 1000
KeyDown 18, 1
KeyPress 115, 1
KeyUp 18, 1
Delay 1000
End Sub
Sub 换词()
MessageBox "请写换词程序,联系Q88619117"
End Sub

//如果不能正常工作,可以尝试把FindPic xxx,yyy,1440,900,"Attachment:\1.bmp",1.0,intX,intY改成FindPic xxx,yyy,1440,900,"Attachment:\1.bmp",0.8,intX,intY

Answer 2

以为我聪明