api - 将 URL 内容直接下载为字符串 (VB6)，无需保存到磁盘

Question

基本上，我想将特定 URL 的内容(基本上，只是字符串形式的 HTML 代码)下载到我的 VB6 字符串变量中。但是，有一些条件。
我知道 URLDownloadToFile 函数 - 但是，这要求您将下载的文件/HTML 保存到磁盘上的文件位置，然后才能将其读入 String 变量，这对我来说不是一个选项，我不想这样做.
另一件事是，如果我需要使用外部库，它必须已经与 XP 及以后的所有版本的 Windows 一起提供，我不能使用我需要运送、打包和分发的控件或库，即使它是免费的，这不是一个选项，我不想这样做。因此，我不能使用 MSINET.OCX(互联网传输)控件的 .OpenURL() 函数(它只是将内容返回到一个字符串中)，因为它不随 Windows 一起提供。
有没有办法可以使用 Windows API、URLMON 或其他预加载到 Windows 或随 Windows 提供的东西来做到这一点，或者完全在 VB6 (SP6) 中做到这一点？
如果是这样，我会很感激指导，因为即使经过一个小时的谷歌搜索，我发现的唯一例子是对 URLDownloadToFile 的引用(这需要在将 ale 放入字符串之前保存在磁盘上)和 MsInet.OpenURL(这需要我发布和分发 MSINET.OCX，我不能也不想这样做)。
当然必须有一种优雅的方式才能做到这一点？我可以在 VB.NET 中毫无问题地做到这一点，但显然在 VB6 中没有 .NET 框架的奢华 - 有什么想法吗？
更新:
我找到了这个:http://www.freevbcode.com/ShowCode.asp?ID=1252
但是它说显示的函数可能不会返回整个
页面和指向 Microsoft 错误报告或知识库文章解释的链接
这个。另外，我知道这是基于 wininet.dll - 而我
想知道 WinInet.dll 打包了哪些版本的 Windows
和？ Windows XP 及更高版本？是否附带 Windows 7 和/或 Windows
8？

Answer 1

几年前我是这样用 VB6 做的:

Private Function GetHTMLSource(ByVal sURL As String) As String
Dim xmlHttp As Object
    Set xmlHttp = CreateObject("MSXML2.XmlHttp")
    xmlHttp.Open "GET", sURL, False
    xmlHttp.send
    GetHTMLSource = xmlHttp.responseText
    Set xmlHttp = Nothing
End Function