Книга: Windows Script Host для Windows 2000/XP

Запуск с помощью оболочки Windows

закрыть рекламу

Запуск с помощью оболочки Windows

Для доступа к стандартным диалоговым окнам Windows и модулям панели управления нужно сначала создать экземпляр объекта-оболочки Windows:

//Создаем объект Shell.Application
Shell=WScript.CreateObject("Shell.Application");

Модули панели управления вызываются с помощью метода ControlPanelItem(), в качестве параметра которого указывается имя соответствующего cpl-файла, например:

Shell.ControlPanelItem("Appwiz.cpl");

Если запустить ControlPanelItem() без параметра, то откроется вся панель управления.

В листинге 11.13 приведен сценарий RunCPL.js, в котором происходит вызов некоторых модулей панели управления.

Листинг 11.13. Вызов модулей панели управления с помощью оболочки Windows

/*******************************************************************/
/* Имя: RunCPL.js                                                  */
/* Язык: JScript                                                   */
/* Описание: Вызов модулей панели управления с помощью             */
/*           объекта Shell.Application                             */
/*******************************************************************/
//Объявляем переменные
var
 WshShell, //Экземпляр объекта WshShell
 Shell,    //Экземпляр объекта Shell.Application
 Res;      //Результат нажатия кнопок в диалоговом окне
//Инициализируем константы для диалоговых окон
var vbYesNo=4,vbQuestion=32,vbYes=6;
//Создаем объект WshShell
WshShell = WScript.CreateObject("WScript.Shell");
//Создаем объект Shell.Application
Shell=WScript.CreateObject("Shell.Application");
//Выводим запрос
Res=WshShell.Popup("Открыть панель управления?",0,
 "Вызов модулей панели управления",vbQuestion+vbYesNo);
if (Res==vbYes) //Нажата кнопка Да
 //Выводим панель управления
 Shell.ControlPanelItem("");
//Выводим запрос
Res=WshShell.Popup("Открыть окно установки и удаления программ?",0,
 "Вызов модулей панели управления",vbQuestion+vbYesNo);
if (Res==vbYes) //Нажата кнопка Да
 //Выводим окно установки и удаления программ
 Shell.ControlPanelItem("Appwiz.cpl");
//Выводим запрос
Res=WshShell.Popup("Открыть окно установки даты и времени?",0,
 "Вызов модулей панели управления",vbQuestion+vbYesNo);
if (Res==vbYes) //Нажата кнопка Да
 //Выводим окно установки даты и времени
 Shell.ControlPanelItem("TimeDate.cpl");
/*************  Конец *********************************************/
 

Оглавление книги


Генерация: 1.270. Запросов К БД/Cache: 4 / 0
поделиться
Вверх Вниз