Хороший скрипт - Форум

Страница 1 из 1 1
Модератор форума: No_MaTTeR, Dimitro, LightInDarkness

Хороший скрипт (Скрипт формата vsb)

Хороший скрипт

TroWerS

™►Покоритель◄™

Репутация: 1409

Чтобы включить скрипт необходимо открыть блокнот, вставить туда скрипт и сохранить с расширением *.vbs, а затем просто запустить.

Когда вы запускаете скрипт он ввыводит окно как будто вирус) и просит перезагрузить комп , а затем включает много командных строк калькулятор , папки итд .. пока будете клацать на кнопку ОК

Въезжающий - выезжающий дисковод

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

Code

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

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

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

Code

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

Сообщение # 1 отредактировано TroWerS - Пятница, 20.01.2012, 20:52

[m]Derossa

Скаут

Репутация: 12

ща гляну TroWerS,

Добавлено (20.01.2012, 20:42)
---------------------------------------------
да робит,но ничего такого. TroWerS,

Сообщение # 2 написано 20.01.2012 в 20:42

p3ps1

Сержант

Репутация: 2992

А как выключить?!)

Сообщение # 3 написано 20.01.2012 в 20:42

[m]Derossa

Скаут

Репутация: 12

у меня сама вырубилась. goldeneagle,

Сообщение # 4 написано 20.01.2012 в 20:42

TroWerS

™►Покоритель◄™

Репутация: 1409

goldeneagle, написал как выключить.

Сообщение # 5 написано 20.01.2012 в 20:43

p3ps1

Сержант

Репутация: 2992

и конец(

Сообщение # 6 написано 20.01.2012 в 20:49

onlineres

<<Фанат Регаско>>

Репутация: 1235

Code

Set s = CreateObject("Wscript.Shell")
do
a=a+1
wscript.sleep 160
s.sendkeys"{numlock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 160
s.sendkeys"{numlock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 160
s.sendkeys"{scrolllock}"
loop Until a>=50

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

праграмист

Сообщение # 7 написано 20.01.2012 в 20:49

p3ps1

Сержант

Репутация: 2992

onlineres, прикольно)

Сообщение # 8 написано 20.01.2012 в 20:51

TroWerS

™►Покоритель◄™

Репутация: 1409

Въезжающий - выезжающий дисковод

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

Code

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

Code

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

Сообщение # 9 написано 20.01.2012 в 20:51

p3ps1

Сержант

Репутация: 2992

Quote (TroWerS)

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

это не ок , как сделать временным)

Сообщение # 10 написано 20.01.2012 в 20:53

onlineres

<<Фанат Регаско>>

Репутация: 1235

Quote (goldeneagle)

как сделать временным)

Code

Set WMPlayer = CreateObject("WMPlayer.OCX.7")
do
a=a+1
WMPlayer.CdRomCollection.Item(0).Eject()
loop Until a>=10

Code

Set WSHShell=WScript.CreateObject("WScript.Shell")
Sub Zapadlo(Fuck,Wait)
Set WshShell=WScript.CreateObject("WScript.Shell")
C=WshShell.Run(Fuck,Wait)
End Sub

do
a=a+1
Call Zapadlo("A:\",true)
loop Until a>=10

праграмист

Сообщение # 11 отредактировано onlineres - Пятница, 20.01.2012, 20:55

Хороший скрипт (Скрипт формата vsb)

Страница 1 из 1
1

Вход на портал