So zoomen Sie mit UFT / QTP in eine Webseite hinein oder heraus

Ich möchte die Vergrößerungs- und Verkleinerungsfunktion meiner Webseite der zu testenden Anwendung mithilfe von UFT steuern. Dies ist erforderlich, da sich die Zoomstufe dynamisch ändert und es schwierig wird, die Objekte zu identifizieren. Ich habe einen Code gefunden, aber es ist nützlich, wenn Sie die Zoomstufe bei einer Instanz oder beim Start ändern müssen. unten ist der Code

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

mit diesem Code wird ein neuer Browser geöffnet und zu einer URL navigiert.

Ich möchte nicht, dass eine neue Instanz des Browsers erstellt wird. Was ich brauche, ist, dass es die Zoomstufe auf der gleichen Seite ändert, die bereits im Test ausgeführt wird, auch auf der Seite, auf der eine Änderung der Zoomstufe erforderlich ist, die zu Beginn nicht bekannt ist und möglicherweise aufgrund der Tatsache, dass sie identifiziert wird, geändert werden muss oder nicht bestimmte Objekte.

Hat jemand das gleiche Problem oder hat eine Lösung dafür?

Antworten auf die Frage(2)

Ihre Antwort auf die Frage