VB获得一页的html代码

　　Private Sub Command1_Click()

　　WebBrowser1.Navigate "http://localhost/"

　　Timer1.Enabled = TrueEnd 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

原文转自：http://www.ltesting.net