Windows Script Host для Windows 2000/XP

 //Обновлем в форме данные для последней добавленной записи
 this.RefreshDialog(false);
}
//Удаление текущей записи
function ListPersons_DelRecord {
 var Root,DelNom;
 //Сохраняем в переменной Root ссылку на корневой элемент
 //документа
 Root=XML.documentElement;
 //В переменной DelNom сохраняем номер удаляемого элемента Person
 DelNom=this.CurRecord+1;
//Удаляем DelNom-й элемент Person из XML-файла
 Root.removeChild(Root.childNodes.item(DelNom))
 //Сохраняем XML-файл на диске
 XML.save(PathBook);
 //Выводим сообщение о том, что запись удалена
 WshShell.Popup("Запись N "+DelNom+" удалена",0,"Информация",
 vbInformation+vbOkOnly);
 //Обновлем в форме данные для первой записи
 this.RefreshDialog(true);
}

Вывод формы из сценария WSH

Для того чтобы вывести из сценария WSH разработанную HTML-форму на экран, нужно вначале получить ссылку на объект Application, который определяется в объектной модели Internet Explorer. Делается это следующим образом:

var ie = WScript.CreateObject("InternetExplorer.Application", "ie_");

При этом в память загружается новый экземпляр Internet Explorer, а ссылка на этот объект присваивается переменной ie (само окно браузера по умолчанию невидимо, для его отображения на экране необходимо установить свойство Visible объекта Application в 1). В качестве второго параметра метода CreateObject указан префикс "ie_", посредством которого мы сможем написать функции-обработчики событий Internet Explorer.

Внешний вид браузера Internet Explorer настраивается с помощью нескольких свойств объекта Application:

//Устанавливаем свойства объекта ie для отображения формы
ie.AddressBar = false; //Адресная строка не выводится
ie.Fullscreen = false; //Полноэкранный режим запрещен
ie.MenuBar = false; //Главное меню браузера не выводится
ie.Resizable = false; //Изменять размеры окна нельзя
ie.StatusBar = false; //Строка статуса не выводится
ie.ToolBar = false; //Инструментальная панель не выводится
//Устанавливаем размеры окна
ie.Height = 300; //Высота
ie.Width = 780; //Длина

Для того чтобы загрузить в браузер нужный нам файл Phone.htm с описанием формы, используется метод Navigate объекта Application:

ie.Navigate(PathHTML);

В качестве параметра метода Navigate указывается путь к файлу Phone.htm, который заранее устанавливается в функции InitPath:

function InitPath {
 BasePath=WshShell.CurrentDirectory+"\\";
 //Путь к файлу с данными
 PathBook=BasePath+"book.xml";
 //Путь к файлу с HTML-формой
 PathHTML=BasePath+"Phone.htm";
}

Далее следует учесть, что сценарий WSH и окно браузера, в котором загружена форма, — это два независимых процесса. Поэтому в сценарии после загрузки формы в окно браузера необходимо дождаться, пока пользователь не закроет это окно. Для этого мы присвоим глобальной переменной IsQuit значение false и заставим сценарий выполняться до тех пор, пока значение этой переменной не станет равным true:

while (!IsQuit)
 //Приостанавливаем сценарий на 0,1 сек
 WScript.Sleep(100);

При закрытии формы будет генерироваться событие OnQuit объекта Application, поэтому мы напишем функцию-обработчик ie_OnQuit этого события, в которой будем устанавливать isQuit в true и сохранять в XML- файле данные, которые были изменены в форме (листинг 7.9).

Листинг 7.9. Функция-обработчик закрытия окна браузера

function ie_OnQuit {
 IsQuit=true;
 //Сохраняем данные из формы в XML-файле
 objListPersons.SaveData;
}

В нашем сценарии загрузка в браузер HTML-файла с формой будет производиться в основной запускной функции Main (листинг 7.10).

Листинг 7.10. Функция Main

function Main {
 //Создаем объект WshShell
 WshShell = WScript.CreateObject("WScript.Shell");
 //Определяем пути к файлам
 InitPath;
 //Создаем объект InternetExplorer.Application с возможностью
 //обработки событий этого объекта
 ie = WScript.CreateObject("InternetExplorer.Application", "ie_");
 //Устанавливаем свойства объекта ie для отображения формы3
 ie.AddressBar = false;
 ie.FullScreen = false;
 ie.MenuBar = false;
 ie.Resizable = false;
 ie.StatusBar = false;
 ie.ToolBar = false;
 //Устанавливаем размеры окна
 ie.Height = 300; //Высота
 ie.Width = 780; //Длина
 IsQuit=false;
 //Загружаем HTML-файл с формой
 ie.Navigate(PathHTML);
 while (!IsQuit)
 //Приостанавливаем сценарий на 0,1 сек
 WScript.Sleep(100);
}

После окончания загрузки в браузер HTML-файла с формой нужно считать информацию из XML-файла с данными и отобразить в форме данные для первой записи. Мы будем это делать в функции-обработчике ie_DocumentComplete события DocumentComplete объекта Application, которое генерируется как раз после окончания загрузки документа в браузер (листинг 7.11).

Листинг 7.11. Функция-обработчик окончания загрузки документа в браузер