用VB判斷網頁文件是否在IE緩存中
|
當訪問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.編寫函數IsFileInCachesURL
Function IsFileInCacheByVal sURL As String As Boolean
Const ERROR_INSUFFICIENT_B
UFFER = 122
Dim dwEntrySize As Long
If GetUrlCacheEntryInfosURL 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下測試通過。