我们平常需要判断条件到了跳出循环在跳转到子程序 是不是经常出现不知名的程序不稳定 经过我慢慢研究出自己编了个
一个简单条件判断就跳出循环在跳转到子程序或者主程序循环已经稳定几天没有出错一次
//这个是我们通常用的跳转代码
Dim intX,intY
主程序1()
Do
FindPic 235,882,294,1394,"Attachment:看到图片.png","000000",0,0.8,intX,intY
If intX > -1 And intY > -1 Then
Tap intx, inty
Delay 2500
Exit Do
//退出循环
End If
Delay 100
Loop
跳转到主程序2()
End Sub
/上面代码Exit Do是不是经常莫名其妙退不出 不知道你们是不是这样
下面是我自己琢磨出来来的一个代码分享给大家你们用用看 保证不会出错
///自创代码
Dim intX,intY
Dim intX11,intY11
主程序1()
Do
FindPic 235,882,294,1394,"Attachment:别的判断.png","000000",0,0.8,intX,intY
If intX > -1 And intY > -1 Then
///需要的动作
这里用intx, inty定义坐标的可以用于判断别的图片条件不影响跳出循环图片判断返回
End If
///注意判断跳出循环的intx, inty改成intx11, inty11
FindPic 1008,1674,1072,1908,"Attachment:看到图片.png","000000",0,0.9,intX11,intY11
If intX11 > -1 And intY11 > -1 Then
Delay 1000
End If
Delay 100
Loop WhileintX11 = -1 And intY11 = -1
主程序2()
End Sub
//PS:其实好多东西我们自己可以多琢磨琢磨就能解决一下小的不完美