标题: 使用VB获得一页的HTML代码 [打印本页]

---

作者: 毛主席    时间: 2007-10-8 10:28     标题: 使用VB获得一页的HTML代码

使用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

---

欢迎光临 ::电驴基地:: (https://www.cmule.com/)

Powered by Discuz! 6.0.0