【转载】VB获取网页下文字的链接地址

Eddy 发布于2009-12-2 21:35:16 分类: 程序设计 已浏览loading 网友评论0条 我要评论

窗口有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里将清空上一条的地址,显示当前文字下或图片的链接地址。

  1. Private Sub Form_Load()   
  2. WebBrowser1.Navigate "http://www.baidu.com"  
  3. End Sub  
  4.   
  5.   
  6. Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)   
  7. Text1.Text = Text   
  8. End Sub  

 

已经有(0)位网友发表了评论,你也评一评吧!
原创文章如转载,请注明:转载自Eddy Blog
原文地址:http://www.rrgod.com/program/184.html     欢迎订阅Eddy Blog

记住我的信息,下次不用再输入 欢迎给Eddy Blog留言