Option Explicit'清理指定URL地址的缓存Private Declare Function GetUrlCacheEntryInfo Lib "wininet.dll" Alias "GetUrlCacheEntryInfoA" (ByVal sUrlName As String, lpCacheEntryInfo As Any, lpdwCacheEntryInfoBufferSize As Long) As LongPrivate Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As LongPublic Function InCache(ByVal URL As String) As Boolean If GetUrlCacheEntryInfo(URL, ByVal 0&, 0) = 0 Then InCache = (Err.LastDllError = 122) End IfEnd FunctionPublic Sub DeleteCacheURL(ByVal URL As String) DeleteUrlCacheEntry URLEnd SubPrivate Sub Command1_Click() Dim URL As String URL = "http://www.2288822.net" If (InCache(URL)) Then DeleteCacheURL URL End IfEnd Sub
