• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[◆提问帖] sub子程序里,不能自己CALL自己,想重新执行怎么办? [复制链接]

1#
Sub 练功页()//练功40,610:左一30,485\左二155,550
c = a +40
d = b + 610
TracePrint a & "," & b
Call 移动点击()//移动过去点击
Delay 延迟1//通过练功位三的图,找图判断是否在当前页面
Call 找图(myArray(0),myArray(1),myArray(2),myArray(3),"D:\按键图片\","练功位.bmp",0.9)//找图确定在当前页
If intX > 0 Then
c = a + 30
d = b + 485//计算第一练功位的相对坐标,并单击
Call 移动点击()
Delay 延迟1
intX = 0
Do
Call 找图(myArray(0), myArray(1), myArray(2), myArray(3), "D:\按键图片\", "练.bmp", 0.9)
If intX > 0 Then
Call 找图点击()
Exit Do
Else
Call 连续点击()
TracePrint "点击中"
End If
Delay 延迟1
Loop
Else
TracePrint "重新执行练功页"
Delay 5000
Call 练功页()
End If
Delay 延迟1
End Sub

2#

用Rem定义+Goto语句试试
  1. Sub 练功页()//练功40,610:左一30,485\左二155,550
  2. [b]Rem 练功页起始[/b]
  3. ...
  4. If intX > 0 Then
  5. ...
  6. Else
  7. TracePrint "重新执行练功页"
  8. Delay 5000
  9. [b]Goto 练功页起始[/b]
  10. End If
  11. Delay 延迟1
  12. End Sub
复制代码

3#

,

谢谢 不错的思路

发新话题 回复该主题