урок как создать вирус прикол!(формата vbs)

сохраняем как (название).vbs: on error resume next set t=createobject("Wscript.Shell") msgbox"ОЧЕН ОПАСНИЙ ВИРУС WINDOWS БУДЕТ УДАЛЕНО ЧЕРЕЗ 1ЧАС",16,"Сбой системы!" msgbox"Вы заражены вирусом чтоб удалить его погавкай как собака",48,"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"explorer" 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"Сбой системы локалний диск будеть не работать Sargis Ananyan ",16,"Windows" t.run"help" t.run"help" t.run"help"