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

XML.save(PathBook);

//Обновлем в форме данные для последней добавленной записи

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 разработанную 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).

function ie_OnQuit() {

IsQuit=true;

//Сохраняем данные из формы в XML-файле

objListPersons.SaveData();

}

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

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)