VB6.0: 求获取某个网页所有HTML的代码

 我来答
匿名用户
推荐于2017-10-14
展开全部
'使用 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对象

电影文案解说库
2014-10-08 · 超过61用户采纳过TA的回答
知道小有建树答主
回答量:157
采纳率:50%
帮助的人:61.9万
展开全部
用狐火浏览器打开网站 点击右键 另存为,保存全部网页。
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
我好萌_233
2014-10-09 · 超过28用户采纳过TA的回答
知道答主
回答量:69
采纳率:75%
帮助的人:38.2万
展开全部
直接按字符流读取文件就好了啊
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
嘘_倾听雨落丨
2014-10-09 · TA获得超过686个赞
知道小有建树答主
回答量:540
采纳率:85%
帮助的人:49万
展开全部
百度上找仿站小工具 可以直接下载包括代码 css js 和图片
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
l460660436
2014-10-09 · TA获得超过369个赞
知道小有建树答主
回答量:445
采纳率:100%
帮助的人:202万
展开全部
可以介绍给你一个工具,单页扒手工具。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 3条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式