qtp: 初始化web系统

Function initSystem()

   ' 关闭所有的 Excel文档
   On Error Resume Next
        Set excels = getObject(  ,"Excel.Application")
        For each excelBook in excels.WorkBooks
             If instr(1, excelBook.FullName, "TestCase") > 0 or instr(1, excelBook.FullName, "TestData") > 0  Then
                 excelBook.Save
                 excelBook.Close
             End If
        Next
    
        excels.Quit
        Set excels = nothing
    If Err <> 0 Then
        Reporter.ReportEvent micDone, "excel", "没有excel打开."
    End If
    closeSystem
end Function

Function closeSystem()
   If Browser("name:="+firstPageName).exist(5) Then
       Browser("name:="+firstPageName).Close
   End If
   closeIEprogress
End Function

' 关闭ie浏览器进程
Function closeIEprogress()
   Dim wmi,pro_s,p

    Set wmi=GetObject("winmgmts:\\.")
   
    Set pro_s=wmi.instancesof("win32_process")
   
    For Each p In pro_s
   
    if LCase(p.name)="iexplore.exe" then p.terminate()
   
    Next

End Function