怎么在WebBrowner控件中得到点击的链接的内容

希望在点击的时候直接得到链接内容，但是不让WebBrowner进入链接的页面，而是保持在本页面。

解决方案 »

  1.   

    页面里面用JavaScript将链接内容发送到Title，然后使用WebBrowser的TitleChange事件取得Title。
      

  2.   

    监控网页中元素的事件
    http://www.csdn.net/develop/read_article.asp?id=16506
      

  3.   

    WebBrowser控件有一个BeforeNavigate事件： 
        Private Sub brwWebBrowser_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) 
        参数URL是链接地址。你可以设置Cancel = False来禁止用户到某些链接去。
      

  4.   

    Private Sub Form_Load()
        Web.Navigate "E:\csdn_vb\webbrowser1\a.htm"
        DoEvents
        Do While Web.Busy
            DoEvents
        Loop
        Set Web.Document.ParentWindow.obj = Me
    End SubPublic Sub w()
        MsgBox Web.Document.Links
    End Sub
      

  5.   

    a.htm<HTML>
    <HEAD>
        <SCRIPT>
        var obj;
        </SCRIPT>
    </HEAD>
    <BODY>
    <a href="123.htm" onclick="obj.w(); return false;">test</a>
    </BODY>
    </HTML>
      

  6.   

    参考一下这段代码Option ExplicitPrivate Sub Command1_Click()
    Command1.Enabled = False
    WebBrowser1.Navigate2 Text1.Text
    End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)Dim x As Long
    List1.ClearFor x = 0 To WebBrowser1.Document.Links.length - 1
        List1.AddItem WebBrowser1.Document.Links.Item(x)
    Next x
    Command1.Enabled = True
    End SubPrivate Sub WebBrowser1_StatusTextChange(ByVal Text As String)
    Label3 = Text
    End Sub
      

  7.   

    to  cso(sjxsoft) 
    对于图片链接，这样似乎无法取到联接啊，又没有什么好方法？