使用VB获得一页的HTML代码

中国IT动力,最新最全的IT技术教程

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档

当前位置：> 程序开发 > 编程语言 > Visual Basic > 综合文章

使用VB获得一页的HTML代码

作者:未知时间:2005-08-07 20:50 出处:编程爱好者网站责编:chinaitpower

摘要：使用VB获得一页的HTML代码

加入WebBrowser、Timer、CommandButton控件各一个，然后使用以下代码：

Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.163.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

关闭本页