vb中如何实现提取网页内容

---

在vb窗体上加入webBrowser控件，并加入一个时钟控件启枣棚，设置为岩早200毫秒，加入一个文本框
Private Sub Form_Load()
webBrowser1.Silent = True'屏蔽脚本错误提示
End Sub
Private Sub Command1_Click()
webBrowser1.Navigate "http://www.baidu.com" '打开网悄则址
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If Web1.Busy Then '如果网页还没完全打开则退出
Exit Sub
Else
Timer1.Enabled = False
Text1.Text = webBrowser1.Document.body.innerHtml '获取网页源码
'Text1.Text = webBrowser1.Document.body.innerText '获取网页文本
end if
End Sub

---