Отладка приложений



   Срочная Печать наклеек.             

Применение утилиты Tester


Использовать 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 (дескриптора окна), содержащего полный набор свойств окна.


Содержание  Назад  Вперед