关闭多个网页

Browser("雅虎邮箱 - 全球邮箱第一品牌").Page("雅虎邮箱 - 全球邮箱第一品牌").WebEdit("login").Set "gold_85"
Browser("雅虎邮箱 - 全球邮箱第一品牌").Page("雅虎邮箱 - 全球邮箱第一品牌").WebEdit("passwd").SetSecure "4abc248f841e328a54f98f6f601453cf0f78d74e867487d5ad5da1e1"
'Window("Text:=雅虎邮箱 - 全球邮箱第一品牌 - Microsoft Internet Explorer").Close
Dim i
i = 0
while (Window("Text:=雅虎邮箱 - 全球邮箱第一品牌 - Microsoft Internet Explorer", "index:="&i).exist)
Window("Text:=雅虎邮箱 - 全球邮箱第一品牌 - Microsoft Internet Explorer", "index:="&i).close
i = i +1
wend

'Do While ("True")
'        TrueOrFlase = Browser("Text:=雅虎邮箱 - 全球邮箱第一品牌 - Microsoft Internet Explorer","index:=0").Exist
'        If (TrueOrFlase="False") Then
'            Exit Do
'        Else
'        Browser("Text:=雅虎邮箱 - 全球邮箱第一品牌 - Microsoft Internet Explorer","index:=0").close
'        End If
'Loop 

'SystemUtil.CloseProcessByName("iexplore.exe")