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

 

posted @ 2019-03-12 16:29  chenzy01  阅读(144)  评论(0)  编辑  收藏  举报