Роман Клименко - Недокументированные и малоизвестные возможности Windows XP

Метод может возвращать константу той кнопки, которую выбрал пользователь. Возможны следующие константы:

■ vbOk — пользователь выбрал кнопку OK (1);

■ vbCancel — кнопку Отмена (2);

■ vbAbort — кнопку Прервать (3);

■ vbRetry — кнопку Повтор (4);

■ vbIgnore — кнопку Пропустить (5);

■ vbYes — кнопку Да (6);

■ vbNo — кнопку Нет (7).

Метод создает ярлык, названный в честь входного параметра. При этом следует учитывать, что указанный во входном параметре файл должен завершаться расширением LNK или URL.

Вызова данного метода еще не достаточно для создания ярлыка. Метод возвращает объект, после принятия которого именно с этим объектом и ведется дальнейшая работа. Данный объект поддерживает два свойства:

■ TargetPath — определяет путь к файлу, на который будет создаваться ярлык;

■ Save — после вызова этого метода ярлык будет создан.

Свойство возвращает текущую директорию, в которой находится сценарий или которая используется в данный момент командной строкой, если сценарий вызывается из командной строки.

Рассмотрим пример работы с этим и двумя предыдущими методами. В этом примере будет создан ярлык файла, путь к которому задаст пользователь. При этом ярлык будет располагаться либо в текущем каталоге (если пользователь нажмет кнопку Да), либо в каталоге, который пользователь сам укажет.

set wshshell = WScript.CreateObject("WScript.Shell")

vibor = wshshell.Popup("Создать ярлык в каталоге " & wshshell.CurrentDirectory & "?", "100", "Создание ярлыка", vbYesNoCancel)

select case vibor

case vbYes

set yarlik = wshshell.CreateShortcut(wshshell.CurrentDirectory & "\eto_yarlik.lnk")

yarlik.TargetPath = "d:\aa.bmp"

yarlik.Save

case vbNo

path = InputBox("Введите путь и имя ярлыка","Создание ярлыка",

wshshell.CurrentDirectory & "\eto_yarlik.lnk")

If path <> "" Then

set yarlik = wshshell.CreateShortcut(path)

yarlik.TargetPath = "d:\aa.bmp"

yarlik.Save

Else

MsgBox "Ну как хотите…"

End if

case vbCancel

MsgBox "Ну как хотите…"

end select

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

■ Count — возвращает общее количество системных переменных, созданных на данный момент.

■ Length — аналогичен предыдущему методу.

■ Remove(имя переменной) — удаляет указанную системную переменную.

■ Item(имя переменной) — возвращает значение данной системной переменной.

Рассмотрим пример работы с системными переменными. Сначала пример узнает общее количество таких переменных, потом пытается считать значение переменной winbootdir (как правило, такая системная переменная всегда присутствует на компьютере), а потом удаляет эту переменную и снова считывает общее количество системных переменных.

ПРИМЕЧАНИЕ

Получить значение переменной можно также с помощью подобного вызова: MsgBox wshshell.ExpandEnvironmentStrings("%systemroot%").

set wshshell = WScript.CreateObject("WScript.Shell")

MsgBox wshshell.Environment.Count

MsgBox wshshell.Environment.item("winbootdir")

wshshell.Environment.Remove("winbootdir")

MsgBox wshshell.Environment.Count

Метод предназначен для выполнения команд и при своем вызове возвращает объект, с помощью которого можно управлять вызванной программой. Данный объект поддерживает следующие методы.

ПРИМЕЧАНИЕ

Выполнить команду можно также с помощью метода Run. Он имеет следующий синтаксис: «переменная» = wshshell.run("путь к программе", TRUE).

■ Terminate — завершить вызванную программу.

■ ExitCode — код, возвращаемый при открытии программы. Если значение этого кода равно 0, то программа была вызвана успешно. Для этих целей можно также воспользоваться методом Status.

■ ProcessID — возвращает идентификатор, присвоенный нашей вызванной программе.

Рассмотрим простой пример работы с данным методом. В этом примере вызывается Проводник, после чего отображается PID созданного нами процесса, а затем процесс завершится.

set wshshell = WScript.CreateObject("WScript.Shell")

set prog = wshshell.Exec("explorer.exe")

if prog.Status = 0 then