使用VB获得一页的HTML代码

 

 

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

 

Private Sub Command1_Click()

    WebBrowser1.Navigate "http://www.programlife.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 

上一个：使用标签控件调出浏览器
下一个：如何在程序中启动 NT 的【拨号连接】对话框？