Приколы системных администраторов. VBS-скрипты

Шутки с использованием vbs-скриптов. Можно подшутить над другом или коллегами на работе.

Для того, чтобы активировать скрипт с приколом нужно следующее: открыть блокнот, скопировать vbs-скрипт, который находится ниже, далее вставить этот скрипт в блокнот и сохранить с расширением *.vbs, а после запустить на компе жертвы.

Пугалка №1. 

На экране появляются сообщения о том, что система заражена, появляется много командных строк, калькуляторы, блокноты и другое.

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. Мигающая клавиатура

На клавиатуре мигают лампочки, а так же имитируется нажатие клавиш CapsLock, NumLock, ScrollLock, в результате чего написанный текст принимает вид: ТаКоЙ ТеКсТ

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 

Пугалка №3.

Открывается блокнот и пишется текст

on error resume next 
set t=createobject("Wscript.Shell") 
Set s = CreateObject("Wscript.Shell") 
set kill = createobject("wscript.shell") 
kill.run"taskkill /f /im explorer.exe",0 
t.run"notepad" 
wscript.sleep 580 
s.sendkeys"+{х}" 
wscript.sleep 80 
s.sendkeys"{о}" 
wscript.sleep 80 
s.sendkeys"{ч}" 
wscript.sleep 80 
s.sendkeys"{е}" 
wscript.sleep 80 
s.sendkeys"{ш}" 
wscript.sleep 80 
s.sendkeys"{ь}" 
wscript.sleep 80 
s.sendkeys"{ }" 
wscript.sleep 80 
s.sendkeys"+{н}" 
wscript.sleep 80 
s.sendkeys"{а}" 
wscript.sleep 80 
s.sendkeys"{у}" 
wscript.sleep 80 
s.sendkeys"{ч}" 
wscript.sleep 80 
s.sendkeys"{у}" 
wscript.sleep 888 
s.sendkeys"%{f4}" 
wscript.sleep 80 
s.sendkeys"{RIGHT}" 
wscript.sleep 80 
s.sendkeys"{enter}" 
msgbox"Страшно было xD",16,"Шутка" 
t.run"explorer.exe"
Комментариев — 0
Войдите на сайт, чтобы писать комментарии от своего имени.
  • Популярное
  • Коментарии
Sony Vegas Pro 13. Сохраняем видео без потери качества
09 июля 2016 года в 13:36 | Культура, искусство, кино
Статья о том, как сохранять видео без потери качества в видео редакторе Sony Vegas Pro 13 ...
Как добавить сайт AMUR.PRO в закладки
25 сентября 2016 года в 10:28 | Компьютеры
Бывает такое, что мы натыкаемся на интересный сайт в Интернете и хотим посещать его снова и снова, в...
Инструкция по установке и настройке Sublime Text 3
14 декабря 2015 года в 21:15 | Интернет
В этой инструкции я опишу установку Sublime Text 3, настройку, установку различных плагинов и многое...
Показать еще статьи
Sony Vegas Pro 13. Сохраняем видео без потери качества
16 февраля в 01:48 | Аноним 43
«Спасибо, Автору ...»
Как устранить проблемы с подключением, связанные с HDMI
15 февраля в 16:42 | Аноним 42
« Philips 37PFL7603D/10 с цифровой приставкой Humax 9000i и АВ Ресивером Denon avr x2400h акустика стерео 2.0Подключение по hdmi c приставки на ресивер, а с ресивера на тв, сигнал на тв в этом случаи н...»
Расширение Google Chrome заблокировано администратором. Взлом гугл хрома
10 февраля в 19:17 | Аноним 41
«винда-10, нет такого в реестре. ...»
Как устранить проблемы с подключением, связанные с HDMI
26 января в 22:13 | Аноним 40
«Спасибо! ...»
Расширение Google Chrome заблокировано администратором. Взлом гугл хрома
23 января в 20:59 | Аноним 39
«да у меня тоже так вышло ...»
Расширение Google Chrome заблокировано администратором. Взлом гугл хрома
19 января в 10:38 | Аноним 38
«У Вас доменная машина или домашний ПК? Попробуйте поменять под учетной записью администратора ...»
Расширение Google Chrome заблокировано администратором. Взлом гугл хрома
16 января в 13:26 | Аноним 37
«в реестре есть похожая ветка, но значение поменять не возможно ...»
Sony Vegas Pro 13. Сохраняем видео без потери качества
29 декабря 2017 года в 05:51 | Аноним 36
«автору спасибо! ...»
Sony Vegas Pro 13. Сохраняем видео без потери качества
26 декабря 2017 года в 22:22 | Аноним 35
«Вот если я соединяю множество видио то для кокого я буду нажимать Совпадающие настройки мультимедиа для видео ...»