QTP中Browser对象的方法补充：激活、最大化、最小化

　　做Web自动化测试的时候，有时需要对浏览器进行一些特殊的操作，比如浏览器的激活、最大化和最小化。熟悉C/S自动化测试的朋友应该都知道Window对象是有这些方法的，而Browser对象则没有。当然了， 我们可以自己写一些函数来弥补这个不足，其原理是通过获取浏览器的句柄，然后使用描述性编程来操作Window对象。

　　PS：所谓句柄是指，使用的一个唯一的整数值，即一个四字节长的数值，来标志应用程序中的不同对象和同类对象中的不同的实例，诸如，一个窗口，按钮，图标，滚动条，输出设备，控件或者文件等。

　　Activate Browser

　　' 注册自定义Activate函数

　　RegisterUserFunc "Browser", "Activate", "BrowserActivate"

　　Function BrowserActivate(ByRef Object)

　　Dim HWND

　　' 获取浏览器程序句柄

　　HWND= Object.GetROProperty("hwnd")

　　On Error Resume Next

　　' 激活句柄等同于浏览器句柄的窗口程序

　　Window("hwnd:=" & HWND).Activate

　　If Err.Number <> 0 Then

　　Window("hwnd:=" & Browser("hwnd:=" & HWND).Object.HWND).Activate

　　Err.Clear

　　End If

　　On Error Goto 0

　　End Function

　　Maximize Browser

　　' 注册自定义Minimize函数

　　RegisterUserFunc "Browser", "Minimize", "BrowserMinimize"

　　Function BrowserMinimize(ByRef Object)

　　Dim HWND

　　' 获取浏览器程序句柄

　　HWND= Object.GetROProperty("hwnd")

　　On Error Resume Next

　　' 激活句柄等同于浏览器句柄的窗口程序

　　Window("hwnd:=" & HWND).Activate

　　If Err.Number <> 0 Then

　　HWND = Browser("hwnd:=" & HWND).Object.hWnd

　　Window("hwnd:=" & HWND).Activate

　　Err.Clear

　　End If

　　' 最小化句柄等同于浏览器句柄的窗口程序

　　Window("hwnd:=" & HWND).Minimize

　　On Error Goto 0

　　End Function

　　Minimize Browser

　　' 注册自定义Minimize函数

　　RegisterUserFunc "Browser", "Minimize", "BrowserMinimize"

　　Function BrowserMinimize(ByRef Object)

　　Dim HWND

　　' 获取浏览器程序句柄

　　HWND= Object.GetROProperty("hwnd")

　　On Error Resume Next

　　' 激活句柄等同于浏览器句柄的窗口程序

　　Window("hwnd:=" & HWND).Activate

　　If Err.Number <> 0 Then

　　HWND = Browser("hwnd:=" & HWND).Object.hWnd

　　Window("hwnd:=" & HWND).Activate

　　Err.Clear

　　End If

　　' 最小化句柄等同于浏览器句柄的窗口程序

　　Window("hwnd:=" & HWND).Minimize

　　On Error Goto 0

　　End Function

　　由于使用了RegisterUserFunc，我们可以在QTP中直接使用自定义的函数，和Browser对象实现无缝结合。

　　以上内容为大家介绍了自动化测试中的QTP中Browser对象的方法补充：激活、最大化、最小化，本文由多测师亲自撰写，希望对大家有所帮助。了解更多自动化测试相关知识：https://www.aichudan.com/xwzx/