如何获取网页中所有的链接？限VB语言

来源：百度知道 编辑：UC知道 时间：2024/05/30 23:59:07
毕业设计勒，新学VB，需要在网页文件中获取全部链接
自己已经有了一点点思路，就是读取该网页源文件中href="开始到第一个"结束 因为新学 程序还不怎么回写
也就是怎么样把例如href="http://zhidao.baidu.com/q"的http://zhidao.baidu.com/q提取出来并且存到text文件中
追加问题：
这是以后的问题勒，读取text文件，里面的格式是：网页链接，网页文件名
读取其中的链接部分，然后检测下，如果在网上找不到这个链接（空链或者死联），那么把这个链接以：（网页链接，网页文件名） 的格式寸到1.text文件中，如果是正常链接，那么存到2.text文件中
这个是追加问题，如果能解决，我追加最少100分
我的邮箱 yang15421@163.com
辛苦了 发完邮件后请在这里回复下呵 教育网 上个破邮箱 比较慢

发个邮箱过来阿。。。代码有控件的。

Private Sub Form_Load()
WebBrowser1.Navigate "http://zhidao.baidu.com/q"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim Document, i, s1, s2
Open "c:\a.txt" For Output As #1
For i = 0 To WebBrowser1.Document.links.length - 1
s1 = WebBrowser1.Document.links(i).href
s2 = WebBrowser1.Document.links(i).innertext
Print #1, s1 & "," & s2
Next
Close #1
End Sub

这是第一个问题，只需要WebBrowser（VB）自带！
追加问题更简单了，看情况吧，如果你追加的好，那我会给你追加的更好！哈哈～

在网业浏览器里面应该有的` 我记得是
在 工具`It选项` 里面有 自己慢慢找