全文

用VB判断网页文件是否在IE缓存中

2004-03-06 13:57作者：马坤出处：电脑报责任编辑：方舟

天极IT资讯短信服务 电脑小技巧

资费：包月5元
手机：

介绍：细处着手，巧处用功。高手和菜鸟之间的差别就是：高手什么都知道，菜鸟知道一些。电脑小技巧收集最新奇招高招，让你轻松踏上高手之路。

　　当访问Internet某个站点时，系统首先将远程文件读入到本机Temporary Internet Files文件夹。现在告诉大家一个小技巧可以用VB语言和一个API函数实现判断网页文件是否在IE缓存中。

　　1.API声明

Private Declare Function GetUrlCacheEn
tryInfo Lib ″wininet.dll″ Alias ″GetUrlCacheE
ntryInfoA″ ByVal szUrlName As String lpCa
cheEntryInfo As Any lpdwCacheEntryInfoBuf
ferSize As Long　 As Long

　2.编写函数IsFileInCachesURL　

Function IsFileInCacheByVal sURL As String　 As Boolean
Const ERROR_INSUFFICIENT_B
UFFER = 122
Dim dwEntrySize As Long
If GetUrlCacheEntryInfosURL ByVal 0& dwEntrySize　　 = 0 Then
If Err.LastDllError = ERROR_IN
SUFFICIENT_BUFFER　 Then
IsFileInCache = True
End If
End If
End Function　　

　　3.举例

MsgBox IsFileInCache″http//www.cpcw.com″

　　若www.cpcw.com已访问则输出True，否则输出False

　　以上程序在Win2003+VB6 SP5下测试通过。