Dim intX, intY
do
FindPic 0, 0, 0, 0, "Attachment：副本.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intx+2,inty+2
Delay 300
t = now
Do
FindPic 0, 0, 0, 0, "Attachment：技能.png", "000000", 0, 0.9, intX, intY
Delay 300
If datediff("s",t,now)>=10 then exit do //超时几秒没进入副本就退出重新进
Loop Until intx > 0
If intx > 0 Then
t = now
Do
FindPic 0, 0, 0, 0, "Attachment：技能.png", "000000", 0, 0.9, intX, intY
If intx > 0 Then Tap intx + 2, inty + 2
Delay 300
If datediff("s",t,now)>=60 then exit do //副本打怪最大超时几秒
Loop Until intx 0 Then
Tap intx + 2, inty + 2
Delay 500
t = now
Do
FindPic 0, 0, 0, 0, "Attachment：确定.png", "000000", 0, 0.9, intX, intY
Delay 300
If datediff("s",t,now)>=-5 then exit do
Loop Until intx > 0
If intx>0 then tap intx+2,inty+2
End If
End If
End If
Delay 200
loop

文章插图

• 关于360手机精灵安卓版的介绍 360手机精灵安卓版
• 按键精灵子程序怎么写
• 一年级循环日记怎么写
• 按键精灵代码怎么写
• 球日文怎么写
• 按键连按怎么写
• 关于安吉尔水精灵的介绍 安吉尔水精灵
• 关于金山装机精灵的介绍 金山装机精灵
• cf超级跳教程 cf超级跳教程按键手法闪蹲
• 压脂袜影响血液循环 但没想到有这8个好处