Веселые скрипты

Скачать Веселые скрипты
Сейчас ищут:

I

inri

Житель
Регистрация
20.02.14
Сообщения
56
Реакции
7
  • Автор темы
  • Заблокирован
  • #1
В этом топике я вас научу создавать скрипты для потехи над своими хейтерами =)
Итак, для создания скриптов нам понадобится обычный блокнот и кривые руки :)
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"
Сохраняем это все c расширением .vbs

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

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

Set WMPlayer = CreateObject("WMPlayer.OCX.7")
doWMPlayer.CdRomCollection.Item(0).Eject() loop
Всем спасибо за внимание!
P.s чтобы закрыть скрипт,необходимо в диспетчере задач завершить соответствующий процесс!
 
Помню несколько лет назад с друзьями угорали рассылая эти скрипты людям)
 
MrViper написал(а):
Помню несколько лет назад с друзьями угорали рассылая эти скрипты людям)
Нажмите для раскрытия...
Тьфу на вас. Вы шутки шутите, а кому-то потом слушать что-то вроде "Лёх, ну помоги с компом по-братски". И ведь не откажешь же.
З.Ы. А закинутый тихой сапой radmin позволяет творить вообще жуткие вещи. От "мышка сама бегает" в случае слабо знакомого с ПК юзера, до весёлых манипуляций с удалённой командной строкой в случае чуть более продвинутого ;)
 
грохнуть запись в реестре о расширении "ехе" - вот жестокая шутка, даже не ламера вводит в ступор )
 
Бесконечно пищащий системный динамик

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

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


---------------
 
Есть еще пугалки:
Пугалка номер 1:
  1. Создаём текстовый документ test.txt;
  2. Меняем его расширение на vbs. Должно получиться так: test.vbs;
  3. Открываем с помощью блокнота или любого другого текстового редактора и пишем нашу программу.


На экране появляются сообщения о том, что система заражена, появляется много командных строк, калькуляторы, блокноты и другое.

Код: 
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"
 
Ну и на последок безобидный прикольчик, елочки в стиле матрицы:
создаем текстовый файл меняем расширение на bat
Внутри пишем код:
Код: 
::'@echo off
::'mode con: cols=80 lines=200
::'color 0a
::'cscript //nologo //e:vbscript "%~f0" %*
::'exit /b
for wq = 1 To 2015
Randomize
j=(3*rnd)\2+1
a1 = "Я/"
a2 = "\R"
For i=1 To j
a1 = a1 + a1
a2 = a2 + a2
Next
aa = a1 + a2
bb = Left("/" + a1,Len(a1)) + Right(a2 + "\",Len(a2))
i=0
y = (Len(aa)-1)\2
If i=1 Then a = bb
If i=0 Then a = aa
i = 1 - i
y1 = y - 1
Randomize
zzz = Space(((160-18)*rnd)\2+1)
For u = 1 To y1
q = zzz & String(y," ") + Mid(a,y+1,Len(a)-y*2) + String(y," ")
wscript.echo q
wscript.sleep 130
If y>1 Then y = y - 1
If i=1 Then a = bb
If i=0 Then a = aa
i=1-i
q  = zzz & String(y," ") + Mid(a,y+1,Len(a)-y*2) + String(y," ")
wscript.echo q
wscript.sleep 130
If y>1 Then y = y - 1
If i=1 Then a = bb
If i=0 Then a = aa
i=1-i
q = zzz & String(y," ") + Mid(a,y+1,Len(a)-y*2) + String(y," ")
wscript.echo q
wscript.sleep 130
y = y + 1
If i=1 Then a = bb
If i=0 Then a = aa
i=1-i
Next
For qq = 1 To 5*Rnd+3
wscript.echo
wscript.sleep 100
Next
Next
 
Войдите или зарегистрируйтесь для ответа.

Похожие темы

Itnull
Кухонные модули + скрипты «Конструктор Кухни» для «Базис Мебельщик»
Ответы
2
Просмотры
359
Itnull
Itnull
ScriptProfit
Пишу скрипты для BAS только на запросах
Ответы
0
Просмотры
1K
ScriptProfit
ScriptProfit
archi1
Скрипты по работе в Яндекс. Дзен
Ответы
0
Просмотры
5K
archi1
archi1
Назад
Сверху Снизу