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

• Название: Windows Script Host для Windows 2000/XP
• Автор: Андрей Попов
• Издательство: БХВ-Петербург
• Жанр: Программное обеспечение
• Год: 2004
• ISBN: 5-94157-197-6

В книге описывается сервер сценариев Windows Script Host (WSH) версии 5.6, который является одним из стандартных компонентов Windows ХР, а также может быть установлен в более ранних версиях Windows. Приводятся сценарии на языках VBScript и JScript, иллюстрирующие применение стандартных объектов WSH 5.6, включая создание из сценариев дочерних процессов и запуск сценариев на удаленных компьютерах. В качестве более сложных примеров рассматриваются сценарии, работающие с базами данных, управляющие приложениями Microsoft Office, организующие графический пользовательский интерфейс, использующие технологии ADSI (Active Directory Service Interface) и WMI (Windows Management Instrumentation) для решения задач администрирования. Освещены вопросы практической работы с XML-файлами и создания СОМ-объектов. Особое внимание уделяется вопросам безопасности при работе со сценариями, приводятся конкретные примеры настроек политик безопасности. К книге прилагается дискета с исходными текстами большинства примеров.

---

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

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;

В doc.all.txtApp.onchange В = txtBoxOnChange;

В doc.all.txtNote.onchange В = txtBoxOnChange;

В if (objListPersons.PersonArr.length < 1)

  //Если в XML-файле нет данных, добавляем пустую запись

В  objListPersons.AddRecord();

 //В качестве текущей устанавливаем первую запись

В objListPersons.CurRecord = 0;

 //Загружаем в форму данные из массива PersonArr

 //для первой записи

В objListPersons.LoadDialog();

 // Делаем окно Internet Explorer'а видимым

В ie.Visible = true;

}

В функции ie_DocumentComplete(), кроме прочего, задаются функции-обработчики событий, генерируемых в форме текстовыми полями ввода и кнопками. К описанию процесса обработки таких событий мы и перейдем.