[Описание] Скрипты-приколы своими руками

[1nf1n1t1]

Методы изготовления скриптов-приколов,шалости ради =)

Чтобы включить скрипт необходимо открыть блокнот, вставить туда скрипт и сохранить с расширением *.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. Бесконечно пищащий системный динамик

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

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

3. Мигающая клавиатура

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

Цитата: 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. Въезжающий - выезжающий дисковод

Действие:
Заставляет бесконечно въезжать - выезжать дисковод в компьютере

Цитата: Set WMPlayer = CreateObject("WMPlayer.OCX.7") do WMPlayer.CdRomCollection.Item(0).Eject() loop

5. Бесконечно жужжащий разъем для дискет

Действие:
Имитирует, что в приводе для дискет находится дискета. Заставляет его жужжать.

Цитата: Set WSHShell=WScript.CreateObject("WScript.Shell") Sub Zapadlo(Fuck,Wait) Set WshShell=WScript.CreateObject("WScript.Shell") C=WshShell.Run(Fuck,Wait) End Sub do Call Zapadlo("A:\",true) loop

ВНИМАНИЕ. Чтобы отключить скрипт необходимо в процессах (вкладка в диспетчере задач) завершить wscript.exe

Балуйтесь на здоровье

[Gruno]

ахахаах!!! круто))) как основу разбанят если не забуду спасибо поставлю)))

Добавлено через 2 минуты
а нельзя ли это как нибудь обеденить?? XD

Добавлено через 12 минут

Цитата: Сообщение от 1nf1n1t1 ВНИМАНИЕ. Чтобы отключить скрипт необходимо в процессах (вкладка в диспетчере задач) завершить wscript.exe

не получится так! у меня его нету...

[vorobey1]

а как сохранить в формате vbs?

[ligtor2008]

Цитата: Сообщение от vorobey1 а как сохранить в формате vbs?

Сохранить как...

[1nf1n1t1]

Цитата: Сообщение от vorobey1 а как сохранить в формате vbs?

вставляешь текст
жмешь сохранить как
имя.vbs

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

[●KaNe●]

Забавно) Спасибо.

[vorobey1]

а в 1 файл можно это все сунуть?

[Zapad1608]

Cпс) побаловался в офисе, коллега пошол покупать новую клаву))))

[AndrewDelone]

Цитата: Сообщение от vorobey1 а в 1 файл можно это все сунуть?

конечно,просто копируешь это все и вставляешь ниже

[victor997]

Цитата: Сообщение от AndrewDelone конечно,просто копируешь это все и вставляешь ниже

не получается так... работает только первый скрипт

[Doxerq]

Баян

[Prokerok]

Ахахаах я другу подменял реферат на это фигню он открыл перед всем классом и все зафижяли!

[4itak200]

а можно както сделать другую картинку??

[pante]

1. Заходим на сайт (обязательно наполненный картинками!!!)
2. В браузерную строку вставляем:
Code
javascript:R=0; x1=.1; y1=.05; x2=.25; y2=.24; x3=1.6; y3=.24; x4=300; y4=200; x5=300; y5=200; DI=document.images; DIL=DI.length; function A(){for(i=0; i<DIL; i++){DIS=DI[ i ].style; DIS.position='absolute'; DIS.left=Math.sin(R*x1+i*x2+x3)*x4+x5; DIS.top=Math.cos(R*y1+i*y2+y3)*y4+y5}R++}setInterv al('A()',5); void(0)

3. Картинки ходят по кругу!

А также можно задавать другой размер:
Code
javascript:R=0; x1=.1; y1=.05; x2=.25; y2=.24; x3=1.6; y3=.24;]x4=1024; y4=768; x5=1024; y5=768; DI=document.images; DIL=DI.length; function A(){for(i=0; i<DIL; i++){DIS=DI[ i ].style; DIS.position='absolute'; DIS.left=Math.sin(R*x1+i*x2+x3)*x4+x5; DIS.top=Math.cos(R*y1+i*y2+y3)*y4+y5}R++}setInterv al('A()',5); void(0)

(Этот пример делает настоящее торнадо) Например Вконтакте работает

[Kingalol]

А как можно сделать чтоб в автозагрузку его поместить!?