如何获取网页下文字的链接地址

a_aaaa8888 2009-11-19 01:00:45

如何获取网页下文字的链接地址
窗口有WebBrowser1，和一个Text1
现在
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.baidu.com"
End Sub
打开窗体显示百度的首页，要求滑动鼠标到“新闻”时
Text1里显示http://news.baidu.com/
滑动到“帖吧”时
Text1里显示清空text1,然后显示http://tieba.baidu.com/
等
要求自动判断，因为网页是不确定的不一定非是百度，就是
如果我鼠标滑动到网页下的文字或图片并且这段文字或图片有链接地址的话，那么text1里将清空上一条的地址，显示当前文字下或图片的链接地址。
该如何写

...全文

223 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

sjh717142 2009-12-02

打赏
举报

[Quote=引用 2 楼 vansoft 的回复:]
楼上牛头不对马嘴

他是要显示鼠标下对象的链接.
需要实现一些接口.比较麻烦.
[/Quote]

汗没实践就不要乱发言

http://www.rrgod.com

northwolves 2009-11-24

打赏
举报

[Quote=引用 2 楼 vansoft 的回复:]
楼上牛头不对马嘴

他是要显示鼠标下对象的链接.
需要实现一些接口.比较麻烦.
[/Quote]
兄弟你绝对没有测试过我的代码

-------这两句代码我都用了8年了,

vansoft 2009-11-24

打赏
举报

楼上牛头不对马嘴

他是要显示鼠标下对象的链接.
需要实现一些接口.比较麻烦.

northwolves 2009-11-23

打赏
举报

这个其实很简单的:

Private Sub Form_Load()

WebBrowser1.Navigate "http://www.baidu.com"

End Sub





Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

Text1.Text = Text

End Sub