如何用vb得到网页的源代码

来源：百度知道 编辑：UC知道 时间：2024/05/16 13:26:56
如何用vb得到网页的源代码
网页是UTF8的 是否可以实现?如能实现请给出代码 能在TEXT显示 我要提取里面内容 初学者 请详细说明 非常感谢!
注意是UTF8的 打开是乱码

1 先加载网页：
Private Sub Form_Load()
WebBrowser1.Navigate "http://zhidao.baidu.com/question/123877723.html"

End Sub

2 加载完成后取字符串到文本框:
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

Dim doc As Object, objhtml As Object
Dim strhtml As String

On Error GoTo errorsub

Me.Caption = WebBrowser1.LocationName & " 加载完成"
If MaxWebNum <= 0 Then
Set doc = WebBrowser1.Document
Set objhtml = doc.body.createtextrange()
If Not IsNull(objhtml) Then
strhtml = WebBrowser1.Document.body.innertext
Text1.Text = strhtml
End If
End If
Exit Sub

errorsub:
Text1.Text = "错误！！！"
End Sub