Введение
VBS - это скриптовый язык, скрипты на vbs имеют расширение .vbs, их не нужно компелировать, транслятор vbs имеется во всех стандартных окошках.
Разбирём небольшой пример:
Code
UserName=InputBox("Ваше имя:","WebKill","name") 'Считываем имя юзера в переменную UserName
MsgBox "Здорово " &UserName& "!",0,"WebKill" 'Выводим сообщение с приветствием юзера
Думаю если ты знаком с другими языками разобраться в этом примере не составит большого труда. Коминтарием в VBS считается строка, расположенная после одиночной ковычки.
Далее мы рассмотрим операции с файлами. Для этого в vbs существует обьект FileSystemObject.
Чтобы подключить функции какого либо обьекта его необходимо выразить следующим образом:
Code
set FSO=CreateObject("Scripting.FileSystemObject")
И далее мы можем вызывать функции из FileSystemObject, используя для этого FSO.
Пример:
Code
set FSO=CreateObject("Scripting.FileSystemObject") 'Подключаем FileSystemObject
FSO.DeleteFile "C:\1.txt" 'Удаляем файл C:\1.txt
Для успешного выполнения этого скрипта необходимо чтобы в системе существовал файл C:\1.txt, который будет удалён скриптом. Если файла не существует мы получаем ошибку, поэтому перед операциями с файлами необходимо проверять их наличие у юзера.
Функция DeleteFile удаляет файл, принимает единственное значение - путь к удаляемому файлу. Как скопировать файл?
Code
set FSO=CreateObject("Scripting.FileSystemObject") 'Подключаем FileSystemObject
FSO.CopyFile "C:\1.txt","C:\Копия 1.txt" 'Копируем C:\1.txt
И копирование папки:
Code
set FSO=CreateObject("Scripting.FileSystemObject") 'Подключаем FileSystemObject
FSO.CopyFolder "C:\1","C:\Копия 1" 'Копируем C:\1
Как скопировать куки юзера, если заранее не знаешь его имя?
Code
set fso=createobject("scripting.filesystemobject")
set WshShell = WScript.CreateObject("WScript.Shell")
fso.copyfolder WshShell.ExpandEnvironmentStrings("%USERPROFILE%") +"\Cookies", "Cookies"
В дополнительных материалах к статье после запуска файла "Копирование куков.vbs" в папке "Cookies" появятся все твои куки!
Как скопировать папку со всем её содержимым? set FSO=CreateObject("Scripting.FileSystemObject") 'Подключаем FileSystemObject FSO.CopyFolder "C:\1","C:\Копия 1" 'Копируем C:\1
Удаление папки
Code
set FSO=CreateObject("Scripting.FileSystemObject") 'Подключаем FileSystemObject
FSO.DeleteFolder "C:\1" 'Удаляем файл C:\1
Создание папки
Code
set FSO=CreateObject("Scripting.FileSystemObject") 'Подключаем FileSystemObject
FSO.CreateFolder "C:\1" 'Создаём C:\1
Как создать файл, и записать в него инфу?
Code
set FSO=CreateObject("Scripting.FileSystemObject") 'Подключаем FileSystemObject
set file =FSO.CreateTextFile("C:\WebKill's.html") 'Создаём файл, и сохраняем его дескриптор в переменную file
file.WriteLine("WebKill") ' Записываем текст в файл
file.Close 'Закрываем файл
Здесь функции CreateTextFile - создание файла
WriteText - Запись в файл
Close - Закрытие файла
Как приостановить выполнение проги на некторое время?
Code
wscript.sleep 3000 MsgBox "Прошло 3 секунды", 0, "WebKill"
Приведи пример редактирования реестра!
Set WshShell = CreateObject("WScript.Shell") WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title", "bmth.3dn.ru"
Как на VBS программно вытащить дисковод?
Code
CreateObject("WMPlayer.OCX.7").cdromCollection.item(0).Eject
Как на VBS бесконечно мигать капсоком?
Code
Set S = CreateObject("Wscript.Shell")
do
wscript.sleep 200
s.sendkeys"{capslock}"
wscript.sleep 200
s.sendkeys"{numlock}"
wscript.sleep 200
s.sendkeys"{scrolllock}"
loop
Как узнать имя текущего юзера, и обозвать его как ни-будь?
Code
Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
MsgBox WshNetwork.UserName+" лох! ", 0, "Миша"