vbscript - tutorial - Cómo acercarse o alejarse en una página web mientras usa UFT/QTP

testing qtp

Question

Me gustaría controlar la función acercar y alejar 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. Encontré 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 dirige 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 se encuentra en ejecución de prueba, también la página donde se requiere cambio de nivel de zoom no se conoce al inicio y puede o no requerir cambios en función del hecho de que identifique ciertos objetos

¿Alguien ha enfrentado el mismo problema o tiene una solución?

Answer 1

Encontré una solución, combinando lo que mencionaste en los comentarios. esto funciona si quiere cambiar el nivel de zoom en la página web actual en la que está trabajando. ayuda cuando quiere acercarse y alejarse en varias instancias

Dim ShellApp
Set ShellApp = CreateObject("Shell.Application")
Dim ShellWindows
Set ShellWindows = ShellApp.Windows()
Dim intZoomLevel
intZoomLevel = 110
Const OLECMDID_OPTICAL_ZOOM = 63
Const OLECMDEXECOPT_DONTPROMPTUSER = 2
Dim i
For i = 0 To ShellWindows.Count - 1
If InStr(ShellWindows.Item(i).FullName, "iexplore.exe") <> 0 Then
Set IEObject = ShellWindows.Item(i)
End If
If IEObject.Visible = True Then
While IEObject.Busy = True
wait 5
Wend
IEObject.ExecWB OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(intZoomLevel), vbNull
End If
Next
print "it works"