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

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