У вашего броузера проблема в совместимости с HTML5
Скрипт 1
For i = 5 To 0 Step -1
CreateObject("WScript.Shell").Popup "Компьютер исчезнет: " & i, 1
Next
Скрипт 2
Set S = CreateObject("Wscript.Shell")
do
execute"S.Run ""%comspec% /c "" & Chr(7), 0,True"
loop
На моем канале конкурс, кто хочет могут поучаствовать
JOIN QUIZGROUP PARTNER PROGRAM: http://join.quizgroup.com/?ref=82780