Question

VB6中有没有办法将网页源下载到字符串或文本框？例如在VB.Net中，WebClient类允许你使用.DownloadString（“google.com”）这样做，我怎样才能在vb6中做同样的事情？

注意：我想避免使用WebBrowser。

Answer 1

你带我回去了好几年。为此目的，有一个有用的Windows API调用：

Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Answer 2

使用UserControl和UserDocument对象的AsyncRead方法，使用原生VB6有一种鲜为人知的方法 - 不需要API调用。如果您愿意，甚至可以异步进行。

这是来自着名的VB6大师explanation and VB6 code for multiple simultaneous downloads的优秀Karl Peterson。

Answer 3

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

Answer 4

您可以使用URLDownloadToFile功能，然后将下载的文件读入字符串或文本框。

示例代码：http://vbnet.mvps.org/index.html?code/internet/urldownloadtofilenocache.htm

VB6下载网页源码

4 个答案: