Приколы системных администраторов. 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, настройку, установку различных плагинов и многое...
Показать еще статьи
Импорт большого дампа БД в OpenServer через консоль
18 сентября в 02:11 | Аноним 29
«Годнота! ...»
Компьютер не видит жесткий диск - причины - решения.
13 сентября в 09:30 | Админ
« Возможно поможет эта статья: https://amur.pro/blog/kak_ispravit_oshibku_dispetcher_virtualnih_diskov_128/ ...»
Компьютер не видит жесткий диск - причины - решения.
09 сентября в 17:02 | Аноним 28
«Пишут: Ошибка службы виртуальных дисков: Диск подключен к сети. Диск остается недопустимым. ...»
Sony Vegas Pro 13. Сохраняем видео без потери качества
01 августа в 17:29 | Аноним 27
«Ужасное качество видео на выходе. ...»
Sony Vegas Pro 13. Сохраняем видео без потери качества
27 июня в 15:18 | Аноним 26
«А какой редактор посоветуете, если не Вегас? ...»
Sony Vegas Pro 13. Сохраняем видео без потери качества
22 июня в 22:44 | Аноним 25
«Качество помойка, вегас не умеет оставлять в hd , там идет какая то сраная перекодировка и он её превращает в говно ...»
Sony Vegas Pro 13. Сохраняем видео без потери качества
14 июня в 15:14 | Аноним 24
«После рендера черные полосы в проигрывателе появились :( ...»
Sony Vegas Pro 13. Сохраняем видео без потери качества
16 мая в 05:07 | Аноним 23
«Зачем количество слоёв 8 поставил ? двух вроде достаточно лучше 1. А вт количество кадров сверки , опорных кадров можно и 8 поставить, это вроде и есть рифреймс...»
Sony Vegas Pro 13. Сохраняем видео без потери качества
12 мая в 05:28 | Аноним 22
«спасибо! ...»
Sony Vegas Pro 13. Сохраняем видео без потери качества
03 мая в 02:14 | Аноним 21
«Такой способ, цвета искажает. ...»