vb 不能读出IE8的网页地址

Question

vb 不能读出IE8的网页地址,有高手能实现？

Answer 1

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