DownLoadImage
2024-09-21 07:08:23
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
Sub DownloadImage(ByVal ImageUrl As String, ByVal ImagePath As String)
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, ImageUrl, ImagePath, 0, 0)
If lngRetVal = 0 Then
DeleteUrlCacheEntry ImageUrl '清除缓存
'MsgBox "成功"
Else
'MsgBox "失败"
End If
End Sub
最新文章
- 笔记本(WIN7|XP)发射wifi信号 当无线路由使用
- UITableView 学习笔记
- 【总结】String in Java
- require js 将config和入口函数分开写
- js php xmlrequest 上传图片
- VSCode 必装的 10 个高效开发插件
- vuex学习总结
- bootstrapTable 合并单元格
- android -------- 我创建的第一个 NDKDmeo 案例
- Qt编译好的oracle驱动下载
- iOS- 利用AFNetworking3.0+(最新AFN) - 实现文件上传
- C++类指针类型的成员变量的浅复制与深复制
- Spring cloud子项目
- MongoDB 分页
- 初识 ElasticSearch
- NHibernate VS IbatisNet
- php数组函数-array_flip()
- 将[object Object]转换成json对象
- fread了解一下
- nginx-配置反向代理实例