QTP轻量级框架系列(七)之浏览器操作

Class BrowserOp

'Activate Browser

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

End Class