判断URL是否在IE缓存中，并仅删除该URL。

迈克揉索芙特

于 2006-10-17 17:31:00 发布

阅读量2.9k

点赞数

分类专栏： Visual Basic 6.0 文章标签： url ie string function command

本文链接：https://blog.youkuaiyun.com/Modest/article/details/1338446

版权

Visual Basic 6.0 专栏收录该内容

35 篇文章

订阅专栏

本文提供了一段VBScript代码，用于检查指定URL是否存在于Internet Explorer的缓存中，并提供了删除特定URL缓存的功能。通过调用wininet.dll中的API函数实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

(声明：魏滔序原创，转贴请注明出处。)
判断URL是否在IE缓存中，并仅删除该URL，源码如下：

Option Explicit
Private Declare Function GetUrlCacheEntryInfo Lib "wininet.dll" Alias "GetUrlCacheEntryInfoA" (ByVal sUrlName As String, lpCacheEntryInfo As Any, lpdwCacheEntryInfoBufferSize As Long) As Long
Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long

Public Function InCache(ByVal URL As String) As Boolean
    If GetUrlCacheEntryInfo(URL, ByVal 0&, 0) = 0 Then
        InCache = (Err.LastDllError = 122)
    End If
End Function

Public Sub DeleteCacheURL(ByVal URL As String)
DeleteUrlCacheEntry URL
End Sub

使用方法：
Private Sub Command1_Click()
    Dim URL As String
    URL = "http://www.chenoe.com/default.asp"
    If (InCache(URL)) Then
        DeleteCacheURL URL
    End If
End Sub