Использовать Tester довольно просто. Следует создать пару Tester-объектов, стартовать или отыскать главное окно приложения, выполнить для него несколько нажатий клавиш, проверить результаты и закончить работу. Листинг 13-1 содержит пример VBScript-теста, который запускает стандартную программу Блокнот (NOTEPAD.EXE), вводит несколько строк текста и закрывает ее.
Листинг 13-1. Использование общих Tester-объектов
' Минимальный пример работы с VBScript Tester. В нем просто запускается
' Блокнот, вводится несколько строк текста и Блокнот закрывается.
' Создать объекты системы и ввода.
Dim tSystem
Dim tInput
Dim twin
Set tSystem = «Script.CreateObject ( "Tester.TSystem")
Set tInput = WScript.CreateObject ( "Tester.TInput")
'Запустить Блокнот.
tSystem.Execute "NOTEPAD.EXE"
' Ждать 200 миллисекунд.
tSystem.Pause 200
' Попытка найти главное окно программы Блокнот.
Set twin = tSystem.FindTopWindowByTitle ( "Untitled - Notepad")
If ( twin Is Nothing) Then
MsgBox "Unable to find Notepad!"
WScript.Quit
End If
' Убедиться, что Блокнот выполняется в фоновом режиме.
twin.SetForegroundTWindow
' Напечатать (ввести) первую строку.
tlnput.PlayKeys "Be all you can be!~ ~ ~"
' Повторите ввод.
tlnput.PlayKeys "Put on your boots and parachutes....~ ~ ~"
' Ввести третью строку.
tlnput.PlayKeys "Silver wings upon their chests.....~ ~ ~"
' Подождать 1 секунду.
tSystem.Pause 1000
' Закончить Блокнот.
tlnput.PlayKeys "%FX"
tSystem.Pause 50
tlnput.PlayKeys "{TAB}~"
' Сценарий выполнен!
В листинге 13-1 показано три объекта, которые Tester использует наиболее часто. Объект TSystem позволяет находить родительские окна, запускает приложения и приостанавливает тестирование. Объект TWindow, который возвращается функцией FindTopWindowByritie в листинге 13-1, является главной "рабочей лошадкой". Это — оболочка вокруг объекта HWND (дескриптора окна), содержащего полный набор свойств окна.