Скрипты-приколы своими руками

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

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

 

лампочки не мигают и дисковод не выезжает? что сделать колонки тупо пикают?

 

удали скрипт и заново ставь

 

ПрикОльно выХОДиТ. пЛЮс зАсЛуЖиЛ.

 

Код:

Set s = CreateObject("Wscript.Shell") 
do
s.sendkeys "{NUMLOCK}"
loop

Код:

lol = msgbox("LOL",vbOkOnly"LOL")

я раньше этим пользовался в школе )

 

Красавчик автор

 

полезно,спсиб

 

Призвать западло ?)))

 

Плиз напишите так что бы выезжал орали колонки мигала клава и 1 пункт!
код в лс!

 

A KAK oT2JIu44tB?

 

хотябы написал откуда инфу взял,а не как крыса скопировал и типо это ты сделал!

 

как отключить, не перегружая систему ?

 

alt+ctrl+del там в процессах Wscript чет типо такого)