小弟遇到的问题:
当前页面有若干个HTMLLink,请问如何获取当前页面上HTMLLink的数量?以及这些链接的HTMLText的内容?
最关键的时获取HTMLText的值!谢谢

解决方案 »

  1.   

    请你测试下面的代码:
    '**********************************************
      '**   功能:取得当前网址中的所有链接名称和地址   **
      '**   要引用   Microsoft   HTML   Object   Library           **
      '**   2005-01-7   00:40:00                                               **
      '**   作者:风铃夜思雨                                                   **
      '**********************************************
        
        
      Private Sub GetLinks()
      Dim Doc     As IHTMLDocument2
      Dim All     As IHTMLElementCollection
      Dim L     As Integer
      Dim i     As Integer
      Dim Varl     As Variant
        
      Set Doc = WebBrowser1.Document
      Set All = Doc.links
      L = All.length
      For i = 0 To L - 1
            Set Varl = All.Item(i, varempty)
              List1.AddItem ("链接名称:" & Varl.innerText & "       链接地址:" & Varl.href)
            Set Varl = Nothing
      Next i
      Set All = Nothing
      Set Doc = Nothing
      End Sub
        
      Private Sub Command1_Click()
      WebBrowser1.Navigate "http://china.alibaba.com/?cosite=123hao&location=homepage_sy"
      End Sub
        
      Private Sub Form_Load()
     WebBrowser1.Navigate "http://china.alibaba.com/?cosite=123hao&location=homepage_sy"
      End Sub
        
      Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
      GetLinks
      End Sub