使用VB获得一页的HTML代码

加入WebBrowser、Timer、CommandButton控件各一个，然后使用以下代码：

Private Sub Command1_Click()

WebBrowser1.Navigate "http://www.163.com/"

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Dim doc, objhtml As Object

Dim i As Integer

Dim strhtml As String

If Not WebBrowser1.Busy Then

Set doc = WebBrowser1.Document

i = 0

Set objhtml = doc.body.createtextrange()

If Not IsNull(objhtml) Then

Text1.Text = objhtml.htmltext

End If

Timer1.Enabled = False

End If

End Sub