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"