如何使循环中的 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

如果密码错误，它不会重新开始到代码的顶部，它只会无限循环 "Wrong Password...Try Again" 消息框。我如何让它再次询问密码？（p.s。我是编码方面的新手，所以请自行解释。谢谢！） 警告！正如我之前所说，如果您输入的密码错误，它会无限循环错误的密码消息。

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

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

How to make a vbscript loop in loop go to start of code

vbscript

loops

inputbox

do-loops