软件开发培训班 >> 编程开发 >> VB


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

天极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下测试通过。