使用VB获得一页的HTML代码
发表于:2007-07-14来源:作者:点击数:
标签:
加入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
原文转自:http://www.ltesting.net