错误预期循环 VBScript答案

【问题标题】：Error Expected Loop VBScript错误预期循环 VBScript
【发布时间】：2013-11-06 17:49:54
【问题描述】：

如果提供的密码正确，我有一个脚本可以打开一个 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 中中止”。

【问题讨论】：

标签： loops vbscript

【解决方案1】：

使用Popup 方法代替MsgBox 函数。

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

【讨论】：

谢谢伙计。然而问题是......它没有中止......它循环直到密码正确并且永不停止。
如果您希望在没有人单击弹出窗口上的按钮时停止循环，您可以检查 x 是否小于零（请参阅更新的答案）。