|东莞网页服务|东莞网站公司|东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|--vb获得一页的html代码

建站必读

网站建设知识

网站推广研究

当前位置：首页 -> 建站必读 -> ASP技术

vb获得一页的html代码

Private Sub Command1_Click()

    WebBrowser1.Navigate "http://localhost/"

    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

本站关键词：

|东莞网页服务|东莞网站公司|东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售||东莞网页服务|东莞网站公司|东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售||东莞网页服务|东莞网站公司|东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售||东莞网页服务|东莞网站公司|东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|