QTP关闭除了ALM/QC以外的所有IE窗口

1:

function Close_IE_Except_ALM

Set obj = CreateObject("Shell.Application")

Set obj1 = obj.Windows
For Each objIE in obj1
 If  objIE.name = "Windows Internet Explorer" Then
  If Not Instr(Ucase(objIE.Document.Title),"HP QUALITY CENTER")>0 Then
   objIE.Quit
   wait(1)
   If  Dialog("nativeclass:= #32770").WinButton("text:=OK").Exist Then
     Dialog("nativeclass:= #32770").WinButton("text:=OK").Click
   End If      
  End If
 End If

next

end function 

2:

function Close_IE_Except_ALM
Dim WinIe,Ie,i
Set WinIe=description.Create()
WinIe("regexpwndtitle").value=" Windows Internet Explorer"   
Set Ie=desktop.ChildObjects(WinIe)
For i=0 to Ie.count-1
On error resume next
if not instr(Ucase(Ie(i).getroproperty("Title")),"HP APPLICATION LIFECYCLE")>0 then
Ie(i).close
end if  
On error goto 0
Next
set WinIe = nothing
end function