錯誤預期循環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