Ошибка ожидаемого цикла 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