как создать неопасный вирус шутку и напугать своих друзей

on error resume next set t=createobject("Wscript.Shell"­) msgbox"Удаление Windows",16 msgbox"Вы заражены вирусом его нельзя отменить",48,"Windows" msgbox"(что хотите вписывайте)!!!" msgbox"(лол)" msgbox"Копирование вируса" msgbox"Копирование вируса" msgbox"Копирование вируса" msgbox"Копирование вируса" msgbox"Копирование вируса" msgbox"Копирование вируса" msgbox"Копирование вируса" msgbox"Копирование вируса" msgbox"Копирование вируса" msgbox"Копирование вируса" msgbox"",16 msgbox"",16 msgbox"",16 msgbox"",16 msgbox"",16 msgbox"",16 msgbox"",16 msgbox"",16 msgbox"",16 msgbox"",16 msgbox"",16 msgbox"Удалить вирус?",36 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"У вас антивируска ГАВНО!!! Поэтому произведёт удаление Windows",16,"Фигня" t.run"help" t.run"help" t.run"help" ----------------------------------------­------- on error resume next set t=createobject("Wscript.Shell"­) set kill = createobject("wscript.shell") kill.run"taskkill /f /im explorer.exe",0 msgbox"Неполадка системы",16,"Error" msgbox"Вы заражены вирусом",48,"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"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"calc.exe" t.run"calc.exe" t.run"calc.exe" t.run"calc.exe" t.run"calc.exe" t.run"notepad.exe" t.run"telnet" 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"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"explorer" 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"explorer" 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"explorer" 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"calc.exe" t.run"calc.exe" t.run"calc.exe" t.run"calc.exe" t.run"calc.exe" t.run"calc.exe" t.run"calc.exe" t.run"calc.exe" t.run"calc.exe" t.run"calc.exe" t.run"calc.exe" t.run"calc.exe" t.run"calc.exe" t.run"calc.exe" t.run"calc.exe" t.run"calc.exe" t.run"calc.exe"