Написать пост

Приколы системных администраторов. 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"
2 февраля 2017 года в 11:29
Аноним3 марта в 17:57ответить

win+r explorer

Аноним2 февраля в 17:34ответить

Аноним, КОРОЧ с мигающей клавиатурой мне винда ошибку выдала отказано в доступе и каспа (касперский фри) пишет найден троян В скрипте? ВИРУС?!

Аноним6 июня 2020 года в 16:29ответить

Ля шо творит

Аноним6 июня 2020 года в 05:23ответить

вСе ПишетЕ эТо и ВсЁ Set TaskKill = CreateObject("WScript.Shell")TaskKill.Run "TaskKill /f /im wscript.exe"

Аноним2 февраля 2020 года в 18:03ответить

шо зА коПЕц, КрУТА скрИПт РабоТаЕт ахаХАХахаХАХа, кРуТа шЛА САШаШа пО ШаШЕ И ШаШаЛлА ШАШкУ

Аноним1 января 2020 года в 01:23ответить

СПаСиТе ПОжАЛуйСТа

Аноним1 января 2020 года в 01:25ответить

втОРоЙ СКриПт ОтмЕНитЬ мОЖНо чЕРез ДисПеТЧер ЗАдаЧ КЛаССНый сКрИПт пОд НомЕРОМ 2 МОжНО пОпУГАТь лЮдей)))

Аноним12 декабря 2019 года в 00:08ответить

Заходишь в диспетчр задач и убираешь wscript.exe

Аноним11 ноября 2019 года в 19:14ответить

КОРОЧ с мигающей клавиатурой мне винда ошибку выдала отказано в доступе и каспа (касперский фри) пишет найден троян

Аноним11 ноября 2019 года в 17:21ответить

ПрИкоЛьнО))) я пОРЖАл

Аноним11 ноября 2019 года в 17:42ответить

аноним 146 нужно комп. перезагрузить

Аноним10 октября 2019 года в 04:26ответить

кАК это ОтклЮчИть?

Аноним9 сентября 2019 года в 01:38ответить

Добрый вечер

5_super_53 марта 2019 года в 04:14ответить

ПОМОгИТе, пожАЛуЙСта :(

5_super_53 марта 2019 года в 04:13ответить

КАк ОТмЕНить ВтОРой скРипТ!!!

Аноним3 марта 2019 года в 04:02ответить

Аноним, скрипт с написанием текста не работает К НесчАсТЬЮ :(, У мЕНя СРАБотАло(((((

Аноним3 марта 2019 года в 03:51ответить

А кАК МОжНо оТмЕНить сКрИпТ №2?

Аноним2 февраля 2019 года в 19:50ответить

ппц я пресрал от этого

Аноним2 февраля 2019 года в 04:18ответить

Я конечно недавно начал эту "дичь" "изучать", но мне кажется, что в первой "пугалке" монжо было использовать переменные и не парить себе мозги.

Аноним2 февраля 2019 года в 18:13ответить

cXcasdf

Коментарии

Как исправить перевернутый экран в WindowsАнонимСегодня в 01:59

БлагоДарю, о Великий Интернет ! ❤️???????? Сразу все получилось ! Нажала ctrl+alt + стрелка вверх и о Чудо !!

Как заблокировать вызовы с неизвестных и скрытых номеров на MIUI 12Аноним10 октября в 14:57

для тех кто на MIUI Global 12.5.4
приложение безопасность, листаем в низ, антиспам, настройки, блокировка вызовов, для каждой сим карты можно использовать разные параметры

Sublime Text 4. Установка русского языкаАноним10 октября в 01:53

Большое спасибо! Очень помогли

Как удалить Kaspersky Endpoint Security 11, если забыл пароль?Аноним10 октября в 17:24


После длительной возни выявил порядок действий:
1) Удаляем все, что связано с Касперским (агент, управление, центры..)
2) Перезагружаем и устанавливаем последнюю версию "Агента".
3) После установки проверяем, политики должны исчезнуть и все кнопки становятся активны.
4) Запускаем безопасный режим (выполнение перезагрузки при зажатой кнопке "шифт") и заходим в реестр:
HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\KasperskyLab\protected\KES10\settings
вносим изменения в параметры EnablePswrdProtect и OPEP.
EnablePswrdProtect - меняем 1 на 0.
OPEP - удаляем все значение.
Перезагружаемся.
5) Запускаем удаление программ и сносим старую версию, перезагружаем.
6) После ставим новую версию, игнорируя импорт настроек старой версии.
Всё!

Как установить командную строку (CMD) по умолчанию в терминале Windows на Windows 11Аноним10 октября в 19:05

Аноним, в powershell функция параметр не открывается,спрашивает какой программой вы хотите открытьНужно не в powershell, а в Терминале Windows открывать пареметры

Как установить командную строку (CMD) по умолчанию в терминале Windows на Windows 11Аноним10 октября в 19:03

в powershell функция параметр не открывается,спрашивает какой программой вы хотите открыть