Категории
Самые читаемые
onlinekniga.com » Компьютеры и Интернет » Программное обеспечение » Windows Script Host для Windows 2000/XP - Андрей Попов

Windows Script Host для Windows 2000/XP - Андрей Попов

Читать онлайн Windows Script Host для Windows 2000/XP - Андрей Попов

Шрифт:

-
+

Интервал:

-
+

Закладка:

Сделать
1 ... 141 142 143 144 145 146 147 148 149 ... 175
Перейти на страницу:

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");

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

Res=WshShell.Popup("Заблокировать рабочую станцию?",0,

В "",vbQuestion+vbYesNo);

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

 //Блокируем рабочую станцию

В WshShell.Run("Rundll32.exe user32.dll,LockWorkStation");

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

Вызов окна выключения компьютера 

РР· сценария WSH можно вызвать диалоговое РѕРєРЅРѕ, РІ котором производится выбор действия РїСЂРё завершении работы Windows (СЂРёСЃ. 11.27).

Рис. 11.27. Диалоговое окно выключения компьютера

Для этого необходимо вызвать метод ShutdownWindows() объекта Shell.Application. Соответствующий пример приведен в листинге 11.19.

Листинг 11.19. Вызов окна выключения компьютера

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

/* РРјСЏ: ShutdownWindow.jsВ В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В  */

/* Язык: JScript                                                   */

/* Описание: Вызов окна выключения компьютера                      */

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

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

var

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

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

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

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

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

1 ... 141 142 143 144 145 146 147 148 149 ... 175
Перейти на страницу:
На этой странице вы можете бесплатно читать книгу Windows Script Host для Windows 2000/XP - Андрей Попов.
Комментарии