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

错误预期循环VBScript

1 个答案: