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.anti-gravitydesign.com