vb2008获取网页源码

Public Function GetBody(ByVal URL$, Optional ByVal Coding$ = "GB2312")
'On Error Resume Next
Dim ObjXML = CreateObject("Microsoft.XMLHTTP")
With ObjXML
.Open("Get", URL, False, "", "")
.setRequestHeader("If-Modified-Since", "0")
.SEnd()
GetBody = .ResponseBody
End With
GetBody = BytesToBstr(GetBody, Coding)
ObjXML = Nothing
End Function

Public Function BytesToBstr(ByVal strBody, ByVal CodeBase)
Dim ObjStream = CreateObject("Adodb.Stream")
With ObjStream
.Type = 1
.Mode = 3
.Open()
.Write(strBody)
.Position = 0
.Type = 2
.Charset = CodeBase
BytesToBstr = .ReadText
.Close()
End With
ObjStream = Nothing
End Function

然后用textbox2.text = GetBody（textbox1.text） 就行了。
注意：如果URL里面有汉字，需要预先处理好。如果目标网页不是GB2312的，需要手动指定。