loops - 错误预期循环 VBScript

Question

如果提供的密码正确，我有一个脚本可以打开一个 excel 文件。如果错误，它会提示一条消息。当我在最后添加一个循环时，它可以完美运行。但是，问题是，只要密码错误，脚本就不会因为循环而停止询问密码。我想要的是在密码错误时退出/关闭的脚本。我试图删除循环并将其替换为“wscript.quit”，但它总是提示消息“预期循环”。这是我制作的代码。

password = "pass"
do
ask=inputbox ("Please enter password:","DProject")
select case ask
case password
answer=true 

Set xl = CreateObject("Excel.application")

xl.Application.Workbooks.Open "C:\Users\test1\Desktop\test.xlsx"
xl.Application.Visible = True
Set xl = Nothing
wscript.quit
end select

answer=false
x=msgbox("Password incorrect... Aborting")
loop until answer=true

是否可以在中止时输入这样的消息。就像“在 3.... 2...1 中中止”。

Answer 1

使用Popup方法而不是MsgBox函数。

password = "pass"
do
  ...
  x = CreateObject("WScript.Shell").Popup("Password incorrect... Aborting", 3)
Loop Until answer = True Or x < 0