下载网页图片的2个函数
时 间:2017-01-13 08:28:02
作 者:MDZZ ID:47512 城市:南京
摘 要:前段时间研究过提取网页数据,发现网页上有些图片需要下载下来,就找了2个函数,和大家分享一下。
正 文:
函数 1 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 Declare Function DeleteUrlCacheEntry Lib "wininet" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long Function testURLDownloadToFile(nUrl As String, localFilename As String) '根据路径保存网页图片 Dim lngRetVal As Long lngRetVal = URLDownloadToFile(0, nUrl, localFilename, 0, 0) If lngRetVal = 0 Then DeleteUrlCacheEntry nUrl '清除缓存 MsgBox "成功" Else MsgBox "失败" End If End Function 调用示例 Call testURLDownloadToFile("http://www.accessoft.com/images/access_logo.jpg", CurrentProject.Path & "\ACCESS软件网.jpg") 函数 2 Function HttpDownNetFile(nUrl As String, localFilename As String) '根据路径保存网页图片 Dim xmlHttp As Object, ayrHttpBody() As Byte Set xmlHttp = CreateObject("Microsoft.XMLHTTP") xmlHttp.Open "GET", nUrl, True '异步下载 xmlHttp.send Do Until xmlHttp.ReadyState = 4 DoEvents Loop If xmlHttp.Status = 200 Then ayrHttpBody() = xmlHttp.ResponseBody Open localFilename For Binary As #1 Put #1, , ayrHttpBody() Close #1 MsgBox "成功" Else MsgBox "失败" End If Set xmlHttp = Nothing End Function 调用示例 Call HttpDownNetFile("http://www.accessoft.com/images/access_logo.jpg", CurrentProject.Path & "\ACCESS软件网.jpg")
效果图
得到的图片
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
- 用DLOOKUP函数将需求表中...(10.31)
- Access日期区间段查询数据...(10.25)
学习心得
最新文章
- Access快速开发平台--在WI...(03.08)
- 使用SQL语句删除xscj表中学号...(03.08)
- Access快速开发平台进销存教程...(03.07)
- Access快速开发平台--frm...(03.06)
- 【Access删除查询】删除数字最...(03.06)
- Access快速开发平台进销存教程...(03.05)
- Access快速开发平台进销存教程...(03.04)
- Access快速开发平台--IsL...(03.02)
- Access两种方式实现即时更新月...(03.01)
- Access开发的资金管理系统;基...(02.29)