[PlagIaT]

Iska, не соображу как это связать.
Через VBS пробовал запустить. Работает)))
Я юсер в VBS ( можно подробнее?Как, что работает и где,что прописать?
Ваша программа позволяет вывести 3 кнопки и автоматическое закрытие через 15 секунд.
Не понимаю где цикл того, чтобы через n-ое количество секунд, если не нажать "отмена" Пк. выключился бы?


Дописал :
Set a = CreateObject("WScript.Shell")
b = a.Popup ("Выключить ПК?",10,"Windows",36) 'это секунды "жизни" программы. Как по истечению этого времени выключить программно пк?

If b= 6 then
C= MsgBox ("СЕРЬЁЗНО1",+vbYesNo+16,"Windows")
If C= 6 then
e= MsgBox ("СЕРЬЁЗНО2",+vbYesNo+16,"Windows")
If e= 6 then MsgBox "shudown.exe -s -t 1"
If e= 7 then msgBox "не выключу"
end if
end if
If b= 7 then msgBox "Конец программы"