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

Константы модальности. Они могут добавляться к одной из предыдущих констант (например, vbYesNoCancel + vbQuestion + vbDefaultButton3 + vbApplicationModal).

■ vbApplicationModal — окно является модальным для текущего приложения (0).

■ vbSystemModal — для всех приложений системы (4096)

ПРИМЕЧАНИЕ

Вы заметили, что входные значения некоторых методов берутся в скобки, а некоторых не берутся? На самом деле здесь все просто. Если метод возвращает значение и вы это значение получаете (то есть имеет место строка «переменная»=«метод»), то входные значения нужно брать в скобки, иначе, даже если метод возвращает значение, но вы его не принимаете (то есть имеет место строка «метод»), входные значения в скобки брать не нужно. 

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

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

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

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

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

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

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

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

CreateShortcut("путь к ярлыку и его имя")

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

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

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

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

CurrentDirectory

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

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

Листинг 16.2. Работа с ярлыком и текстовым диалогом

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

Environment

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

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

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

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

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

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