Sync method example in QTP script

Пример использования метода Sync объекта Browser и метода Exist

В данном примере показано использование метода Exist и Sync в Quick Test Professional (QTP) версии 10.0


Public browdes ' глобальное описание

Set browdes = Description.Create 'вызов метода создания описания

Function startie() ' объявляем функцию

SystemUtil.CloseProcessByName "IEXPLORE.EXE" ' закрываем все открытые окна браузера
' также при желании можно добавить SystemUtil.CloseProcessByName "FIREFOX.EXE"
' и другие браузеры
If Browser("micclass:=Browser").Exist (0) Then ' проверяем есть ли открытые браузеры
' параметр 0 в методе Exist это время в течение которого тест ищет данный объект.
' 0 значит возвращать true или false незамедлительно
Print "Есть открытые окна браузера" ' Пишем в лог
ExitAction(1) 'Выходим из теста
Else Print "Отлично!!! все окна браузера успешно закрыты" ' Пишем в лог
End if
SystemUtil.Run "iexplore.exe" ' запускаем браузер
Print "Открываем новое окно браузера" 'пишем в лог
End Function

Function openmyblog()

Browser(browdes).Navigate("http://testerway.blogspot.com")' осуществляем навигацию
Browser(browdes).Sync ' собственно метод Sync ожидающий окончания навигации

MsgBox "all done"
' Вывод сообщения. В данный кусок кода тест перейдет лишь после окончания навигации

End Function

call startie ' вызовы функций
call openmyblog



Замедлить скорость работы интернета можно при помощи различных программ, которые уменьшают пропускную способность канала или использовать "тормозную" проксю :)