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

//Указываем функции-обработчики изменения текста в полях ввода

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;

}

//Функция-обработчик закрытия окна Internet Explorer'а

function ie_OnQuit() {

IsQuit=true;

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

objListPersons.SaveData();

}

// Обработчики нажатий на кнопки в форме

//Функция-обработчик нажатия на кнопку "Сохранить"

function btnSave_OnClick() {

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

objListPersons.SaveData();

}

//Функция-обработчик нажатия на кнопку "Отменить"

function btnCancel_OnClick() {

//Заново загружаем данные из текущего элемента массива

//в форму

objListPersons.LoadDialog();

//Выводим сообщение в заголовке окна

doc.title = "Данные восстановлены";

}

//Функция-обработчик нажатия на кнопку "<<"

function btnFirst_OnClick() {

//Проверяем, были ли сделаны изменения в форме

if (objListPersons.IsChanged) { //Изменения были сделаны

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

objListPersons.SaveData();

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

objListPersons.FileToArray();

}

//Переходим к первой записи в массиве

objListPersons.FirstRecord();

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

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

objListPersons.LoadDialog();

//Выводим сообщение в заголовке окна

doc.title = "Запись N " + (objListPersons.CurRecord + 1);

}

//Функция-обработчик нажатия на кнопку "<"

function btnPrevious_OnClick() {

//Проверяем, были ли сделаны изменения в форме

if (objListPersons.IsChanged) { //Изменения были сделаны

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

objListPersons.SaveData();

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

objListPersons.FileToArray();

}

//Переходим к предыдущей записи в массиве

objListPersons.PreviousRecord();

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

//для текущей записи

objListPersons.LoadDialog();

//Выводим сообщение в заголовке окна

doc.title = "Запись N " + (objListPersons.CurRecord + 1);

}

//Функция-обработчик нажатия на кнопку "Новая запись"

function btnNew_OnClick() {

//Проверяем, были ли сделаны изменения в форме

if (objListPersons.IsChanged) { //Изменения были сделаны

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

objListPersons.SaveData();

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

objListPersons.FileToArray();

}

//Добавляем новую запись в XML-файл

objListPersons.NewRecord();

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

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

objListPersons.LoadDialog();

//Выводим сообщение в заголовке окна

doc.title = "Добавлена новая запись";

}

//Функция-обработчик нажатия на кнопку "Удалить"

function btnDelete_OnClick() {

//Удаляем текущую запись из XML-файла

objListPersons.DelRecord();

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

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

objListPersons.LoadDialog();

//Выводим сообщение в заголовке окна

doc.title = "Запись удалена";

}

//Функция-обработчик нажатия на кнопку ">"

function btnNext_OnClick() {

//Проверяем, были ли сделаны изменения в форме

if (objListPersons.IsChanged) { //Изменения были сделаны

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

objListPersons.SaveData();

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

objListPersons.FileToArray();

}

//Переходим к следующей записи в массиве

objListPersons.NextRecord();

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

//для текущей записи

objListPersons.LoadDialog();

//Выводим сообщение в заголовке окна

doc.title = "Запись N " + (objListPersons.CurRecord + 1);

}

//Функция-обработчик нажатия на кнопку ">>"

function btnFinal_OnClick() {

//Проверяем, были ли сделаны изменения в форме

if (objListPersons.IsChanged) { //Изменения были сделаны

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

objListPersons.SaveData();

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

objListPersons.FileToArray();

}

//Переходим к последней записи в массиве

objListPersons.FinalRecord();

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

//для текущей записи

objListPersons.LoadDialog();

//Выводим сообщение в заголовке окна

doc.title = "Запись N " + (objListPersons.CurRecord + 1);

}

//Функция-обработчик изменения текста в полях ввода

function txtBoxOnChange() {

//Устанавливаем признак изменения данных в форме

objListPersons.IsChanged = true;

//Выводим сообщение в заголовке окна

doc.title = "Редактирование данных";

}

//Основная запускная функция

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);

}

/******************* Начало **********************************/

Main();

/************* Конец *********************************************/

Не будет большим преувеличением сказать, что почти на всех компьютерах с операционной системой Windows установлены программы пакета Microsoft Office. Эти приложения являются серверами автоматизации, т.е. их действиями можно управлять из внешних программ, в том числе и из сценариев WSH. В этой главе мы рассмотрим на примерах, каким образом можно выводить из сценариев WSH информацию в две наиболее распространенные офисные программы — Microsoft Word и Microsoft Excel.