Windows Script Host для Windows 2000/XP

//Устанавливаем свойства объекта 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. Функция-обработчик окончания загрузки документа в браузер

function ie_DocumentComplete() {
 //Создаем экземпляр objListPersons объекта ListPersons
 objListPersons = new ListPersons();
 //Загружаем данные из XML-файла в массив PersonArr
 objListPersons.FileToArray();
 //Получаем ссылку на объект Document
 doc = ie.Document;
 //Устанавливаем заголовок окна
 doc.title = 'Редактирование данных';
 //Указываем функции-обработчики нажатий на кнопки формы
 doc.all.btnSave.onclick=btnSave_OnClick;
 doc.all.btnCancel.onclick=btnCancel_OnClick;
 doc.all.btnFirst.onclick=btnFirst_OnClick;
 doc.all.btnPrevious.onclick=btnPrevious_OnClick;
 doc.all.btnNew.onclick=btnNew_OnClick;
 doc.all.btnDelete.onclick=btnDelete_OnClick;
 doc.all.btnNext.onclick=btnNext_OnClick;
 doc.all.btnFinal.onclick=btnFinal_OnClick;
 //Указываем функции-обработчики изменения текста в полях ввода
 doc.all.txtLastName.onchange  = txtBoxOnChange;
 doc.all.txtName.onchange  = txtBoxOnChange;
 doc.all.txtPhone.onchange = txtBoxOnChange;
 doc.all.txtStreet.onchange  = txtBoxOnChange;
 doc.all.txtHouse.onchange = txtBoxOnChange;