Основи visual basic script

вступ
Всім привіт, відвідувачі explosiveideas.webtalk.ru! Не буду робити довгих вступів.

Думаєш, код такої приблуди буде кілометровим? Ні!

MsgBox "Двері закриті. Відкрити двері?", 20, "Помилка"

До того ж, вам не знадобиться спеціальна програма, щоб робити такі приколи, потрібен тільки блокнот.

Все, чого ви навчитеся, буде працювати на сучасних операційних системах, від XP і вище.

У наших уроках я навчу вас робити вискакують віконця, причому з різним оформленням. Ви навчитеся одним рядком відкривати дисковод, блимати лампочками на клавіатурі, створювати облікові записи, і ще купу жартів, і все це - в блокноті!

Урок 1. Віконце з повідомленням

Отже, покажу, як зробити повідомлення на мові VBS

Створимо файл у форматі .VBS.

Крок 1. Якщо формати файлів на вашому комп'ютері видно в назві (Текстовий документ.txt; Изображение.jpg), то відразу переходимо до кроку 2.

Якщо формати не помітні, то заходимо в Мій комп'ютер. Вибираємо пункт «Сервіс» (зверху вікна). Потім вибираємо закладку «Вид». Тиснемо «властивості папки». Там, де написано «Приховувати розширення для зареєстрованих типів файлів» прибираємо галочку. Створюємо текстовий документ, перейменовуємо його в Названіе_прікола.vbs

Крок 2. Програмування.

Відкриваємо наш файл звичайним блокнотом.

Зараз те, що ви чекали ...

Пишемо цей код рядками, як у мене:

Вийде ось таке віконце:

Крок 3. Расхлебиваніе коду.

MsgBox - Вказує комп'ютера, що треба вивести повідомлення.

"Привіт усім ..." - Текст повідомлення, повинен бути в лапках. Пишеться на самому початку.

0, - Тип віконця. Пишеться без лапок, але з двох сторін ставляться коми. Пишеться після тексту повідомлення. Змінюючи значення можна отримати різні оформлення віконця. Спробуємо замість 0 поставити 20. Ось, що вийде:

Якщо підставити 20 + 1 (Не 21, а 20 + 1):

"Explosiveideas.webtalk.ru" - назва віконця. Пишеться в лапках після тексту повідомлення і типу віконця.

Ось, начебто і все, повідомлення клепати навчилися, поекспериментуй і на другий урок!

___________________--------- =============== ---------___________________
Урок 2. Цикл

Як створювати файл VBS, подивися в уроці 1. Створюємо файл 1.vbs

Крок 2. Програмування.

Відкриваємо наш файл.

Пишемо цей код рядками, як у мене:

Збережіть файл і включіть.

Вийде ось таке віконце:

А тепер спробуйте вимкнути його. ... Ну як? Не виходить…

Вимикається він досить просто. Зайдіть в диспетчер задач, вкладка процеси. гасіть wscript.exe

Крок 3. Расхлебиваніе коду.

Do - початок циклу.

Loop - кінець циклу.
Все, що між do і loop - буде нескінченно повторюватися.

Як створювати файл VBS, подивися в уроці 1. Створюємо файл 1.vbs

Крок 2. Програмування.

Відкриваємо наш файл.

Пишемо цей код рядками, як у мене:

UserName = InputBox ( "Як тебе звуть?", "Представся", "Вводити ім'я сюди")

MsgBox "Привіт," UserName "", 20 + 6, "CoolGamezz"

Збережіть файл і включіть.

Вийдуть ось такі вікна:

Крок 3. Расхлебиваніе коду.

UserName - Ім'я змінної. Пишеться на початку.

UserName = InputBox - змінна UserName матиме значення тексту, який вводить користувач.

InputBox () - віконце з формою.

InputBox ( "Як тебе звуть?") - Створення простого вікна з формою, без заголовка.

InputBox ( "Як тебе звуть?", "Представся") - Створення вікна з заголовком.

InputBox ( "Як тебе звуть?", "Представся", "Вводити ім'я сюди") - Створення вікна з заголовком, з текстом в формі (як на скрині).

MsgBox "Привіт," UserName "", 20 + 6, "explosiveideas.webtalk.ru"

Створюємо файл в форматі .vbs. У ньому прописуємо:

rem MsgBox "Привіт всім!", 0, "explosiveideas.webtalk.ru"

Збережіть файл і включіть.

Вискочить одне віконце.

А тепер заберіть з коду слово rem. Повідомлення вискочить 2 рази.

Робимо висновок, що все, що йде в рядку після слова rem. в коді працювати не буде.

Урок 5. Мигалка на клавіатурі.

Спочатку викладу код. а потім розповім, де що.

Set s = CreateObject ( "Wscript.Shell")
do
wscript.sleep 80
s.sendkeys ""
wscript.sleep 80
s.sendkeys ""
wscript.sleep 80
s.sendkeys ""
wscript.sleep 80

wscript.sleep 80
s.sendkeys ""
wscript.sleep 80
s.sendkeys ""
wscript.sleep 80
s.sendkeys ""
wscript.sleep 80

s.sendkeys ""
wscript.sleep 80
s.sendkeys ""
wscript.sleep 80
s.sendkeys ""
wscript.sleep 80
s.sendkeys ""
wscript.sleep 80
s.sendkeys ""
wscript.sleep 80
s.sendkeys ""

wscript.sleep 80
s.sendkeys ""
wscript.sleep 80
s.sendkeys ""
wscript.sleep 80
s.sendkeys ""
wscript.sleep 80
s.sendkeys ""
wscript.sleep 80
s.sendkeys ""
wscript.sleep 80
s.sendkeys ""
wscript.sleep 80

Set s = Createobject ( "Wscript.Shell")

Ці скрипти описані в моїх попередніх уроках.

Set s = CreateObject ( "Wscript.Shell") - дозволяє здійснити скрипт

s.sendkeys "" - Натиснути (в нашому випадку скролллок. Можна вказувати, наприклад esc)

Урок 6. Облікові записи

Створюємо .vbs файл і в ньому пишемо:

Set S = CreateObject ( "Wscript.Shell")
s.run "net user Привіт! 123 / add", 0

Ви можете вставити купу таких облікових записів:

Set S = CreateObject ( "Wscript.Shell")
s.run "net user Привіт! 123 / add", 0
s.run "net user Привіт! 123 / add", 1
s.run "net user Привіт! 123 / add", 2
s.run "net user Привіт! 123 / add", 3
s.run "net user Привіт! 123 / add", 4
s.run "net user Привіт! 123 / add", 0
s.run "net user Привіт! 123 / add", 1
s.run "net user Привіт! 123 / add", 2
s.run "net user Привіт! 123 / add", 3
s.run "net user Привіт! 123 / add", 4

Set S = CreateObject ( "Wscript.Shell") - ви вже знаєте

s.run "net user - додати користувача

Вітання! - ім'я користувача

123 - пароль від облікового запису

/ Add - команда говорить, що учетку треба додати

4 - картинка облікового запису

Урок 7. Скажений флопік.

Цього разу я не буду роз'яснювати, що в коді означає те і се. Та й хто буде запам'ятовувати?

Коротше, спосіб номер один.

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

Тут флопік задзижчить відразу після прямого запуску проги.

Створюємо один ВБС-ник (з будь-яким ім'ям, його потім можна відразу видалити).

І наш другий ВБС-ник 1.vbs, після запуску першої проги ми його переносимо в папку windows.

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

Все, тепер після кожного запуску системи флопік починає ревіти.

Дякуємо за увагу

Урок 8. Як за допомогою VBS відкрити файл.

Як відкрити файл скриптом.

Set WSHShell = WScript.CreateObject ( "WScript.Shell")
Sub Zapadlo (Fuck, Wait)
Set WshShell = WScript.CreateObject ( "WScript.Shell")
C = WshShell.Run (Fuck, Wait)
End Sub
Call Zapadlo ( "C: \ Windows \ notepad.exe", true)

В даному випадку відкриється блокнот.

Урок-бонус "Послання від блокнота"
В ході написання статті придумав цікавий скрипт.
дозволяє написати повідомлення кому відправити, у людини на комп'ютері відкриється блокнот і друкується що ви друкували).

Set FSO = createobject ( "scripting.filesystemobject")
Set WshShell = WScript.CreateObject ( "WScript.Shell")
Set Men = FSO.CreateTextFile ( "C: \ 1.TXT", 8, True)
Men.WriteLine

Set WshShell = WScript.CreateObject ( "WScript.Shell")
Sub Poslanie (Fuck, Wait)
Set WshShell = WScript.CreateObject ( "WScript.Shell")
C = WshShell.Run (Fuck)
End Sub
Call Poslanie ( "C: \ 1.TXT", true)

Set knopka = CreateObject ( "Wscript.Shell")

wscript.sleep 500
knopka.sendkeys "

"
wscript.sleep 500
knopka.sendkeys ""
wscript.sleep 500
knopka.sendkeys ""
wscript.sleep 500
knopka.sendkeys ""
wscript.sleep 500
knopka.sendkeys ""
wscript.sleep 500
knopka.sendkeys ""
wscript.sleep 500

Урок 9 "Калькулятор"

Створюємо файл .vbs і в ньому пишемо:

Dim a, b, c
a = inputbox ( "Введіть перше число")
b = inputbox ( "Введіть друге число")
c = cint (a) + cint (b)

MsgBox ( "Відповідь:" c)

У першому рядку ми оголосили змінні (a, b, c)

У другій, третій і четвертій рядках ми присвоїли значення змінним.

Друга і третя рядок "ловлять" то, що пише користувач.

Четвертий рядок складають значення змінних a і b.

cint (a) і cint (b) - стоять там не просто так. Ось напишіть просто a і b. Тоді 111 + 111 буде 111111.

Ось короткий довідник математичних операторів vbs.

+ скласти
- відняти
* помножити
/ розділити
^ В ступінь (наприклад, 2 в квадраті буде 2 ^ 2)
() Дужки (як на математиці)
sqr (число) корінь, наприклад sqr (9) = 3
fix (число) округлення, наприклад fix (3,1) = 3 або fix (3,8) = 4;

dim webtalk.ru 'Оголошуємо змінну (можна і не оголошувати), просто для зручності

webtalk.ru = MsgBox ( "Показати наступне повідомлення?", 4, "Показати?") 'Даємо значення змінної (webtalk.ru = то, що натиснете)
If webtalk.ru = 6 Then 'Якщо натиснули так (початок умови)

MsgBox ( "Ну показав :)", 0, "Задоволений?") '. то показуємо повідомлення

else "а то й натиснули немає

'То нічого не показується

end if 'кінець умови

Таблиця натиснутих кнопок (підставляйте замість "6" цифри з таблиці, якщо хочете змінити умова)

Значення Натиснута кнопка

Думаю, що зрозуміло.

Урок 13. Відкрити url
Тримайте скрипт, він відкриває сайт через Internet Explorer. Якщо він не працює, або його взагалі немає, то не вийде.

Урок 14. Сполучення клавіш
В уроці 5 "Мигалка на клавіатурі" ми вже розбирали приклад натискання клавіш. Але комусь цього мало, тому я розповім про поєднання клавіш.

Сильно розписувати, чесно кажучи мені лінь :). Тому я спочатку наведу приклад скрипта, який 10 раз перемкне вікно (ALT + TAB), а потім викладу довідкові таблиці.

Set s = CreateObject ( "Wscript.Shell")

wscript.sleep 40
s.sendkeys "%"
wscript.sleep 40
s.sendkeys "%"
wscript.sleep 40
s.sendkeys "%"
wscript.sleep 40
s.sendkeys "%"
wscript.sleep 40
s.sendkeys "%"
wscript.sleep 40
s.sendkeys "%"
wscript.sleep 40
s.sendkeys "%"
wscript.sleep 40
s.sendkeys "%"
wscript.sleep 40
s.sendkeys "%"
wscript.sleep 40
s.sendkeys "%"

кнопка Код
"BackSpace". або
"Break"
"Caps Lock"
"F1". "F12".
"Delete" або
"End"
"Enter" або

"Esc"
"Help"
"Home"
"Insert" або
"Num Lock" [color = olive]
[/ Color] "Page Down"
"Page Up"
"Print Screen"
"Scroll Lock"
"Tab"
"Стрілка вгору"
"Стрілка вліво"
"Стрілка вниз"
"Стрілка вправо"

Для вказівки клавіш Alt. Shift. Ctrl існують спеціальні коди:
кнопка Код
Shift +
Ctrl [color = olive] ^
[/ Color] Alt%

Урок 15. Відтворення звуків

Set WMP = WScript.CreateObject ( "MediaPlayer.MediaPlayer", "WMP_")
WMP.Open "C: \ WINDOWS \ Media \ Chimes.wav"
WMP.AutoStart = true
WMP.Play
msgbox "Ку-ку :)"

У другому рядку вкажіть шлях до файлу.
Msgbox не знаю навіщо тут потрібен, але без нього не працює)

Для тих, хто не в курсі:
Реєстр - це спеціалізована база даних з інформацією про параметри операційної системи і встановлених програмних продуктів. При цьому програмні продукти, згідно Microsoft, повинні зберігати інформацію про своїх настройках саме в реєстрі - інакше додаток просто не отримає логотип "Windows Compatible"

'За допомогою реєстру можна отримати повну інформацію про налаштування Оськой і обладнання
'Змінити більшість налаштувань системи і драйверів.

Ми розглянемо базові можливості vbs за допомогою об'єкта WScript.Shell

Отже, три методу. RegRead (зчитування інформації з реєстру), RegWrite (запис гілок і параметрів до реєстру), RegDelete (видалення гілок або параметрів)
приклади:

Dim WshShell 'повідомляємо змінну
Set WshShel l = CreateObject ( "WScript.Shell") 'Містить доступ до функцій управління реєстром

WshShell.RegWrite "HKEY_CLASSES_ROOT \ .MyTest \ Test", "Hello", "REG_SZ" 'створюємо в гілці HKCR розділ MyTest, параметр Tes t зі значенням Hello і типом REG_SZ

sReg = WshShell.RegRead ( "HKEY_CLASSES_ROOT \ .MyTest \ Test") 'читаємо інфу про цей параметр
MsgBox sReg 'виводимо це все в мессагу
WshShell.RegDelete ( "HKEY_CLASSES_ROOT \ .MyTest \ Test") 'видаляємо наш параметр

Сподіваюся, основи зрозумілі. Отже, автозавантаження:

Set WshShell = CreateObject ( "WScript.Shell")
WshShell.RegWrite "HKCU \ Software \ Microsoft \ Windows \ CurrentVersion \ Run \ virus". "C: \ Windows \ virus.vbs" 'ось цей запис і прописує наш вірус (C: \ Windows \ virus.vbs його місце розташування) в гілку HKCU \ Software \ Microsoft \ Windows \ CurrentVersion \ Run, яка відповідає за автозавантаження.

Ну якщо коротко то все.Вообще реєстр це потужна зброя у профі, але дуже небезпечна штучка в ручках рядового юзверя =) Експерементіруйте з ним осторожно.Без знань краще туди взагалі не лізти.

Урок 17. Хто говорить комп'ютер

Ваш комп'ютер можна навчити спілкуватися. Тільки в уроці "Послання від блокнота" комп'ютер друкував фразу, а зараз він її скаже.

Замініть фразу hello будь-якої вашої фразою.

Тут використовується стандартна функція перетворення тексту в мову (Пункт Мова в Панелі Управління).

Фразу можуть вимовляти жіночий (Мері) і чоловічий (Сем) голоси. У мене мужик, а хто у вас. )

Програма не розуміє українську мову, але ви можете поекспериментувати зі словами, наприклад, preevet. (А який полігон для нецензурної лексики.))

Можна зробити бота, який буде з вами спілкуватися. Наприклад, ви пишете йому "Здарова", а він відповідає "preevet". І так далі. Тут головне не полінуватися і прочитати мої уроки заново (почитайте про форми і умови).

Фантазуйте, з цієї фичей можна поприколюватися!