VB6下载网页源码

Question

VB6中有没有办法将网页源下载到字符串或文本框？例如，在 VB.Net 中，WebClient 类允许您使用 .DownloadString("google.com") 执行此操作，我如何在 vb6 中执行相同操作？

注意:我想避免使用网络浏览器。

Answer 1

我对 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