VB6下载网页源

VB6中是否可以将网页源下载到字符串或文本框？例如，在VB.Net中，WebClient类允许您使用.DownloadString(“google.com”)进行此操作，如何在vb6中做到这一点？

注意:我想避免使用WebBrowser。

最佳答案

我对VB6不太了解，但是在VBA中...

Dim objHttp As Object, strURL as string, strText as string

Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")

strURL = "http://www.yoursite.com/"

objHttp.Open "GET", strURL, False
objHttp.setRequestHeader "User-Agent", _
  "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHttp.Send ("")

strText = objHttp.responseText

Set objHttp = Nothing