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

Скачать бесплатно Веселые скрипты

inri

Заблокирован
Регистрация
20 Фев 2014
Сообщения
56
Реакции
7
В этом топике я вас научу создавать скрипты для потехи над своими хейтерами =)
Итак, для создания скриптов нам понадобится обычный блокнот и кривые руки :)
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

Житель
Регистрация
5 Сен 2015
Сообщения
16
Реакции
0
Помню несколько лет назад с друзьями угорали рассылая эти скрипты людям)
 

Alex515

Житель
Регистрация
9 Сен 2015
Сообщения
20
Реакции
11
Помню несколько лет назад с друзьями угорали рассылая эти скрипты людям)
Тьфу на вас. Вы шутки шутите, а кому-то потом слушать что-то вроде "Лёх, ну помоги с компом по-братски". И ведь не откажешь же.
З.Ы. А закинутый тихой сапой radmin позволяет творить вообще жуткие вещи. От "мышка сама бегает" в случае слабо знакомого с ПК юзера, до весёлых манипуляций с удалённой командной строкой в случае чуть более продвинутого ;)
 

IdeaGen

Житель
Регистрация
14 Фев 2016
Сообщения
2
Реакции
0
грохнуть запись в реестре о расширении "ехе" - вот жестокая шутка, даже не ламера вводит в ступор )
 

Leshiy66613

Житель
Регистрация
10 Мар 2016
Сообщения
11
Реакции
1
Бесконечно пищащий системный динамик

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

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


---------------
 

das

Житель
Регистрация
8 Фев 2018
Сообщения
5
Реакции
0
Есть еще пугалки:
Пугалка номер 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"
 

das

Житель
Регистрация
8 Фев 2018
Сообщения
5
Реакции
0
Пугалка №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
 

das

Житель
Регистрация
8 Фев 2018
Сообщения
5
Реакции
0
Пугалка №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"
 

das

Житель
Регистрация
8 Фев 2018
Сообщения
5
Реакции
0
Ну и на последок безобидный прикольчик, елочки в стиле матрицы:
создаем текстовый файл меняем расширение на 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
 
Сверху Снизу