我用webbrowser控件打开了一个网页

Question

如何从VB中得到页面中的连接的URL以及Target
我找到的解决办法是更改文档中的链接特性，首先在工程中加入应用 Microsoft object HTML Library
然后代码：
Private Sub Command1_Click()
    WebBrowser1.Navigate "http://www.applevb.com"
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim vDoc, vtag As Object
    
    Set xobj = pDisp
    Set vDoc = xobj.Document
    
    For i = 0 To vDoc.All.length - 1
        If UCase(vDoc.All(i).tagName) = "A" Then
            Set vtag = vDoc.All(i)
            
            vtag.Target = "_self"
        End If
    Next i
End Sub注意，上面的代码需要文档全部下载完毕后才生效。

Answer 1

但是我在“引用”里找不到Microsoft object HTML  Library