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

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

win+r explorer

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

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

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

Ля шо творит

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Добрый вечер

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

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

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

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

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

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

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

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

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

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

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

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

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

cXcasdf

Коментарии

Настройка Cura для 3d печати на Anycubic i3 MegaАноним25 июля в 21:14

Аноним, Что это за версия программы ?
4.7.0

Настройка Cura для 3d печати на Anycubic i3 MegaАноним25 июля в 19:19

Аноним, 2.1.3
неа

Настройка Cura для 3d печати на Anycubic i3 MegaАноним25 июля в 15:54

Аноним, Что это за версия программы ?
2.1.3

Настройка ip-камеры Mi Home Security Camera 360 1080PАноним23 июля в 15:35

Подскажите пожалуйста подключила все ок пол дня работает, записывает. А потом бац пишет не в сети, и мигает синяя лампочка :(

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

Аноним, Не помогло. Перепробовал всё. Один фиг запрашивает логин и пароль...Аналогично

Настройка ip-камеры Mi Home Security Camera 360 1080PВадим Красновский06 июля в 23:24

Так, проблема решилась! Изначально mi home был у меня на русском регионе и первая камера подключилась на отлично, а вторая вот упиралась в финальный шаг - уже все настроено, код камерой с телефона прочитан, она подключилась к роутеру, сказала что девайс онлайн, но на телефоне была бесконечная ошибка таймаута, хоть связь и отличная.
Проблема решилась переключением в настройках михоума региона с российского на китайский. Камера приконнектилась без сучка и задоринки.

Настройка ip-камеры Mi Home Security Camera 360 1080PВадим Красновский06 июля в 23:08

Вадим Красновский, Такая же проблема - камера подключается и настраивается ровно до момента, когда появляется сообщение "поднесите телефон ближе к роутеру" (глухая или слепая что ли?) И после этого - бесконечная ошибка по таймауту подключения, соответственно процесс настройки не завершен и камера недоступна. Роутер туполинк с вайфаем, ни у смартов, ни у второй камеры проблем таких нет. Мне кажется, это сломалось после обновления прошивки ((а, еще - сканирование qr кода, который на дне указан, сообщает "устройства не найдены".

Настройка ip-камеры Mi Home Security Camera 360 1080PВадим Красновский06 июля в 23:07

Такая же проблема - камера подключается и настраивается ровно до момента, когда появляется сообщение "поднесите телефон ближе к роутеру" (глухая или слепая что ли?) И после этого - бесконечная ошибка по таймауту подключения, соответственно процесс настройки не завершен и камера недоступна. Роутер туполинк с вайфаем, ни у смартов, ни у второй камеры проблем таких нет. Мне кажется, это сломалось после обновления прошивки ((

Настройка Cura для 3d печати на Anycubic i3 MegaАноним02 июля в 21:26

Что это за версия программы ?

Настройка Cura для 3d печати на Anycubic i3 MegaАноним25 июня в 18:05


Код для стола чтобы правильно выезжал
Scripts > Ending Script > добавить в конец строчку
G1 Y150 F5000 ;move bed forward (Y)150mm to remove part at (F)5000 feed rate
Значения y поменять на свои