VB6.0： 求获取某个网页所有HTML的代码 VB6.0：如何通过xmlhttp对象，获取多个URL的HT...

\u6c42VB6.0\u6253\u5f00\u7f51\u9875\uff0c\u83b7\u53d6\u91cc\u9762\u6570\u636e\u7684\u4ee3\u7801

\u4f60\u597d\uff0c\u83b7\u53d6\u6e90\u7801\u53ef\u4ee5\u7528XMLHTTP\u7ec4\u4ef6\uff0c\u4e0b\u9762\u662f\u4e00\u4e2a\u83b7\u53d6\u6e90\u7801\u51fd\u6570\uff0c\u53ef\u4ee5\u76f4\u63a5\u4f7f\u7528
Public Function getHtmlStr(strUrl As String) '\u83b7\u53d6\u6e90\u7801 On Error Resume Next Dim XmlHttp As Object, stime, ntime Set XmlHttp = CreateObject("Microsoft.XMLHTTP") XmlHttp.open "GET", strUrl, True XmlHttp.send stime = Now '\u83b7\u53d6\u5f53\u524d\u65f6\u95f4 While XmlHttp.ReadyState 4 DoEvents ntime = Now() '\u83b7\u53d6\u5faa\u73af\u65f6\u95f4 If DateDiff("s", stime, ntime) > 3 Then getHtmlStr = "": Exit Function Wend getHtmlStr = StrConv(XmlHttp.responseBody, vbUnicode) Set XmlHttp = NothingEnd Function\u4f7f\u7528 \uff1aa=getHtmlStr("\u7f51\u5740")a\u7684\u503c\u5c31\u662f\u83b7\u53d6\u5230\u7684\u6e90\u7801

\u5efa\u8bae\u91c7\u7528\u5f02\u6b65\u65b9\u5f0f\u8c03\u7528xmlhttp\uff0c\u7136\u540e\u901a\u8fc7\u8f6e\u8be2\u7684\u65b9\u5f0f\u4e0d\u65ad\u68c0\u6d4bxmlhttp\u7684readyState\u5c5e\u6027\uff0c\u7b49\u4e8e4\u7684\u65f6\u5019\u5c31\u53ef\u4ee5\u8bfb\u53d6\u6570\u636e\uff0c\u5b8c\u6bd5\u540e\u5c31\u53ef\u4ee5\u7ee7\u7eed\u8bfb\u53d6\u4e0b\u4e00\u4e2a\u9875\u9762\u4e86\u3002
\u8bfb\u53d6\u6570\u636e\u7684\u65f6\u5019\uff0c\u8fd8\u5e94\u8be5\u68c0\u6d4bxmlhttp\u7684status\u5c5e\u6027\uff0c\u53ea\u6709200\u624d\u8868\u793a\u8fd4\u56de\u7684\u662f\u6b63\u786e\u7684\u7f51\u9875\u6570\u636e\uff0c\u800c\u5176\u4ed6\u5982404\u8868\u793a\u672a\u627e\u5230\u7f51\u9875\u3001500\u8868\u793a\u670d\u52a1\u5668\u9519\u8bef\u7b49\u7b49\u3002
\u8f6e\u8be2\u7684\u65f6\u5019\u53ef\u4ee5\u52a0\u4e2a\u8ba1\u6570\u5668\uff0c\u8fbe\u5230\u67d0\u4e2a\u6570\u503c\u65f6\u5c31\u8df3\u51fa\u7ee7\u7eed\u8bfb\u53d6\u4e0b\u4e2a\u7f51\u9875\u6216\u7ed3\u675f\u8bfb\u53d6\uff0c\u8fd9\u6837\u5c31\u53ef\u907f\u514d\u67d0\u4e2a\u7f51\u9875\u6253\u5f00\u901f\u5ea6\u8fc7\u6162\u800c\u5f71\u54cd\u6574\u4e2a\u8bfb\u53d6\u8fc7\u7a0b\u3002

\u66f4\u597d\u7684\u89e3\u51b3\u529e\u6cd5\u662f\u4e00\u6b21\u6027\u58f0\u660e\u591a\u4e2axmlhttp\u5bf9\u8c61\u53d8\u91cf\uff08\u5efa\u8bae\u7528\u6570\u7ec4\uff09\uff0c\u8fd9\u6837\u5c31\u53ef\u4ee5\u540c\u65f6\u83b7\u53d6\u591a\u4e2a\u7f51\u9875\u7684\u4ee3\u7801\u3002\u5f53\u7136\u8fd9\u79cd\u60c5\u51b5\u4e0b\u5c31\u5fc5\u987b\u4f7f\u7528\u5f02\u6b65\u8c03\u7528\u65b9\u5f0f\u3002

'使用 URLDownloadToFile 这个API可以实现你想要的功能。
'声明API函数
Private 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
'下载网页源码
Public Function DownloadFile(ByVal strURL As String, ByVal strFile As String) As Boolean
   Dim lngReturn                   As Long
   
   lngReturn = URLDownloadToFile(0, strURL, strFile, 0, 0)
   If lngReturn = 0 Then DownloadFile = True
End Function
Private Sub Command1_Click()
   Debug.Print DownloadFile("http://zhidao.baidu.com/question/12376048.html", "D:\1.html")
End Sub

或者使用WinHTTP、XMLHTTP对象

用狐火浏览器打开网站 点击右键 另存为，保存全部网页。

直接按字符流读取文件就好了啊

百度上找仿站小工具 可以直接下载包括代码 css js 和图片

可以介绍给你一个工具，单页扒手工具。

扩展阅读：浏览器打开网站 ... vb6.0编写手机app ... vbmapp评估网页 ... vb-mapp评估助手 ... vivo浏览器苹果版 ... visual basic ... vb官网下载 ... vivo浏览器官网入口 ... vb下载安装 ...