Cómo acercar o alejar una página web mientras usa UFT / QTP
Me gustaría controlar la función de acercamiento y alejamiento de mi página web de la aplicación bajo prueba usando UFT. Esto es necesario ya que el nivel de zoom cambia dinámicamente y se hace difícil identificar los objetos. He encontrado un código, pero es útil si necesita cambiar el nivel de zoom en una instancia o al principio. a continuación está el código
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
con este código, abre un nuevo navegador y lo navega a una URL.
No quiero que cree una nueva instancia del navegador. Lo que necesito es que cambie el nivel de zoom en la misma página que ya está en ejecución de prueba, también la página donde se requiere el cambio de nivel de zoom no se conoce al principio y puede o no requerir un cambio basado en el hecho de que identifica ciertos objetos
¿Alguien ha enfrentado el mismo problema o tiene una solución?