2262人阅读
一、使用 API 函数 URLDownloadToFile，下载网页文件（也可以是图片等其他文件）到硬盘
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
Dim nUrl As String, F As String, S As Long
nUrl = &&: F = App.Path & &\My-1.bmp& '下载百度图片
S = URLDownloadToFile(0, nUrl, F, 0, 0)&&&& '下载文件，0 表示成功
nUrl = &&: F = App.Path & &\Baidu.html& '下载百度首页的网页
S = URLDownloadToFile(0, nUrl, F, 0, 0)&&&& '下载文件，0 表示成功
二、使用 API 函数 OleLoadPicturePath，下载图片文件到变量，注意要勾选引用：OLE Automation
Private Declare Function OleLoadPicturePath Lib &oleaut32.dll& (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRef ppvRet As IPicture) As Long
Private Type TGUID
Data1 As Long: Data2 As Integer: Data3 As Integer: Data4(0 To 7) As Byte
Public Function LoadNetPicture(ByVal ImgSrc As String) As Picture
Dim riid As TGUID
riid.Data1 = &H7BF80980: riid.Data2 = &HBF32: riid.Data3 = &H101A
riid.Data4(0) = &H8B: riid.Data4(1) = &HBB: riid.Data4(2) = &H0
riid.Data4(3) = &HAA: riid.Data4(4) = &H0:&& riid.Data4(5) = &H30
riid.Data4(6) = &HC:&& riid.Data4(7) = &HAB
OleLoadPicturePath StrPtr(ImgSrc), 0&, 0&, 0&, riid, LoadNetPicture
End Function
'使用方法:
Dim ImgSrc As String, nPicture As Picture
ImgSrc = &&
Set nPicture = LoadNetPicture(ImgSrc)&&&&&&&&& '将图片下载到变量
SavePicture nPicture, App.Path & &\MyImg.bmp&& '保存到硬盘
Picture1.Picture = nPicture
'如果要将图片装载到控件，可以直接这样：
Picture1.Picture = LoadNetPicture(ImgSrc)
三、使用 Microsoft.XMLHTTP 对象，下载网页文件（也可以是图片等其他文件）到硬盘
Private Sub DownNetFile(ByVal nUrl As String, ByVal nFile As String)
Dim XmlHttp, B() As Byte
Set XmlHttp = CreateObject(&Microsoft.XMLHTTP&)
XmlHttp.Open &GET&, nUrl, False
XmlHttp.Send
If XmlHttp.ReadyState = 4 Then
B() = XmlHttp.ResponseBody
Open nFile For Binary As #1
Put #1, , B()
Set XmlHttp = Nothing
'使用方法:
DownNetFile &&, App.Path & &\My-1.bmp& '下载百度图片
DownNetFile &&, App.Path & &\Baidu.html& '下载百度首页的网页
四、使用 WebBrowser 的 Document 对象，保存网页的所有图片
'先用 WebBrowser1 显示一个网页，如：WebBrowser1.Navigate &&
'待网页加载完毕后，再执行以下语句：
Dim nPath As String, K As Long, E, nRange
nPath = App.Path & &\Tu\&
WebBrowser1.Silent = True '关闭交互&& 禁止脚本错误
For Each E In WebBrowser1.Document.All
If E.tagName = &IMG& Then
Set nRange = WebBrowser1.Document.body.createControlRange()
nRange.Add E
nRange.execCommand &Copy& '复制到剪贴板
K = K + 1
SavePicture Clipboard.GetData, nPath & K & &.bmp& '保存到硬盘
五、用API调用系统的另存为下载对话框
Private Declare Function DoFileDownload Lib &shdocvw.dll& (ByVal lpszFile As String) As Long
'使用方法：
Dim nUrl As String
nUrl = StrConv(&&, vbUnicode)
Call DoFileDownload(nUrl)
六、用 WebBrowser1 的 ExecWB 方法调用网页另存为对话框：
WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT
以上方法各有优缺点。
Microsoft.XMLHTTP 对于大文件有利，支持断点续传，但需调用 getResponseHeader 进行数据检查。
对于谷歌地图图片，图片链接形如 ，仅第四种方法有效。
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：145217次
积分：2119
积分：2119
排名：第9536名
原创：58篇
转载：63篇
评论：23条
(2)(4)(3)(2)(1)(4)(2)(3)(1)(1)(3)(3)(1)(1)(3)(2)(3)(1)(6)(1)(2)(4)(1)(1)(6)(2)(3)(3)(4)(3)(1)(2)(3)(8)(7)(14)(2)(1)(1)(4)(4)求VB获取网页内容代码
[问题点数：40分，无满意结帖，结帖人graice2]
求VB获取网页内容代码
[问题点数：40分，无满意结帖，结帖人graice2]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2014年 总版技术专家分年内排行榜第三
2012年 总版技术专家分年内排行榜第四
2011年5月 VB大版内专家分月排行榜第三2011年4月 VB大版内专家分月排行榜第三
2011年5月 VB大版内专家分月排行榜第三2011年4月 VB大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。VB 如何把网页另存为文本文件txt
[问题点数：50分，结帖人dengkeyu]
VB 如何把网页另存为文本文件txt
[问题点数：50分，结帖人dengkeyu]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2006年11月 VB大版内专家分月排行榜第二
2008年8月 VB大版内专家分月排行榜第三2008年7月 VB大版内专家分月排行榜第三
2006年11月 VB大版内专家分月排行榜第二
2008年8月 VB大版内专家分月排行榜第三2008年7月 VB大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。倘若人生是一项编程，我愿用枯燥的代码，谱写人生的点点滴滴;
倘若人生是一套工序，我愿用笨拙的双手，刻录人生的朝朝暮暮;
倘若人生只是一场戏，我愿用诚实的面孔，演奏人生的始始终终.
关于用VB获取动态网页内容的问题例如这个网页：/kuaidiresult?id=4137591
挖掘一下可以知道，内容在&table&width="514"&border="0"&cellspacing="0"&cellpadding="0"&id="showtablecontext"&这个表格里
但是！！！
用VB获取的网页源码（用了inet控件和webbrowser控件）根本找不到这个表格
请教各位大大，应该如何获取这种“隐藏”的表格。------解决方案--------------------
http://blog.csdn.net/a814153a/article/details/
原文地址:/vb/1553450.html
网名：代码描绘人生
职业：JAVA软件工程师
籍贯：北京周口店附近
Web前端(4248)
HTML/CSS(3368)
Web开发(1152)
jQuery(1685)
Ajax(2454)
网页设计(4364)
JavaScript书籍下载(816)
Ext书籍下载(203)
跨浏览器开发(1574)
HTML5书籍下载(467)
HTML5(1554)
Ajax书籍下载(94)
高性能WEB开发(2517)
jQuery书籍下载(551)
XML/SOAP(3321)
vbScript(4323)
Web Service(2386)
PHP书籍下载(535)
HTML/CSS书籍下载(418)
XML/SOAP书籍下载(502)
JavaScript(5730)
MySQL书籍下载(479)
Oracle Exception(225)
数据库(4165)
Oracle技术(2127)
Oracle管理(2286)
DB2书籍下载(544)
Oracle开发(3119)
Sybase(2784)
Sql Server书籍下载(215)
Sql Server(3913)
Informix(1914)
NoSQL(930)
数据仓库(5455)
MySQL(2775)
Oracle面试(2297)
Oracle书籍下载(506)
高性能数据库开发(4749)
其他数据库(2100)
Access(2304)
Android书籍下载(694)
移动开发(4091)
电信IT应用开发(3441)
QT开发(2480)
Brew(5285)
Symbian(2353)
Symbian书籍下载(565)
MeeGo(4994)
Android(6542)
移动平台(4733)
Windows Mobile(2705)
Iphone(1496)
移动软件开发(817)
BlackBerry书籍下载(84)
移动开发书籍下载(403)
移动应用(2374)
Iphone书籍下载(390)
BlackBerry(1182)
Dynamics CRM(145)
行业应用(3279)
报表(5729)
企业信息化(4053)
Lotus(4115)
Tivoli(2018)
Exchange(1302)
SharePoint(3868)
K2 BPM(557)
企业开发(4541)
WinCE(2412)
嵌入开发(2622)
Wireless(3163)
硬件开发(2861)
驱动开发(1901)
汇编语言(3066)
单片机(2844)
VxWorks(3512)
Java Exception(275)
Hibernate书籍下载(209)
IBatis/Mybatis(187)
Java书籍下载(601)
J2SE(2724)
J2ME(1857)
J2EE(3645)
Struts书籍下载(556)
J2ME书籍下载(166)
Spring(68)
Java相关(3608)
Java面试(2533)
Struts(92)
Hibernate(179)
Java Web开发(3027)
IBatis/Mybatis书籍下载(369)
Eclipse(2309)
Spring书籍下载(587)
JBoss(3505)
Weblogic(4727)
ColdFusion(4343)
应用服务器(4763)
JBoss书籍下载(285)
WebSphere(2305)
Apache(3859)
PowerDesigner(2983)
设计模式(2505)
Rational(3458)
项目管理(3822)
VSTS(4009)
开发方法(4943)
微创软件开发(2046)
开发过程(2439)
软件设计(2619)
CVS/SVN(2798)
研发管理(3088)
软件架构设计(3792)
软件测试(3672)
敏捷开发(2657)
ASP.NET(4054)
.NET相关(1736)
.NET组件控件(2088)
.NET Framework(2607)
LINQ(2628)
VC书籍下载(124)
C#书籍下载(995)
ASP.NET书籍下载(318)
WinRT Metro(828)
.NET面试(2430)
DotNet Exception(223)
.NET新技术(854)
VB Dotnet书籍下载(365)
WinForm(936)
Visual Studio(519)
VB Dotnet(3374)
Delphi(1099)
.NET分析设计(2494)
.NET报表(2627)
Linux/Unix(3732)
Solaris(4115)
Linux/Unix书籍下载(999)
多媒体设计(3980)
图像工具使用(5202)
Flash(3913)
Silverlight(2519)
AutoCAD(3380)
图形/图像(2922)
多媒体/流媒体开发(3934)
Flex(3339)
Flash书籍下载(551)
交互式开发(3270)
Flex书籍下载(116)
C语言书籍下载(274)
其他开发语言(3247)
Ruby/Rails书籍下载(471)
Erlang(1066)
swift(208)
Ruby/Rails(3526)
perl/python书籍下载(671)
C++书籍下载(409)
perl/python(2521)
编程(7948)
C++ Builder(2071)
C语言(3164)
Verilog(749)
Paypal(3403)
CUDA(1123)
IBM云计算(3866)
搜索引擎(2994)
网络通信(1908)
VOIP(4260)
人工智能(3660)
Open API(3147)
信息/网络安全(1850)
Google技术(5280)
操作系统(4657)
共享软件(3069)
开源软件(3225)
系统运维(3088)
综合(6254)
互联网(4705)
游戏开发(4147)
多核软件开发(4313)
数据结构与算法(3168)
云计算(3193)
高性能计算(3815)
数码设备(4970)
网络设计维护(3538)
装机与升级(4581)
外设及办公设备(4872)
交换机/路由器(1133)
电脑整机及配件(2848)
Delphi(3698)
Windows Phone书籍下载(411)
Windows Server(553)
Office(1639)
Windows(3740)
Windows7(2639)
VC/MFC(2582)
Windows Phone(895)
Windows书籍下载(231)
Windows2000(5185)
Windows xp(4125)
计算机英语(1161)
Oracle认证考试(1321)
软件培训(6087)
软件水平考试(4625)
IT认证(4326)
IT课程(2925)
计算机图书(2768)