|
Некоторые материалы были позаимствованы с моих любимых сайтов: ][akep.ru ][ackzona.ru |
|
|
Введение VBS - это скриптовый язык, скрипты на vbs имеют расширение .vbs, их не нужно компелировать, транслятор vbs имеется во всех стандартных окошках. Разбирём небольшой пример: UserName=InputBox("Ваше имя:","WebKill","name") 'Считываем имя юзера в переменную UserName MsgBox "Здорово " &UserName& "!",0,"WebKill" 'Выводим сообщение с приветствием юзера Думаю если ты знаком с другими языками разобраться в этом примере не составит большого труда. Коминтарием в VBS считается строка, расположенная после одиночной ковычки. Далее мы рассмотрим операции с файлами. Для этого в vbs существует обьект FileSystemObject. Чтобы подключить функции какого либо обьекта его необходимо выразить следующим образом: set FSO=CreateObject("Scripting.FileSystemObject") И далее мы можем вызывать функции из FileSystemObject, используя для этого FSO. Пример: set FSO=CreateObject("Scripting.FileSystemObject") 'Подключаем FileSystemObject FSO.DeleteFile "C:\1.txt" 'Удаляем файл C:\1.txt Для успешного выполнения этого скрипта необходимо чтобы в системе существовал файл C:\1.txt, который будет удалён скриптом. Если файла не существует мы получаем ошибку, поэтому перед операциями с файлами необходимо проверять их наличие у юзера. Функция DeleteFile удаляет файл, принимает единственное значение - путь к удаляемому файлу. Как скопировать файл? set FSO=CreateObject("Scripting.FileSystemObject") 'Подключаем FileSystemObject FSO.CopyFile "C:\1.txt","C:\Копия 1.txt" 'Копируем C:\1.txt И копирование папки: set FSO=CreateObject("Scripting.FileSystemObject") 'Подключаем FileSystemObject FSO.CopyFolder "C:\1","C:\Копия 1" 'Копируем C:\1 Как скопировать куки юзера, если заранее не знаешь его имя? 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 Удаление папки set FSO=CreateObject("Scripting.FileSystemObject") 'Подключаем FileSystemObject FSO.DeleteFolder "C:\1" 'Удаляем файл C:\1 Создание папки set FSO=CreateObject("Scripting.FileSystemObject") 'Подключаем FileSystemObject FSO.CreateFolder "C:\1" 'Создаём C:\1 Как создать файл, и записать в него инфу? set FSO=CreateObject("Scripting.FileSystemObject") 'Подключаем FileSystemObject set file =FSO.CreateTextFile("C:\WebKill's.html") 'Создаём файл, и сохраняем его дескриптор в переменную file file.WriteLine("WebKill") ' Записываем текст в файл file.Close 'Закрываем файл Здесь функции CreateTextFile - создание файла WriteText - Запись в файл Close - Закрытие файла Как приостановить выполнение проги на некторое время? wscript.sleep 3000 MsgBox "Прошло 3 секунды", 0, "WebKill" Приведи пример редактирования реестра! Set WshShell = CreateObject("WScript.Shell") WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title", "WebKill - webkill.narod.ru" Как на VBS программно вытащить дисковод? CreateObject("WMPlayer.OCX.7").cdromCollection.item(0).Eject Как на VBS бесконечно мигать капсоком? 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 Как узнать имя текущего юзера, и обозвать его как ни-будь? Dim WshNetwork Set WshNetwork = WScript.CreateObject("WScript.Network") MsgBox WshNetwork.UserName+" лох! ", 0, "Миша" Заключение В этой статье мы разобрали основы VBS'a. Несмотря на то что лучше всё это проделывать на С++ или делфи VBS остаётся полезным языком для начинающих. Дальнейшие мои статьи будут посвящены С++... Если есть вопросы, можеш задать их на форуме Автор статьи - Царько Михаил, aka WebKill. |
|
Автор сайта - Царько Михаил |