FindPic 0,0,2000,2000,"Attachment:你要找的图片.bmp",0.9,intX,intY
//0.0.2000.2000 是屏幕窗口大小,若比2000大则按全窗口处理,范围控制越小,搜索速度越快!
If intX > 0 And intY > 0 Then
//如果找到图片,会反馈坐标值intX和intY,如果值大于0,证明图片找到了
//此处执行找到图片后的操作,没命令视为无操作(一般无操作建议加点延时毫秒即可,例如300毫秒)
Else
//找不到图片,就否则执行这里的命令
End If
//判断结束
2.按键精灵找图 我 有三张图 假如我第一张找不到可不可以跳过 继续找第我来回答你问题吧!
首先,你用了两个无限循环,没必要
1、Rem bj----Goto bj
2、i = 0
While i=0
Wend
第二个问题,你的i在中间变了三次,其实变了一次后,到第三张找图后的代码就会跳出了。没必要变这多次。可能你是用来计数吧。那就没所谓。
第二个是如何解决的问题。你可以用
for i=0 to j
next
这种语句来搜,就可以搜不了就跳出了,到第二,第三张图了。
最后一点,其实你在每个MoveTo intX + 0, intY + 0
后面加个+0 也是多余的代码吧。
这是我帮你修改的代码
Dim i,j
Rem bj
i = 0
//j是设搜图的次数
j=2
For i=0 to j
FindPic 272,47,619,494,"Attachment:1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX , intY
LeftClick 1
End If
Next
Delay 3000
For i=0 to j
FindPic 272,47,619,494,"Attachment:2.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
LeftClick 1
End If
Next
Delay 3000
For i=0 to j
FindPic 272,47,619,494,"Attachment:3.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
LeftClick 1
Delay 3000
End If
Next
Goto bj
希望能解决你的问题。
3.按键精灵怎么找图,找不到就一直按空格键,10秒后或者找到了就继续既然是限时找图 那么你找10次即可
在找图里面加个判断 如果找到则跳出循环
如果没找到也没事 就循环10次找图而已 不会死循环
然后点击命令加个判断
如果没找到图就不执行点击命令 那样也不会有影响了
代码如下
vb">For 10
Delay 300
FindPic 0,0,1440,900,"Attachment:1.bmp",0.9,tX,tY
If tX>0 Then
Exit For
End If
Next
Delay 1000
If tX>0 Then
MoveTo tX,tY
Delay 300
LeftClick 1
End If
4.按键精灵出现图片跳过第一段命令进行下一段命令这代码我有即视感,前段时间也有问我这样的代码。
我给你加段判断代码就好了,你需要他判断多长时间呢?几秒还是只判断一次?
把下面代码替换你需要判断图三的那段就好了,>= 3是检测三秒,更改数字就可以更改检测的时间,如果只需要检测一次,那么只需要Do到Loop中间的代码。
Z = time
Do
FindPic 0,0,414,325,"Attachment:图3.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Delay 1200
MoveTo 488, 712
LeftClick 2
Delay 700
SayString "你好"
Delay 700
KeyPress "Enter", 1
Delay 700
End If
Loop Until DateDiff("s", Z, time) >= 3