多测师是一家拥有先进的教学理念,强大的师资团队,业内好评甚多的接口自动化测试培训机构!

17727591462

联系电话

您现在所在位置:接口自动化测试培训 > 新闻资讯

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

更新时间:2022-05-18 09:09:20 作者:多测师 浏览:83

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

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

  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/

联系电话

17727591462

返回顶部