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

 

Private Sub Command1_Click()

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

    Timer1.Enabled = True

End Sub

 

Private Sub Timer1_Timer()

    Dim doc, obj 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