Лабораторная работа 3

WINDOWS SCRIPT HOST

Запуск из сценариев приложений Windows

Запустить из сценариев другое приложение можно с помощью методов Run или Exec объекта WshShell.

С помощью объекта WshShell можно создавать ярлыки, работать с реестром, получать доступ к специальным папкам и переменным среды.

Создать объект WshShell можно с помощью метода CreateObject:

Set WshShell=WScript.CreateObject("WScript.Shell") 'создание объекта WshShell

При использовании метода Run для запускаемого приложения можно задать тип окна (если приложение поддерживает данный тип)

WshShell.Run "notepad",3 ‘запуск Блокнота в максимизированном окне.

WshShell.Run “notepad 1.txt”,1 ‘запуск Блокнота с документом 1.txt, если документ

‘ не существует появляется запрос на его создание.

В таблице приведены возможные параметры метода Run

Параметр	Константа	Описание
0	vbHide	Скрывает текущее окно и активизирует другое
1	vbNormalFocus	Активизирует и отображает окно
2	vbMinimizedFocus	Активизирует и минимизирует окно
3	vbMaximizedFocus	Активизирует и максимизирует окно
4	vbNormalNoFocus	Отображает окно в том виде, в котором оно находилось в предыдущий раз, активное окно остается активным
5		Активизирует окно и отображает его в текущем состоянии
6	vbMinimizedNoFocus	Минимизирует заданное окно и активизирует следующее
7		Отображает окно в свернутом виде. Активное окно остается активным
8		Отображает окно в его текущем состоянии. Активное окно остается активным
9		Активизирует и отображает окно.
10		Устанавливает режим отображения, опирающийся на режим программы, которая запускает приложение.

Другой вариант запуска приложения через параметр метода Exec. В качестве параметра указывается путь к приложению. При данном методе запуска невозможно задавать тип окна.

WshShell.Exec "calc" ‘запуск калькулятора

Создание ярлыков в специальных папках

Для создания ярлыков на Рабочем столе, в Главном меню используют коллекцию WshSpecialFolders, с помощью которой можно узнать путь к специальной папке. Затем, используя метод CreateShortcut объекта WshSell создают объект WshShortCut для связи с ярлыком. Используя методы объекта WshShortcut можно изменить или задать свойства ярлыков. В заключение следует сохранить ярлык с помощью метода Save объекта WshShortcut.

Объект WshShortcut предоставляет доступ к следующим свойствам ярлыков: объект (Target), рабочая папка (Start in), Быстрый вызов (Shortcut key), окно (Run), комментарии (Comment).

Dim WshShell

Set WshShell=WScript.CreateObject("WScript.Shell")

PathShortcut=WshShell.SpecialFolders("Desktop") 'можно указать папку "Programs"

Set MYShortcut=WshShell.CreateShortcut(PathShortcut+"\Мой ярлык.lnk")

'создали объект-ярлык

PathTarg=WshShell.ExpandEnvironmentStrings("%windir%\\notepad.exe")

'сформировали путь к файлу

MyShortcut.TargetPath=PathTarg

'установили путь к файлу для ярлыка

MyShortcut.Hotkey="Ctrl+Alt+N" ' назначили горячие клавиши

PathIcon=WshShell.ExpandEnvironmentStrings("%winddir%\system32\SHELL32.dll")

'путь к значкам

MyShortcut.IconLocation=PathIcon&",1"

'определили значок

MyShortcut.WindowStyle=3 'установили стиль окна

MyShortcut.Save 'сохранили ярлык