要判断打开了几个浏览器窗口,我们使用description对象就可以了,增加几句代码就可以灵活操作参考代码如下:
Dim WinIe,Ie,i,j
Set WinIe=description.Create()
WinIe("micclass").value="Browser" '所有页面的regexpwndtitle属性值都是“ Microsoft Internet Explorer”,也可以用其他属性
Set Ie=desktop.ChildObjects(WinIe)
j=Ie.count
If j>1 Then
For i=0 to j-1
Ie(i).close ' 0为最后打开的一个,可关闭打开的几个,循环改成for i=1 to m
Next
End If
Set ie = nothing
'#############重新打开所需的IE窗口##############
Systemutil.Run "iexplore.exe","yahoo.com/index.html"
browser("Yahoo!奇摩").Sync