如果非得用do loop 你可以要退出循环的开关是什么?按你的意思是一直等所有都执行完,在其中任何一个子程序不会重复执行的情况下。
Function 招募()
Dim 开关=0
Do
If 判断(招募按钮) = True Then
开关=开关+1
Call 点击(招募图标)
ElseIf 判断(英雄按钮) = True Then
开关=开关+1
Call 点击(点1)
ElseIf 判断(确认按钮) = True Then
开关=开关+1
Call 点击(确定1)
ElseIf 判断(英雄按贰) = True Then
开关=开关+1
Call 点击(点2)
ElseIf 判断(确认按钮) = True Then
开关=开关+1
Call 点击(确定1)
ElseIf 判断(宝具按钮) = True Then
开关=开关+1
Call 点击(点3)
End If
Delay 1000
If 开关 = 6 Then
Exit Do
End If
Loop
End Function