打印本文 打印本文 关闭窗口 关闭窗口
用VB判断网页文件是否在IE缓存中
作者：武汉SEO闵涛  文章来源：敏韬网  点击数663  更新时间：2009/4/23 15:02:44  文章录入：mintao  责任编辑：mintao

　　当访问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下测试通过。

打印本文 打印本文 关闭窗口 关闭窗口