QTP_判断IE进程是否存在/使IE窗口最大化
'*************************************
' 函数: 判断IE进程是否存在
' Purpose: 在每次运行程序前判断IE进程,存在即关闭,不存在,则继续运行
' Parameters: 无
' Create Date: 2012-12-13
' Modify History:
' *************************************
1 Function IEExist() 2 On error resume next 3 Dim obj 4 Set obj=GetObject("InternetExplorer.Application") 5 If Not obj Is Nothing Then 6 SystemUtil.CloseProcessByName("iexplore.exe") 7 waitf(1) 8 Set obj=nothing 9 End If 10 End Function
'*************************************
' 函数: WinMaximize,窗口最大化
' Purpose: 启动浏览器或登录系统后,使窗口最大化
' Parameters: 获取窗口宽度和句柄。width,hwnd
' Create Date: 2012-10-13
' Modify History:
' *************************************
1 Function BrowserMaximize(Object) 2 Dim hWnd 3 hWnd = Object.GetROProperty("hwnd") 4 On Error Resume Next 5 Window("hwnd:=" & hWnd).Activate 6 If Err.Number <> 0 Then 7 hWnd = Browser("hwnd:=" & hWnd).Object.hWnd 8 Window("hwnd:=" & hWnd).Activate 9 Err.Clear 10 End If 11 Window("hwnd:=" & hWnd).Maximize 12 wait(1) 13 On Error Goto 0 14 End Function
您对以上内容有何建议或意见,请写下来告诉我,谢谢!!!