VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
123
返回列表 发新帖
楼主: 261001126

[经验技巧] 2行代码实现下载并运行

[复制链接]
发表于 2011-2-10 15:32:00 | 显示全部楼层
学习了.
回复 支持 反对

使用道具 举报

发表于 2011-2-11 16:48:00 | 显示全部楼层
本帖最后由 ldmsoft 于 2011-2-11 16:48 编辑

  1. 使用DeleteUrlCacheEntry清理缓存后再使用URLDownloadToFile下载文件。

  2. Public 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
  3. '清除缓存
  4. Public Declare Function DeleteUrlCacheEntry Lib "wininet" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long

  5. Public Function DownloadFile(Url As String, LocalFilename As String) As Boolean
  6. Dim lngRetVal As Long
  7. lngRetVal = URLDownloadToFile(0, Url, LocalFilename, 0, 0)
  8. If lngRetVal = 0 Then'每次下载成功后清除缓存
  9.   DownloadFile = True
  10.   DeleteUrlCacheEntry Url '清除缓存
  11. End If
  12. End Function

  13. 这个是VB清空缓冲的方法。用这个就可以了。
复制代码
回复 支持 反对

使用道具 举报

发表于 2011-3-25 13:57:43 | 显示全部楼层
自动下载IE文件。
回复 支持 反对

使用道具 举报

发表于 2011-10-4 20:01:01 | 显示全部楼层
呃~~~~我表示压力很大~~~~~~~
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-7-4 23:33

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表