vb获得一页的html代码.txt

来自「用纯ＡＳＰ代码实现图片上传并存入数据库中」· 文本 代码 · 共 30 行

vb获得一页的html代码    


--------------------------------------------------------------------------------

 【茶博士】 于 2/1/99 4:24:56 PM 加贴在 Joy ASP ↑：

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