qtp: 初始化web系统
上一篇 /
下一篇 2009-10-21 18:18:52
/ 个人分类:我的自动化学习
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
收藏
举报
TAG: