VB中Inet控件(Internet Transfer控件)详解 »

« 在Visual Basic中控制Excel（4）

整理了如下四种方法：

Option Explicit
'--------------------------
'整理: Eddy
'主页：http://www.rrgod.com/
'说明：Text1显示网页源码；Text2指定网页Url
'--------------------------
'利用WebBrowser控件
Private Sub Command1_Click()
Dim strContent As String, i As Integer
Text1 = ""
For i = 0 To WebBrowser1.Document.All.length - 1
    If WebBrowser1.Document.All(i).tagName = "HTML" Then
        strContent = strContent & WebBrowser1.Document.All(i).innerHTML
    Exit For
End If
Next i
Text1 = strContent
End Sub
'利用Inet控件的OpenURL方法
Private Sub Command2_Click()
Text1 = ""
Text1 = Inet1.OpenURL(Text2.Text)
End Sub
'利用Microsoft的XMLHTTP对象
Private Sub Command3_Click()
Dim xmlobj As Object
Set xmlobj = CreateObject("Microsoft.XMLHTTP")
xmlobj.Open "GET", Text2.Text, False
xmlobj.send
If xmlobj.ReadyState = 4 Then
    Text1.Text = xmlobj.responseText
End If
End Sub
'利用Inet控件的Execute方法
Private Sub Command5_Click()
Text1 = ""
Inet1.Execute Text2.Text, "GET"
While Inet1.StillExecuting
    DoEvents
Wend
Text1.Text = Inet1.GetChunk(Len(Text1.Text))
End Sub
'打开指定网页
Private Sub Command4_Click()
WebBrowser1.Navigate Text2.Text
End Sub

部分网页用其中的某个方法可能会出现中文乱码，可以用编码转换函数解决。