//Создаем объект WshShell

WshShell = WScript.CreateObject('WScript.Shell');

//Создаем объект Shell.Application

Shell=WScript.CreateObject('Shell.Application');

//Выводим запрос

Res=WshShell.Popup('Открыть папку '+SPath+'?',0,

 'Вызов стандартных диалогов Windows',vbQuestion+vbYesNo);

if (Res==vbYes) //Нажата кнопка Да

 //Открываем папку в Проводнике

 Shell.Explore(SPath);

/*************  Конец *********************************************/

Вызов окна форматирования диска

Диалогoвое окно, позволяющее форматировать диск с заданными параметрами (рис. 11.26), вызывается с помощью системной  функции SHFormatDrive() из библиотечного файла shell32.dll.

Рис. 11.26. Диалоговое окно форматирования диска

Соответствующий пример приведен в листинге 11.16.

Листинг 11.16. Вызов окна форматирования диска

/*******************************************************************/

/* Имя: FormatDisk.js                                              */

/* Язык: JScript                                                   */

/* Описание: Вызов окна форматирования диска                       */

/*******************************************************************/

//Объявляем переменные

var

 WshShell, //Экземпляр объекта WshShell

 Res;      //Результат нажатия кнопок в диалоговом окне

//Инициализируем константы для диалоговых окон

var vbYesNo=4,vbQuestion=32,vbYes=6;

//Создаем объект WshShell

WshShell = WScript.CreateObject('WScript.Shell');

//Выводим запрос

Res=WshShell.Popup('Открыть окно форматирования?',0,

 'Вызов стандартных диалогов Windows',vbQuestion+vbYesNo);

if (Res==vbYes) //Нажата кнопка Да

 //Вызываем окно форматирования

 WshShell.Run('Rundll32.exe shell32.dll,SHFormatDrive');

/*************  Конец *********************************************/

Вызов окна запуска программ

Окно запуска программ открывается с помощью метода FileRun() объекта Shell.Application. Соответствующий пример приведен в листинге 11.17.

Листинг 11.17. Вызов окна запуска программ

/*******************************************************************/

/* Имя: FileRun.js                                                 */

/* Язык: JScript                                                   */

/* Описание: Вызов окна запуска программ                           */

/*******************************************************************/

//Объявляем переменные

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,

 'Вызов стандартных диалогов Windows',vbQuestion+vbYesNo);

if (Res==vbYes) //Нажата кнопка Да

 //Вызываем окно запуска программ

 Shell.FileRun();

/*************  Конец *********************************************/

Блокировка рабочей станции

Заблокировать рабочую станцию Windows ХР можно с помощью вызова функции LockWorkStation() из библиотечного файла user32.dll. В листинге 11.18 приведен сценарий Lock.js, в котором происходит блокировка компьютера с помощью этой функции.

Листинг 11.18. Блокировка рабочей станции

/*******************************************************************/

/* Имя: Lock.js                                                    */

/* Язык: JScript                                                   */

/* Описание: Блокировка рабочей станции                            */

/*******************************************************************/

//Объявляем переменные

var

 WshShell, //Экземпляр объекта WshShell

 Res;      //Результат нажатия кнопок в диалоговом окне

//Инициализируем константы для диалоговых окон

var vbYesNo=4,vbQuestion=32,vbYes=6;

//Создаем объект WshShell

WshShell = WScript.CreateObject('WScript.Shell');

//Выводим запрос на блокировку рабочей станции

Добавить отзыв
ВСЕ ОТЗЫВЫ О КНИГЕ В ИЗБРАННОЕ

0

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

Отметить Добавить цитату