QTP_判断IE进程是否存在/使IE窗口最大化

'*************************************
' 函数: 判断IE进程是否存在
' Purpose: 在每次运行程序前判断IE进程，存在即关闭，不存在，则继续运行
' Parameters: 无
' Create Date:  2012-12-13
' Modify History:  
' *************************************

Function  IEExist()
    On error resume next
    Dim obj
    Set obj=GetObject("InternetExplorer.Application")
    If Not obj Is Nothing Then
        SystemUtil.CloseProcessByName("iexplore.exe")
        waitf(1)
        Set obj=nothing
    End If
End Function

 

'*************************************
' 函数: WinMaximize,窗口最大化
' Purpose: 启动浏览器或登录系统后，使窗口最大化
' Parameters: 获取窗口宽度和句柄。width,hwnd
' Create Date:  2012-10-13
' Modify History:  
' *************************************

Function BrowserMaximize(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).Maximize  
        wait(1)
    On Error Goto 0  
End Function