这个应该在使用了WebBrowser对象也即IE内核的浏览器里都有用.代码如下:
Option Explicit
Private Sub Form_Load()
'需要引用Microsoft Internet Controls对象
Dim WebCount As SHDocVw.ShellWindows
Dim tmpI As Long, tmpWeb As WebBrowser
Set WebCount = New SHDocVw.ShellWindows
MsgBox "已经打开" & WebCount.Count & "个网页"
For tmpI = 0 To WebCount.Count - 1
Set tmpWeb = WebCount.Item(tmpI)
Debug.Print tmpWeb.LocationURL
Debug.Print tmpWeb.LocationName
Next
Set tmpWeb = Nothing
End Sub
SHDocVw.ShellWindows下面有个ITEM方法,返回的对象就是WebBrowser类型的.每个ITEM里的成员就代表一个WebBrowser实例.代码里面在立即窗口里打印了当前的URL与其标题.