方法1:inet控件调用方法 Inet1.OpenURL
添加microsoft ineternet transfor conctrol6.0 控件
方法2:XMLHTTP
'如果出现乱码,UTF-8可改为GB2312
Public Function GetBody(ByVal URL$, Optional ByVal Coding$ = "GB2312")
Dim ObjXML
On Error Resume Next
Set ObjXML = CreateObject("Microsoft.XMLHTTP")
With ObjXML
.Open "Get", URL, False, "", ""
.setRequestHeader "If-Modified-Since", "0"
.Send
GetBody = .ResponseBody
End With
GetBody = BytesToBstr(GetBody, Coding)
Set ObjXML = Nothing
End Function
Public Function BytesToBstr(strBody, CodeBase)
Dim ObjStream
Set ObjStream = CreateObject("Adodb.Stream")
With ObjStream
.Type = 1
.Mode = 3
.Open
.Write strBody
.Position = 0
.Type = 2
.Charset = CodeBase
BytesToBstr = .ReadText
.Close
End With
Set ObjStream = Nothing
End Function
Private Sub Command1_Click()
u = "/search?word=vb&lm=0&od=0&fr=top_search"
Text1.Text = GetBody(u) '最好用richbox富文本框
End Sub
方法3:WinHttp
Private Sub Command4_Click()
Set IEread = CreateObject("WinHttp.WinHttpRequest.5.1")
CallByName IEread, "Open", VbMethod, "GET", URLaddr, True
CallByName IEread, "Send", VbMethod
CallByName IEread, "WaitForResponse", VbMethod
aa = CallByName(IEread, "ResponseText", VbMethod)
RichTextBox1.Text = aa
End Sub
方法4:'利用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
方法5:利用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