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?