浏览器激活、最大化、最小化
上一篇 /
下一篇 2013-04-23 10:40:17
/ 个人分类:QTP
做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 |
收藏
举报
TAG:
QTP
qtp
vbs
VBS
浏览器