使用VB获得一页的HTML代码

页面导航:首页 > 软件编程 > vb.net > 使用VB获得一页的HTML代码

使用VB获得一页的HTML代码

来源: 作者: 时间:2016-02-05 12:32 【

加入WebBrowser、Timer、CommandButton控件各一个,然后使用以下代码:Private Sub Command1_Click() WebBrowser1.Navigate "http://www.programlife

 

 

  加入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

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <