Андрей Попов - Windows Script Host для Windows 2000/XP
Таблица 7.1. Параметры командной строки сценария для работы с записной книжкой
Название параметра Назначение /L Просмотр всех записей книжки (сортировка по фамилии) /F Поиск записей по фамилии, которая вводится в диалоговом окне /А Добавление записи по фамилии (данные вводятся в диалоговом окне) /D Удаление записи (фамилия для удаления вводится в диалоговом окне)Если запустить сценарий ArgMenu.wsf вообще без параметров, либо с параметрами, не указанными в табл. 7.1, то на экран будет выведена встроенная справка (рис. 7.1).
Рис. 7.1. Встроенная справка для сценария ArgMenu.wsf
В листинге 7.4 приводится полный текст сценария ArgMenu.wsf.
Листинг 7.4. Обработка параметров командной строки сценария для работы с записной книжкой<job id="ArgMenu">
В <runtime>
В <description>
 Сценарий для работы с телефонной книжкой
В </description>
 <named name="L" helpstring="Просмотр содержимого книжки" type="simple" required="false"/>
 <named name="F" helpstring="Поиск по фамилии" type="simple" required="false"/>
 <named name="A" helpstring="Добавление записи" type="simple" required="false"/>
 <named name="D" helpstring="Удаление записи" type="simple" required="false"/>
В </runtime>
В <script language="JScript">
В var WshShell;
В WshShell=WScript.CreateObject("WScript.Shell");
В if ((WScript.Arguments.Named.Exists("L")) ||
В В (WScript.Arguments.Named.Exists("l"))) {
В В WshShell.Run("wscript PhoneBook.wsf //Job:SortName");
В В WScript.Quit();
В }
В if ((WScript.Arguments.Named.Exists("F")) ||
В В (WScript.Arguments.Named.Exists("f"))) {
В В WshShell.Run("wscript PhoneBook.wsf //Job:FindName");
В В WScript.Quit();
В }
В if ((WScript.Arguments.Named.Exists("A")) ||
В В (WScript.Arguments.Named.Exists("a"))) {
В В WshShell.Run("wscript PhoneBook.wsf //Job:AddRec");
В В WScript.Quit();
В }
В if ((WScript.Arguments.Named.Exists("D")) ||
В В (WScript.Arguments.Named.Exists("d"))) {
В В WshShell.Run("wscript PhoneBook.wsf //Job:DelRec");
В В WScript.Quit();
В }
 //Ни один из нужных аргументов не был указан, выводим
 //описание параметров
В WScript.Arguments.ShowUsage();
В </script>
</job>
Теперь, если понадобится ввести дополнительную функцию при работе с записной книжкой (например, поиск по номеру телефона), нужно будет в файл PhoneBook.wsf добавить задание с новым идентификатором, а в файл ArgMenu.wsf — обработку нового параметра командной строки.
Организация диалога с помощью кнопочного меню
Вторым вариантом организации диалога, который РјС‹ рассмотрим, является кнопочное (командное) меню. Принцип его работы РІ нашем примере остается практически тем же, что Рё РїСЂРё описанной выше обработке аргументов командной строки — пользователь должен РІ диалоговом РѕРєРЅРµ ввести СЃРёРјРІРѕР», соответствующий РѕРґРЅРѕР№ РёР· описанных РІ этом РѕРєРЅРµ команд (СЂРёСЃ. 7.2). Ртот СЃРёРјРІРѕР» анализируется РІ сценарии, Рё РІ зависимости РѕС‚ его значения вызывается то или РёРЅРѕРµ задание РёР· файла PhoneBook.wsf.
Рис. 7.2. Кнопочное меню для работы с записной книжкой
Диалоговое окно, показанное на рис. 7.2, выводится в цикле while, в котором с помощью оператора switch анализируется введенный пользователем символ. Выход из цикла совершается, если введенный символ совпадает с "q" или "Q".
Текст сценария ComMenu.wsf, реализующего кнопочное меню для работы с записной книжкой, приводится в листинге 7.5.
Листинг 7.5. Командное меню для работы с записной книжкой<job id="ComMenu">
<script language="VBScript" src="WSHInputBox.vbs"/>
<script language="JScript">
В var WshShell,SMenu,Res;
В WshShell=WScript.CreateObject("WScript.Shell");
 SMenu="[L] - Просмотр содержимого книжкиn";
 SMenu+="[F] - Поиск по фамилииn";
 SMenu+="[A] - Добавление записиn";
 SMenu+="[D] - Удаление записиn";
 SMenu+="[Q] - Выход из сценарияn";
 SMenu+="nnКоманда:";
В Res="";
В while ((Res!="q") && (Res!="Q")) {
 Res=WSHInputBox(SMenu,"Записная книжка");
В switch (Res) {
В case "L": {
В В WshShell.Run("wscript PhoneBook.wsf //Job:SortName",1,true);
В В break;
В }
В case "l": {
В В WshShell.Run("wscript PhoneBook.wsf //Job:SortName",1,true);
В В break;
В }
В case "F": {
В В WshShell.Run("wscript PhoneBook.wsf //Job:FindName",1,true);
В В break;
В }
В case "f": {
В В WshShell.Run("wscript PhoneBook.wsf //Job:FindName",1,true);
В В break;
В }
В case "A": {
В В WshShell.Run("wscript PhoneBook.wsf //Job:AddRec",1,true);
В В break;
В }
В case "a": {
В В WshShell.Run("wscript PhoneBook.wsf //Job:AddRec",1,true);
В В break;
В }
В case "D": {
В В WshShell.Run("wscript PhoneBook.wsf //Job:DelRec",1,true);
В В break;
В }
В case "d": {
В В WshShell.Run("wscript PhoneBook.wsf //Job:DelRec",1,true);
В В break;
В }
В }
}
</script>
</job>
Однозадачный сценарий для работы с записной книжкой
Как мы видим из вышеприведенных примеров, ни объектная модель WSH, ни языки JScript и VBScript не предоставляют средств для создания полноценного графического интерфейса пользователя.
Тем не менее, такой интерфейс в сценариях WSH создать можно. Мы продемонстрируем это на примере еще одного сценария (состоящего из однозадачного JScript-файла) для работы с записной книжкой, в котором для диалога с пользователем будет организована пользовательская форма с несколькими кнопками и текстовыми полями ввода. Для создания этой формы и работы с ней будут использоваться HTML-файл и браузер Internet Explorer.
