请问网络蚂蚁中的……

Question

有一个I????Document什么的，可以提取所有的href连接地址！
///下面是一些资料
var
  i: integer;
  doc: IHtmlDocument2;
  v: Variant;
begin
    v := doc.links.item(i,0);
之后就可以使用V.Title或者V.InnerText获得连接的文字说明///End
根据上面的资料，我们可以推断，利用V.?????就可以获得连接，而根据那个Item(i,0)，我想
应该可以遍历的！！！你自己再找找其他方面的资料了。
Good Luck！

Answer 1

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