Vbs script: VBScript - Краткое руководство

Содержание

VBScript: Строковые функции vbs | scriptcoding.ru

В этой статье рассмотрены строковые функции vbs сценариев, которые могут пригодиться при написании собственного текстового редактора или, просто, при работе со строковыми значениями и с символами. Для каждой функции я написал vbs сценарий, и дал ссылку на архив для скачивания.

Строковые функции vbs

Asc(str) – С помощью этой строковой функции vbs можно получить ASCII-код первого символа в строке str. Параметр str может быть пробелом или содержать только один символ.

'**********************************
' Получение кода символа
' asc.vbs
'**********************************
dim a, b, c
 
a = asc(" ")
b = asc("string")
c = asc("A")
 
MsgBox a & vbCrLf & b & vbCrLf & c

Chr(code) – Данная vbs строковая функция позволяет получить символ, указав в качестве параметра его ASCII-код

'**********************************
' Получение символа по его коду
' chr.vbs
'**********************************
dim i, list
 
for i=100 to 120
list = list & chr(i) & vbCrLf
next
 
MsgBox list

InStr([start,] str1, str2 [, compare]) – позволяет определить позицию, с которой начинается искомая последовательность символов в заданной строчке.

Start – данный аргумент является числом, и задает позицию, начиная с которой надо начать поиск. Если аргумент отсутствует, то поиск производится с начала.
string1 – собственно, та строка, в которой надо произвести поиск.
string2 – тут мы задаем те символы, которые ищем.
compare – данный параметр может принимать значения vbBinaryCompare (учет регистра, значение 0) и vbTextCompare (без учета регистра, значение 1).

'**********************************
' Поиск в строке
' InStr.vbs
'**********************************
dim my_str, index_1, index_2, index_3
 
my_str = "это 3-й ПРИМЕР сценария на vbs"
index_1 = InStr(1,my_str,"пример",vbTextCompare)             '9
index_2 = InStr(3,my_str,"пример",vbBinaryCompare)          '0
index_3 = InStr(15,my_str,"пример",vbTextCompare)           '0

MsgBox index_1 & vbCrLf & index_2 & vbCrLf & index_3

InStrRev(strl, str2[, start [, compare]] ) – Аналогично работе предыдущей строковой vbs функции, но поиск идет в обратном порядке.

'**********************************
' Поиск в строке
' InStrRev.vbs
'**********************************
dim my_str, index_1, index_2, index_3
 
my_str = "это 3-й ПРИМЕР сценария на vbs"
index_1 = InStrRev(my_str,"пример",1,vbTextCompare)                   '0
index_2 = InStrRev(my_str,"пример",3,vbVinaryCompare)   '0
index_3 = InStrRev(my_str,"пример",15,vbTextCompare)     '9

MsgBox index_1 & vbCrLf & index_2 & vbCrLf & index_3

Join(list[, delim]) – позволяет объединить все значения элементов массива в одну строку. Тут list – одномерный массив, а delim – необязательный параметр, который задает символ разделитель.

'**********************************
' Работа с массивом
' Join.vbs
'**********************************
dim my_str, index_1, index_2, index_3, my_arr
 
my_arr = Array(1, "a","b","c",3)
my_str = Join(my_arr, "--")
 
MsgBox my_str

LCase(str) – Позволяет преобразовать все символы к нижнему регистру.

'**********************************
' Преобразование к нижнему регистру
' LCase.vbs
'**********************************
dim my_str, my_str_L
 
my_str = "ВЕРХНИЙ РЕГИСТР"
my_str_L = LCase(my_str)
 
MsgBox my_str_L

UCase(str) — Позволяет преобразовать все символы к верхнему регистру.

'**********************************
' Преобразование к верхнему регистру
' UCase.vbs
'**********************************
dim my_str, my_str_U
 
my_str = "нижний регистр"
my_str_U = UCase(my_str)
 
MsgBox my_str_U

Left(str, len) – Вернёт заданное количество (len) знаков с начала строки str.

'**********************************
' Вырезка слева
' left.vbs
'**********************************
dim my_str, my_str_result
 
my_str = "нижний регистр"
my_str_result = Left(my_str, 4)
 
MsgBox my_str_result

Right(str, len) — Вернёт заданное количество (len) знаков с конца строки str.

'**********************************
' Вырезка справа
' right.vbs
'**********************************
dim my_str, my_str_result
 
my_str = "нижний регистр"
my_str_result = Right(my_str, 4)
 
MsgBox my_str_result

Len(str) – Использование этой строковой функции vbs позволяет определить количество знаков в str.

'**********************************
' Длина строки
' len.vbs
'**********************************
dim my_str
 
my_str = "нижний регистр"
 
MsgBox len(my_str)       '14 знаков

LTrim(str) — удаление пробелов в начале.

RTrim(str) — удаление пробелов в конце.

Trim(str) – удаление пробелов в начале и в конце.

Скачать архив с примерами

'**********************************
' Удаление пробелов
' trim.vbs
'**********************************
dim my_str
 
my_str = " нижний регистр "
 
MsgBox LTrim(my_str) 
MsgBox RTrim(my_str) 
MsgBox Trim(my_str)

Space(x) — Просто формирует строчку из пробелов количеством x.

'**********************************
' Формирование пробелов
' space.vbs
'**********************************
dim my_str_1, my_str_2, my_space
 
my_str_1 = "первый"
my_str_2 = "второй"
my_space = space(10)
 
MsgBox my_str_1 & my_space & my_str_2

String(number, char) – Формирование строчки, которая состоит из заданного количества (number) определенных символов (char).

'**********************************
' Формирование строчки
' string.vbs
'**********************************
dim my_str
 
my_str = string(10,"a")
 
MsgBox my_str

Mid(str, start [, len]) – Формирование из строчки str подстрочки, которая будет начинаться с позиции start, параметр len позволяет указать длину. Строковые функции vbs.

'**********************************
' Извлечение подстроки
' mid.vbs
'**********************************
dim my_str
 
my_str = "первый второй и третий"
 
MsgBox mid(my_str, 4,8)

Replace(str, find, replacewith [, start[, count[, compare]]]) – Позволяет производит замену в строке.

str – начальная строка.
find – подстрока, которую мы ищем.
replacewith – подставляемое значение.
start – начало поиска.
count – количество замен, по умолчанию стоит -1, что говорит о полной замене.
compare – параметр принимает значения vbBinaryCompare (учет регистра, значение 0) и vbTextCompare (без учета регистра, значение 1).

'**********************************
' Замена
' replace.vbs
'**********************************
dim my_str
 
my_str = "первый четвертый и третий"
 
MsgBox replace(my_str, "четвертый", "второй")

Split(str[, delim[, count[, compare]]]) – Производит парсинг строки на подстроки и заполняет ими возвращаемый массив.

str – строка для обработки.
delim – разделитель (по умолчанию — пробел).
count – количество, по умолчанию – значение -1 (все элементы).
compare — параметр принимает значения vbBinaryCompare (учет регистра, значение 0) и vbTextCompare (без учета регистра, значение 1).

'**********************************
' Парсинг
' split.vbs
'**********************************
dim my_str, my_arr, index, list
 
my_str = "один, два, три, четыри, пять"
my_arr = split(my_str, ", ")
 
for each index in my_arr
     list = list & index & vbCrLf 
next
 
MsgBox list

StrComp(str1, str2[, compare]) – функция сравнения str1 строки и строки str2. Если они равны, возвращается 0, если str1<str2, то возвращается -1, если str1>str2 – возвращается 1. Параметр compare принимает значения vbBinaryCompare (учет регистра, значение 0) и vbTextCompare (без учёта регистра, значение 1). Строковые функции vbs.

'**********************************
' Сравнение
' StrComp.vbs
'**********************************
dim my_str_1, my_str_2, result
 
my_str_1 = "однажды"
my_str_2 = "однажды"
 
result = StrComp(my_str_1, my_str_2)
 
MsgBox result

Благодарю всех за внимание, надеюсь, материал статьи был для вас полезным.

Урок VBScript №16: Функция MsgBox и InputBox

Что то я совсем убежал вперёд и не рассказал вам про две функции диалоговых окон: MsgBox и InputBox. В этом очень небольшом уроке я и расскажу про все приблуды к этим двум функциям. Так же существуют и другие способы создания диалоговых окон, но для этого потребуются объекты WSH, о которых будет разговор в следующих уроках.

Функция MsgBox

Самая обычная функция для вывода сообщения. Конечно она сложнее, чем Echo объекта WScript, но и объект ей не нужен.
Синтаксис: MsgBox (Prompt[, Buttons][, Title][, Helpfile, Context])

Prompt — Текст сообщения.
Buttons — Выводимые кнопки и режим окна.
Title — Название окошка.
Helpfile — файл справки (*.hlp)
Context — Номер раздела справки.

Параметр Buttons может одновременно принимать несколько значений. Для того что бы их указать, используется знак «+» или просто использую сумму значений. Значения данного параметра приведены ниже.

Константы для диалоговых окон (выводимые кнопки):

vbOKOnly — Значение 0. Выводить кнопку ОК.
vbOKCancel — Значение 1. Выводить кнопки: ОК и Отмена.
vbAbortRetryIgnore — Значение 2. Выводить кнопки: Прервать, Повтор и Пропустить.
vbYesNoCancel — Значение 3. Выводить кнопки: Да, Нет и Отмена.
vbYesNo — Значение 4. Выводить кнопки: Да и Нет.
vbRetryCancel — Значение 5. Выводить кнопки: Повтор и Отмена.

Константы для диалоговых окон (выводимые значки):

vbCritical — Значение 16. Вывести значок Stop Mark.
vbQuestion — Значение 32. Вывести значок Question Mark.
vbExclamation — Значение 48. Вывести значок Exclamation Mark.
vbInformation — Значение 64. Вывести значок Information Mark.

Константы для диалоговых окон (кнопки по умолчанию):

vbDefaultButton1 — Значение 0. Первая кнопка выбирается по умолчанию.
vbDefaultButton2 — Значение 256. Вторая кнопка выбирается по умолчанию.
vbDefaultButton3 — Значение 512. Третья кнопка выбирается по умолчанию.
vbDefaultButton4 — Значение 768. Четвёртая кнопка выбирается по умолчанию.

Константы для диалоговых окон (Режим окна):

vbApplicationModal — Значение 0. Выводится в модальном режиме.
vbSystemModal — Значение 4096. Выводится в модальном режиме и располагается поверх всех приложений.

Другое:

Значение 262144 — Поверх всех окон.
Значение 524288 — Текст в окошке выводится по правому краю.

Стоит отметить, что параметр Buttons не может принимать несколько значений из одной и той же категории. Данные значения будут просто складываться. То есть, у вас не получится установить несколько наборов кнопок или иконок одновременно.

'********************************************************
'Урок VBScript №16:
'Функция MsgBox и InputBox
'file_1.vbs
'********************************************************
MsgBox "Привет", 5+16, "Название"
MsgBox "Привет", vbRetryCancel+16, "Название"
MsgBox "Привет", vbRetryCancel+524288, "Название"
MsgBox "Привет", vbAbortRetryIgnore + vbInformation + vbDefaultButton2 + vbSystemModal + 524288, "Название"
MsgBox "Привет", 528706, "Название"

Помимо этого, функция MsgBox может возвращать результат нажатия кнопок. Его можно присвоить переменной и таким способом определить нажатую кнопку.

Возвращаемый результат нажатых кнопок (константы):

vbOK — Значение 1. Кнопка Ок.
vbCancel — Значение 2. Кнопка Отмена.
vbAbort — Значение 3. Кнопка Прервать.
vbRetry — Значение 4. Кнопка Повтор.
vbIgnore — Значение 5. Кнопка Пропустить.
vbYes — Значение 6. Кнопка Да.
vbNo — Значение 7. Кнопка Нет.

'********************************************************
'Урок VBScript №16:
'Функция MsgBox и InputBox
'file_2.vbs
'********************************************************
Dim Knopka
Knopka = MsgBox("Нажми на любую кнопку",2,"Заголовок")
If Knopka = 3 Then
	MsgBox "Вы нажали ктопку - Прервать"
ElseIf Knopka = 4 Then
	MsgBox "Вы нажали ктопку - Повтор"
Else
	MsgBox "Вы нажали ктопку - Пропустить"
End If

Вот другой пример с циклом Do … Loop. Окошко не исчезнет, пока вы не нажмёте на Отмена или крестик.

'********************************************************
'Урок VBScript №16:
'Функция MsgBox и InputBox
'file_3.vbs
'********************************************************
Dim Knopka
Do
Knopka = MsgBox("Нажми на любую кнопку",5,"Заголовок")
Loop Until Knopka = 2

Функция InputBox

Данная функция VBS будет поинтересней предыдущей, так как через неё можно получить какую либо информация от пользователя.
Синтаксис: InputBox(Prompt[, Title][, Default][, Xpos][, Ypos][, Helpfile, Context])

Prompt — Текст сообщения
Title — Название, заголовок окошка.
Default — Значение по умолчанию для поля ввода. Можно использовать, как подсказку.
Xpos и Ypos — Определяют координаты верхнего, левого угла окна.
Helpfile — Путь к фалу помощи (*.hlp).
Context — Раздел файла помощи.

В пример приведу уже знакомый сценарий с объектом Dictionary:

'********************************************************
'Урок VBScript №16:
'Функция MsgBox и InputBox
'file_4.vbs
'********************************************************
Dim Dict, AboutBomb
Set Dict = CreateObject("Scripting.Dictionary")
 
Dict.CompareMode = 1
Dict.Add "Жёлтый", "Бомба взорвалась!"
Dict.Add "Красный", "Вы обезвредили бомбу!"
Dict.Add "Синий", "Бомба взорвалась!"
Dict.Add "Зелёный", "Бомба взорвалась!"
 
AboutBomb = InputBox("Обнаружена бомба!!! Какой провод резать: жёлтый, красный, синий или зелёный??","Обнаружена бомба!!!","Вводить цвет провода сюда...")
If Dict.Exists(AboutBomb) then
	MsgBox Dict.Item(AboutBomb)
else
	MsgBox "У тебя плохо со зрением! Такого провода нет! Бомба взорвалась!!!"
end if

На этом у меня всё. Оставайтесь на VBHack.Ru и вы увидите ещё много интересных статей! До новых встреч!

Операторы vbs | scriptcoding.ru

В данной статье мы с вами рассмотрим операторы vbs сценариев, а точнее условные операторы языка vbscript. Условные операторы vbs как и в многих других языках программирования позволяют управлять логикой выполнения кода. Давайте сразу к делу, в этой публикации мы рассмотрим следующие условные операторы языка vbscript: if…Then, if…Then…Else, if…Then…Elseif и оператор выбора Select…Case.

Ну, что же, давайте по порядку.

if…Then — Данная конструкция является самой простой. После ключевого слова if следует проверка условия, если оно истинно, и выполняется, то следует выполнение строки, которая идёт за ключевым словом Then:

if <проверка условия> then <выражение>

if…Then…Else — Данный vbs оператор по сравнению с предыдущей конструкцией имеет дополнительное ключевое слово Else. Данное выражение удобно в том случае, если нам нужно проверить условие, и в зависимости от результата проверки, выполнить то или иное действие. Тут, как и прежде, после ключевого слова if следует проверка условия, если оно истинно (выполняется), то следует выполнение строчки (строк) кода, что находится после ключевого слова Then, если же условие не выполняется, следует выполнение строки кода, что находится после Else:

if <проверка условия> then <выражение1> else <выражение2>

if…Then…Elseif — Этот условный оператор vbs содержит в себе, фактически два оператора vbs (if…Then), то есть, сначала, как и прежде следует проверка условия, далее, если условие истинно, идёт выполнение кода после ключевого Then, если же условие проверки не выполняется (ложное), то идет новая проверка, после ключевого слова Elseif, далее могут следовать заново ключевые слова then и else:

if <проверка условия1> then <выражение1> elseif < проверка условия2><новые условные операторы vbs>

Стоит помнить, что, для закрытия блока условного оператора vbs следует в конце прописывать ключевое слово Endif.

Что бы закрепить прочитанное, давайте рассмотрим следующий пример сценария vbscript. Так как изначально, назначением языка программирования было решение математических уравнений и выполнение различных математических вычислений, мы, что бы не изменять традиции, решим простое квадратное уравнение:

' *****************************************************************************
' Пример работы с условным оператором if
' if_then.vbs
' *****************************************************************************

' Включаем проверку переменных
Option Explicit
' Объявляем переменные
Dim x1, x2, x                              ' варианты решения
Dim a, b, c                                  ' будут хранить значения
Dim D, msg                                ' Дискриминант и сообщение

' Назначаем значения
a=-10
b=20
c=100
 
'Ищем дискриминант
D=b^2-4*a*c
 
'Если дискриминант равен нулую - одно решение
if D=0 then
     x=-b/(2*a)
     msg="Уравнение имеет одно решение, x ровно: " & x
'Если дискриминант больше нуля - два решения
elseif D>0 then
     x1=(-b+sqr(D))/(2*a)
     x2=(-b-sqr(D))/(2*a)
     msg="Уравнение имеет два решения" & vbCrLf & "x1 ровно: " & x1 & vbCrLf & "x2 ровно: " & x2
'Если дискриминант меньше нуля - нет решения   
else
     msg="Нет решения (комплексные числа)"
End If
MsgBox msg

Тут в принципе всё просто, вначале мы находим дискриминант, результаты решения могут быть только три, если дискриминант равен нулю, то уравнение имеет только одно решение, если значение дискриминант больше нуля – то у уравнения есть два решения, ну и третий вариант – значение D отрицательное, в таком случае у уравнения нет решений, хотя… они есть, только мы получим комплексные числа.

Скачать архив с примерами

Хорошо, теперь давайте рассмотрим условный оператор выбора vbs сценариев – select case:

Select…Case — Конструкция Select…Case полезна в том случае, когда в результате математических вычислений и не только, мы знаем, какое значение переменной можем получить, и в зависимости от значения, нужно выполнить то или иное выражение. В отличии от if тут нет проверки условия, поэтому для решения того же квадратного уравнения мы не можем воспользоваться оператором vbs select…case, если только не прибегать к некоторым ухищрениям.

Общий синтаксис:

Select <переменная> Case
Case <значение1>
Case <значение2>
Case <значение3>
…
Case <значениеn>
Case Else
End Select

Давайте рассмотрим такой пример:

' *****************************************************************************
' Пример работы с условным оператором select...case
' select_case.vbs
' *****************************************************************************
' Включаем проверку переменных
Option Explicit
' Объявляем переменные
Dim a, b
a=10
 
Select case a
     case 5
                 b=a+500
     case 10
                 b=a+100
     case else
                 b=a
End Select
 
MsgBox b

Параллельно с условными операторами vbs часто применяются логические операторы, наиболее популярны: And – И, Not – НЕТ и Or – ИЛИ.

Visual basic script

Программирование на Visual Basic Script для опытных программистов
особой сложности не представляет. Достаточно почитать документацию, чтобы понять некоторые особенности
языка и узнать отличия между VBScript и Visual Basic, а также между VBScript и VBA.
Однако полная документация имеется, в основном, на английском языке. Да и начинающему
разобраться в ней будет непросто. Для начинающих рекомендую книгу
Как стать программистом.
И если вы окончательно решили взяться за VBScript, то представленная ниже книга вам в этом
поможет.

Где используется VBScript? Применений довольно много. Подробно об этом вы прочитаете в книге. А если коротко,
то используется Visual Basic Script для написания сценариев, которые можно сохранить в файл и затем
с их помощью выполнять различные рутинные процедуры. Например, очистку диска от ненужных файлов.

Кроме этого сценарии можно встраивать в веб-страницы. Поскольку VBScript является, пожалуй, самым простым в освоении
языком сценариев, то он широко используется в различных приложениях, таких как SCADA-системы.
Например, SCADA-система Reliance
использует именно язык Visual Basic Script, который дополнен некоторыми специфическими для
данной системы функциями.

Ниже приведено содержание книги. Некоторые разделы можно посмотреть непосредственно на этом сайте.
Книга пока не закончена, поэтому рекомендую периодически заглядывать на эту страницу, чтобы получить
обновлённую версию.

VBScript для чайников

ПРЕДИСЛОВИЕ

ОБЩИЕ СВЕДЕНИЯ

Что такое VBScript?

Как начать?

Добавление кода VBScript в HTML-страницу

УРОКИ VBSCRIPT

Основы VBScript

Типы данных

Переменные VBScript

Константы VBScript

Операторы VBScript

Использование условных операторов

Использование циклов

Подпрограммы VBScript

Соглашения VBScript

Использование VBScript в Internet Explorer

ИСПОЛЬЗОВАНИЕ ОБЪЕКТА FILESYSTEMOBJECT

СПРАВОЧНЫЕ МАТЕРИАЛЫ

Функции VBScript

Функции VBScript

Функции VBA, которых нет в VBScript

Функции VBScript, которых нет в VBA

Функции Scripting Run-Time Library Reference Features

Список ключевых слов в алфавитном порядке

Константы

Константы VBScript

Цветовые константы

Константы сравнения

Константы даты и времени

Константы форматирования даты

Константы разные

Константы MsgBox

Строковые константы

Константы трёх состояний

Константы типов переменных

События

Событие Initialize

Событие Terminate

Функции

Методы

Объекты

Объект Class

Объект Dictionary

Свойства объекта Dictionary

Методы объекта Dictionary

Объект Err

Свойства объекта Err

Методы объекта Err

Объект FileSystemObject

Свойства объекта FileSystemObject

Методы объекта FileSystemObject

Объект Drive

Свойства объекта Drive

Объект File

Свойства объекта File

Методы объекта File

Объект TextStream

Свойства объекта TextStream

Методы объекта TextStream

Объект Match

Свойства объекта Match

Объект RegExp

Свойства объекта RegExp

Методы объекта RegExp

сценариев VBS — крутые компьютерные уловки!

Сценарии VBS — это файлы сценариев Windows. Они создаются в блокноте (или аналогичном) и могут быть трудными в использовании. Некоторые из них могут быть вредными для вашего компьютера, но то, что я вам покажу, можно отсортировать, выйдя из системы или выключив ее. НИЧТО не является постоянным, если вы этого не сделаете. Чтобы скрипты работали, все, что вам нужно сделать, это скопировать и вставить их в блокнот и выбрать файл> сохранить> «имя файла» .vbs> все файлы. Все, что вам нужно сделать, это ввести имя файла по вашему выбору и поставить «.vbs «после него. Затем щелкните второй раскрывающийся список, перейдите ко всем файлам и нажмите клавишу ВВОД. Чтобы запустить их, просто дважды щелкните созданный файл. Я прикреплю видеотуры в нижней части страницы. У меня есть протестировал все это, но если они не работают, оставьте комментарий на форуме или отправьте мне письмо по адресу [email protected].

Забавно играть со своими друзьями — это зайти на рабочий стол, щелкнуть правой кнопкой мыши и перейти к новому ярлыку. Потом в коробке типа отключение. Это выключит компьютер, когда вы нажмете на него.Затем, когда вы это сделаете, измените имя на Internet Explorer и щелкните правой кнопкой мыши, перейдите к свойствам, щелкните по настройке, затем измените значок на Internet Explorer. Нажмите «Применить» и «закрыть». Затем, как только вы это сделаете, вы можете удалить настоящий ярлык, чтобы остался только один выключенный. тогда все, что вам нужно сделать, это дождаться, пока ничего не подозревающий член семьи щелкнет по ней и выключит компьютер.

Непрерывный возврат

Это будет многократно нажимать клавишу Backspace на вашем компьютере, пока вы не выйдете из системы или не завершите работу.Примерно через минуту компьютер выйдет из строя.

strText = «давай вернемся назад пробелы»
Set objVoice = CreateObject («SAPI.SpVoice»)
objVoice.Speak strText
Set wshShell = wscript.CreateObject («WScript.Shell»)
do
wscript19.sleep 10 wshshell.sendkeys «{bs}»
петля

Я также добавил голос, чтобы он сказал: «Давай вернемся на несколько пробелов», чтобы было интереснее.

Звуковой сигнал клавиатуры

Этот скрипт заставляет вашу клавиатуру пищать (как при пожарной тревоге).Число вверху — это количество звуковых сигналов … Я установил 10 на случай, если вы нажмете на него. Он остановится, как только вы выйдете из системы.

beep («10»)
‘# —————————————- ———————————-
‘# ФУНКЦИЯ …….: beep ()
‘# АРГУМЕНТЫ ……: iTimes = количество звуковых сигналов компьютера.
‘# НАЗНАЧЕНИЕ ……..: Вызывает звуковой сигнал внутреннего динамика компьютера. В некоторых системах
‘# звуковой сигнал будет воспроизводиться из реальных динамиков
‘ #.
‘# ПРИМЕР ……..: beep («7»)
‘ # ПРИМЕЧАНИЯ ……….: Это было на удивление сложно понять, но очень
‘# полезно. Есть проблема с синхронизацией, сценарий
‘# будет издавать звуковые сигналы быстрее, чем динамик может издавать
‘ # отдельные звуки.
‘# ———————————————— —————————
Звуковой сигнал функции (iTimes)
Установить oShell = CreateObject («Wscript.Shell «)
Dim iTemp
Для iTemp = 1 To iTimes
oShell.Run»% comspec% / c echo «& Chr (7), 0, False
Wscript.Sleep 300
Next
End Function

Танцующий лоток для диска

Это приведет к тому, что лоток для диска на вашем компьютере будет вставать и выдвигаться, пока вы не выйдете из системы. Не запускайте его больше одного раза, иначе он вылетит

vbscript — Вызов сценария .vbs из Excel VBA

Переполнение стека

Около
Продукты
Для команд

Переполнение стека
Общественные вопросы и ответы
Переполнение стека для команд
Где разработчики и технологи делятся частными знаниями с коллегами
Вакансии
Программирование и связанные с ним технические возможности карьерного роста
Талант
Нанимайте технических специалистов и создавайте свой бренд работодателя
Реклама
Обратитесь к разработчикам и технологам со всего мира
О компании

vbscript — сценарий нажатия клавиши vbs