Как увеличить или уменьшить масштаб веб-страницы при использовании UFT / QTP
Я хотел бы управлять функцией увеличения и уменьшения масштаба моей веб-страницы тестируемого приложения с помощью UFT. Это необходимо, поскольку уровень масштабирования изменяется динамически, и становится трудно идентифицировать объекты. Я нашел код, но он полезен, если вам нужно изменить уровень масштабирования в одном случае или в начале. ниже код
Function ChangeIEZoom
Dim intZoomLevel, objIE
intZoomLevel = 110
Const OLECMDID_OPTICAL_ZOOM = 63
Const OLECMDEXECOPT_DONTPROMPTUSER = 2
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate ("www.google.com")
While objIE.Busy = True
wait 5
Wend
objIE.ExecWB OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(intZoomLevel), vbNull
End Function
с этим кодом, он открывает новый браузер и перемещает его по URL.
Я не хочу, чтобы это создавало новый экземпляр браузера. Что мне нужно, так это то, что он изменяет уровень масштабирования на той же странице, на которой уже выполняется тестирование, а также на странице, где требуется изменение уровня масштабирования, неизвестно в начале, и может потребоваться или не потребоваться изменение на основе того факта, что он определяет определенные объекты.
Кто-нибудь сталкивался с такой же проблемой или имеет решение?