如何使循环中的vbscript循环转到代码的开头

Question

运行此代码时；

varCheck=True
Do While varCheck
    Pass=InputBox("Enter Password")
    Do
        If IsEmpty(pass) Then
            WScript.quit
            Exit Do
        End If
        If Pass = "123" Then
            varCheck=False
            Exit Do
        Else
            varCheck=True
            MsgBox("Wrong Password...Try Again")
        End If
    Loop
Loop

如果密码错误，它不会重新启动到代码顶部，它只是无休止地循环“密码错误...再试一次”消息框。如何让它再次询问密码？ （附：我是编码新手，所以请解释一下。谢谢！） 警告！正如我之前所说，如果您输入错误的密码，它会无限循环错误的密码信息。

Answer 1

这是您要查找的脚本，我建议您完全摆脱 msgbox 并附加到 InputBox 文本上。输入错误密码后，您似乎忘记了打破内部循环。所以它永远无法回到最初。

varCheck=True
Dim StarterText: StarterText = "" 
Do While varCheck
    Pass=InputBox(StarterText & "Enter Password")
    Do
        If IsEmpty(pass) Then
            WScript.quit
            Exit Do
        End If
        If Pass = "123" Then
            varCheck=False
            Exit Do
        Else
            varCheck=True
            StarterText = "Sorry, wrong password, try again: "

            Exit Do '<-----this is what you forgot. 

        End If
    Loop
Loop