在微软网站上搜到一段珍贵的代码，不知道哪位高手懂得改改

Question

本帖最后由 lzxbl05 于 2010-02-02 22:26:05 编辑

Answer 1

对不起，瞧我粗心的，我忘了复制定义区的代码了Private Declare Function FindFirstUrlCacheGroup Lib "wininet.dll" ( _
    ByVal dwFlags As Long, _
    ByVal dwFilter As Long, _
    ByRef lpSearchCondition As Long, _
    ByVal dwSearchCondition As Long, _
    ByRef lpGroupId As Date, _
    ByRef lpReserved As Long) As LongPrivate Declare Function FindNextUrlCacheGroup Lib "wininet.dll" ( _
    ByVal hFind As Long, _
    ByRef lpGroupId As Date, _
    ByRef lpReserved As Long) As Long
    
Private Declare Function DeleteUrlCacheGroup Lib "wininet.dll" ( _
    ByVal sGroupID As Date, _
    ByVal dwFlags As Long, _
    ByRef lpReserved As Long) As Long
    
Private Declare Function FindFirstUrlCacheEntry Lib "wininet.dll" Alias "FindFirstUrlCacheEntryA" ( _
    ByVal lpszUrlSearchPattern As String, _
    ByRef lpFirstCacheEntryInfo As INTERNET_CACHE_ENTRY_INFO, _
    ByRef lpdwFirstCacheEntryInfoBufferSize As Long) As Long
    
Private Type INTERNET_CACHE_ENTRY_INFO
    dwStructSize As Long
    szRestOfData(1024) As Long
End TypePrivate Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" ( _
    ByVal lpszUrlName As Long) As LongPrivate Declare Function FindNextUrlCacheEntry Lib "wininet.dll" Alias "FindNextUrlCacheEntryA" ( _
    ByVal hEnumHandle As Long, _
    ByRef lpNextCacheEntryInfo As INTERNET_CACHE_ENTRY_INFO, _
    ByRef lpdwNextCacheEntryInfoBufferSize As Long) As LongPrivate Const CACHGROUP_SEARCH_ALL = &H0
Private Const ERROR_NO_MORE_FILES = 18
Private Const ERROR_NO_MORE_ITEMS = 259
Private Const CACHEGROUP_FLAG_FLUSHURL_ONDELETE = &H2
Private Const BUFFERSIZE = 2048

Answer 2

偶提醒下LZ，IE4的代码貌似WIN95在XP上用成功的几率不大吧。
LZ精神可嘉！

Answer 3

已经运行成功的，不会出错，而且也确实把“历史记录”、“Cookies”和“Internet临时文件”等都删了，不信的话您可以试一下，代码都给出了，呵呵

Answer 4

前面删除 CacheGroup 部分估计不需要。FindFirstUrlCacheEntry 换成 FindFirstUrlCacheEntryEx，看说明 dwFilter 参数应该用 URLHISTORY_CACHE_ENTRY 吧。
http://msdn.microsoft.com/en-us/library/aa384034(VS.85).aspx

Answer 5

还是会删掉COOKIES，看来这真是很古老的代码了，没人会了，呵呵