VBGood网站全文搜索 Google

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

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 6184|回复: 14

VB6读取IE缓存的一个源码

[复制链接]
 楼主| 发表于 2009-8-15 14:02:14 | 显示全部楼层 |阅读模式
一个用VB枚举IE缓存的源码,能够写的比较烂。:)

可以枚举IE缓存的文件,找到需要的文件可以复制URL,使用下载工具等下载。
可以在线播放某些格式的文件~

比较爽的是某些视频网站会把flv格式的视频放在缓存里面,
用这个工具也可以轻松的下载到,不过前提是得在网页里缓冲到100%……

调用到的API


  1. Private Type INTERNET_CACHE_ENTRY_INFO
  2.     dwStructSize As Long
  3.     lpszSourceUrlName As Long
  4.     lpszLocalFileName As Long
  5.     CacheEntryType As Long
  6.     dwUseCount As Long
  7.     dwHitRate As Long
  8.     dwSizeLow As Long
  9.     dwSizeHigh As Long
  10.     LastModifiedTime As FILETIME
  11.     ExpireTime As FILETIME
  12.     LastAccessTime As FILETIME
  13.     LastSyncTime As FILETIME
  14.     lpHeaderInfo As Long
  15.     dwHeaderInfoSize As Long
  16.     lpszFileExtension As Long
  17.     dwReserved As Long
  18.     dwExemptDelta As Long
  19.     'szRestOfData() As Byte
  20. End Type

  21. Private Declare Function FindFirstUrlCacheEntry Lib "wininet.dll" Alias "FindFirstUrlCacheEntryA" (ByVal lpszUrlSearchPattern As String, ByVal lpFirstCacheEntryInfo As Long, ByRef lpdwFirstCacheEntryInfoBufferSize As Long) As Long
  22. Private Declare Function FindNextUrlCacheEntry Lib "wininet.dll" Alias "FindNextUrlCacheEntryA" (ByVal hEnumHandle As Long, ByVal lpNextCacheEntryInfo As Long, ByRef lpdwNextCacheEntryInfoBufferSize As Long) As Long
  23. Private Declare Sub FindCloseUrlCache Lib "wininet.dll" (ByVal hEnumHandle As Long)
  24. Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long

复制代码


程序截图

截图

截图


程序及源码
IECacheEnum.rar (38.47 KB, 下载次数: 469)

评分

参与人数 2威望 +4 人气 +2 收起 理由
szdan + 4 + 1 我很赞同
新林 + 1 发布源码

查看全部评分

发表于 2009-8-15 21:02:37 | 显示全部楼层
不错
回复 支持 反对

使用道具 举报

发表于 2009-8-16 13:31:44 | 显示全部楼层
稍加改造可以做成电子取证工具
回复 支持 反对

使用道具 举报

发表于 2009-8-18 19:12:51 | 显示全部楼层
学习
回复 支持 反对

使用道具 举报

发表于 2009-8-23 00:44:07 | 显示全部楼层
不错~
psc上面有这类的代码~
回复 支持 反对

使用道具 举报

头像被屏蔽
发表于 2009-9-14 00:08:52 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复 支持 反对

使用道具 举报

头像被屏蔽
发表于 2009-9-14 07:33:58 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复 支持 反对

使用道具 举报

发表于 2009-9-28 00:38:29 | 显示全部楼层
还是解析DAT文件比较好
回复 支持 反对

使用道具 举报

发表于 2009-10-29 10:16:43 | 显示全部楼层
能不能进行选择性的清理啊???????
回复 支持 反对

使用道具 举报

发表于 2010-5-8 11:11:22 | 显示全部楼层
okok
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2019-8-18 11:47

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