Set a = CreateObject("Wscript.Shell")
aa=InputBox("Введите число секунд, через которые следующие окно самостояетельно закроется","Время")
a.popup "Это сообщение исчезнет через "&aa&" секунд(ы)",aa,"Почему?"С каким результатом у Вас исполнится такое:
Option Explicit
Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
WScript.Echo objWshShell.Popup("Текст", 5, "Заголовок", vbOKOnly + vbInformation)
Set objWshShell = Nothing
WScript.Quit 0Option Explicit
Dim objWshShell
Dim intTime4Show
Dim intMinimumTime
Dim intTimeStartShowing
Dim intRetValue
Set objWshShell = WScript.CreateObject("WScript.Shell")
intTime4Show = 60
intMinimumTime = 10
intTimeStartShowing = Timer
Do
intRetValue = objWshShell.Popup( _
"Здесь" & vbCrLf & "некий" & vbCrLf & "текст", _
intTime4Show - (Timer - intTimeStartShowing), _
"Тут заголовок", _
vbOKOnly + vbInformation)
Loop Until intRetValue = -1 Or (Timer - intTimeStartShowing) > intMinimumTime
Set objWshShell = Nothing
WScript.Quit 0Опять не закрывается, либо я что-то не правильно сделал, либо на разных ОС VBS функции различны, как например открытие диалога на Windows 7
]]>
. А раньше-то работало 
. Опытным путём выяснил, что если убрать вывод окна поверх остальных окон (MB_TOPMOST — «+ &H40000»), то работает как надо и теперь. Интересно, какое из обновлений могло привести к такому изменению поведения?!Добавил замечание по обнаруженному Вами поведению в пост в Коллекции. Спасибо!
]]>В скрипте же по ссылке окно MessageBox в любом случае закроется через заданное время, независимо от действий пользователя.
Но основное там — минимальное время показа; именно это пожелание участника, задавшего вопрос, вызвало данную реализацию и появление скрипта в Коллекции.
]]>
— станет ясно.If Time < b Then MsgBox "Это сообщение перестанет высвечиваться через 20 секнд после включения"
Не перестанет.
]]>Dim a,b
a=Time
b=TimeSerial(Hour(a),Minute(a),Second(a)+20)
Do
If Time < b Then MsgBox "Это сообщение перестанет высвечиваться через 20 секнд после включения"
If Time >= b Then Wscript.Quit
Loop