说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

使用VB获得一页的HTML代码

HTML文档下载 WORD文档下载 PDF文档下载
使用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
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘