Question

vb WebBrowser网页判断后提取

当WebBrowser开启完毕一个网页后。
如何提取网页里面的手机号码和邮件地址和所有连接

Answer 1

提取所有链接倒可以，但手机号码和邮件地址要以网页而定。
提取所有链接代码：
点击按钮后，所有网址都保存在d:\1.txt里
Private Sub Command1_Click()
Open "d:\1.txt" For Output As #1
Close
Dim x As Long
Dim y As String
For x = 0 To WebBrowser1.Document.links.length - 1
Print WebBrowser1.Document.links.Item(x)
y = WebBrowser1.Document.links.Item(x)
Open "d:\1.txt" For Append As #1
Write #1, y
Close (1)
Next x

End Sub

Answer 2

你得先说是什么网页，根据才能根据网页具体内容提取出结果来，提取任意网页里的东西没有统一的做法