关于VB中删除IE临时文件的问题!谢谢!

自己去删出 下面文件夹 中的东西：C:\WINDOWS\Cookies
C:\WINDOWS\Temporary Internet Files

解决方案 »

  1.   

    Visual Basic Example - Enum and Delete Cache 
    'This project requries a form with a listbox (List1) on it
    'and a class module (MemoryBlock)'In the form:
    Option Explicit
    Private Type FILETIME
        dwLowDateTime As Long
        dwHighDateTime As Long
    End Type
    Private Type INTERNET_CACHE_ENTRY_INFO
        dwStructSize As Long
        lpszSourceUrlName As Long
        lpszLocalFileName As Long
        CacheEntryType As Long
        dwUseCount As Long
        dwHitRate As Long
        dwSizeLow As Long
        dwSizeHigh As Long
        LastModifiedTime As FILETIME
        ExpireTime As FILETIME
        LastAccessTime As FILETIME
        LastSyncTime As FILETIME
        lpHeaderInfo As Long
        dwHeaderInfoSize As Long
        lpszFileExtension As Long
        dwReserved As Long
        dwExemptDelta As Long
        'szRestOfData() As Byte
    End Type
    Private Declare Function FindFirstUrlCacheEntry Lib "wininet.dll" Alias "FindFirstUrlCacheEntryA" (ByVal lpszUrlSearchPattern As String, ByVal lpFirstCacheEntryInfo As Long, ByRef lpdwFirstCacheEntryInfoBufferSize As Long) As Long
    Private Declare Function FindNextUrlCacheEntry Lib "wininet.dll" Alias "FindNextUrlCacheEntryA" (ByVal hEnumHandle As Long, ByVal lpNextCacheEntryInfo As Long, ByRef lpdwNextCacheEntryInfoBufferSize As Long) As Long
    Private Declare Sub FindCloseUrlCache Lib "wininet.dll" (ByVal hEnumHandle As Long)
    Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
    Private Sub Form_Load()
        'KPD-Team 2001
        'URL: http://www.allapi.net/
        'E-Mail: [email protected]
        Dim ICEI As INTERNET_CACHE_ENTRY_INFO, Ret As Long
        Dim hEntry As Long, Msg As VbMsgBoxResult
        Dim MemBlock As New MemoryBlock
        'Start enumerating the visited URLs
        FindFirstUrlCacheEntry vbNullString, ByVal 0&, Ret
        'If Ret is larger than 0...
        If Ret > 0 Then
            '... allocate a buffer
            MemBlock.Allocate Ret
            'call FindFirstUrlCacheEntry
            hEntry = FindFirstUrlCacheEntry(vbNullString, MemBlock.Handle, Ret)
            'copy from the buffer to the INTERNET_CACHE_ENTRY_INFO structure
            MemBlock.ReadFrom VarPtr(ICEI), LenB(ICEI)
            'Add the lpszSourceUrlName string to the listbox
            If ICEI.lpszSourceUrlName <> 0 Then List1.AddItem MemBlock.ExtractString(ICEI.lpszSourceUrlName, Ret)
        End If
        'Loop until there are no more items
        Do While hEntry <> 0
            'Initialize Ret
            Ret = 0
            'Find out the required size for the next item
            FindNextUrlCacheEntry hEntry, ByVal 0&, Ret
            'If we need to allocate a buffer...
            If Ret > 0 Then
                '... do it
                MemBlock.Allocate Ret
                'and retrieve the next item
                FindNextUrlCacheEntry hEntry, MemBlock.Handle, Ret
                'copy from the buffer to the INTERNET_CACHE_ENTRY_INFO structure
                MemBlock.ReadFrom VarPtr(ICEI), LenB(ICEI)
                'Add the lpszSourceUrlName string to the listbox
                If ICEI.lpszSourceUrlName <> 0 Then List1.AddItem MemBlock.ExtractString(ICEI.lpszSourceUrlName, Ret)
            'Else = no more items
            Else
                Exit Do
            End If
        Loop
        'Close enumeration handle
        FindCloseUrlCache hEntry
        'Delete our memory block
        Set MemBlock = Nothing
        Msg = MsgBox("Do you wish to delete the Internet Explorer cache?", vbYesNo + vbDefaultButton2 + vbQuestion)
        If Msg = vbYes Then
            'loop trough the entries...
            For Ret = 0 To List1.ListCount - 1
                '...and delete them
                DeleteUrlCacheEntry List1.List(Ret)
            Next Ret
            MsgBox "Cache deleted..."
        End If
    End Sub'In the class module 'MemoryBlock':
    Option Explicit
    Private Const MEM_DECOMMIT = &H4000
    Private Const MEM_RELEASE = &H8000
    Private Const MEM_COMMIT = &H1000
    Private Const MEM_RESERVE = &H2000
    Private Const MEM_RESET = &H80000
    Private Const MEM_TOP_DOWN = &H100000
    Private Const PAGE_READONLY = &H2
    Private Const PAGE_READWRITE = &H4
    Private Const PAGE_EXECUTE = &H10
    Private Const PAGE_EXECUTE_READ = &H20
    Private Const PAGE_EXECUTE_READWRITE = &H40
    Private Const PAGE_GUARD = &H100
    Private Const PAGE_NOACCESS = &H1
    Private Const PAGE_NOCACHE = &H200
    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal pDest As Long, ByVal pSrc As Long, ByVal ByteLen As Long)
    Private Declare Function VirtualAlloc Lib "kernel32" (ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
    Private Declare Function VirtualFree Lib "kernel32" (ByVal lpAddress As Long, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long
    Private Declare Function VirtualLock Lib "kernel32" (ByVal lpAddress As Long, ByVal dwSize As Long) As Long
    Private Declare Function VirtualUnlock Lib "kernel32" (ByVal lpAddress As Long, ByVal dwSize As Long) As Long
    Private Declare Function IsBadReadPtr Lib "kernel32" (ByVal lp As Long, ByVal ucb As Long) As Long
    Private Declare Function IsBadWritePtr Lib "kernel32" (ByVal lp As Long, ByVal ucb As Long) As Long
    Private Declare Function IsBadStringPtr Lib "kernel32" Alias "IsBadStringPtrA" (ByVal lpsz As Long, ByVal ucchMax As Long) As Long
    Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpStringDest As String, ByVal lpStringSrc As Long) As Long
    Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Long) As Long
    Private m_VirtualMem As Long, lLength As Long
    'Returns the handle of the allocated memory
    Public Property Get Handle() As Long
        Handle = m_VirtualMem
    End Property
    'Allocates a specific amount of bytes in the Virtual Memory
    Public Sub Allocate(lCount As Long)
        ReleaseMemory
        m_VirtualMem = VirtualAlloc(ByVal 0&, lCount, MEM_COMMIT, PAGE_EXECUTE_READWRITE)
        VirtualLock m_VirtualMem, lCount
    End Sub
    'Reads from the allocated memory and writes it to a specified pointer
    Public Sub ReadFrom(hWritePointer As Long, lLength As Long)
        If IsBadWritePtr(hWritePointer, lLength) = 0 And IsBadReadPtr(Handle, lLength) = 0 Then
            CopyMemory hWritePointer, Handle, lLength
        End If
    End Sub
    'Writes to the allocated memory and reads it from a specified pointer
    Public Sub WriteTo(hReadPointer As Long, lLength As Long)
        If IsBadReadPtr(hReadPointer, lLength) = 0 And IsBadWritePtr(Handle, lLength) = 0 Then
            CopyMemory Handle, hReadPointer, lLength
        End If
    End Sub
    'Extracts a string from the allocated memory
    Public Function ExtractString(hStartPointer As Long, lMax As Long) As String
        Dim Length As Long
        If IsBadStringPtr(hStartPointer, lMax) = 0 Then
            ExtractString = Space(lMax)
            lstrcpy ExtractString, hStartPointer
            Length = lstrlen(hStartPointer)
            If Length >= 0 Then ExtractString = Left$(ExtractString, Length)
        End If
    End Function
    'Release the allocated memory
    Public Sub ReleaseMemory()
        If m_VirtualMem <> 0 Then
            VirtualUnlock m_VirtualMem, lLength
            VirtualFree m_VirtualMem, lLength, MEM_DECOMMIT
            VirtualFree m_VirtualMem, 0, MEM_RELEASE
            m_VirtualMem = 0
        End If
    End Sub
    Private Sub Class_Terminate()
        ReleaseMemory
    End Sub
     
      

  2.   

    Visual Basic Example - Enum and Delete Cache 
    'This project requries a form with a listbox (List1) on it
    'and a class module (MemoryBlock)'In the form:
    Option Explicit
    Private Type FILETIME
        dwLowDateTime As Long
        dwHighDateTime As Long
    End Type
    Private Type INTERNET_CACHE_ENTRY_INFO
        dwStructSize As Long
        lpszSourceUrlName As Long
        lpszLocalFileName As Long
        CacheEntryType As Long
        dwUseCount As Long
        dwHitRate As Long
        dwSizeLow As Long
        dwSizeHigh As Long
        LastModifiedTime As FILETIME
        ExpireTime As FILETIME
        LastAccessTime As FILETIME
        LastSyncTime As FILETIME
        lpHeaderInfo As Long
        dwHeaderInfoSize As Long
        lpszFileExtension As Long
        dwReserved As Long
        dwExemptDelta As Long
        'szRestOfData() As Byte
    End Type
    Private Declare Function FindFirstUrlCacheEntry Lib "wininet.dll" Alias "FindFirstUrlCacheEntryA" (ByVal lpszUrlSearchPattern As String, ByVal lpFirstCacheEntryInfo As Long, ByRef lpdwFirstCacheEntryInfoBufferSize As Long) As Long
    Private Declare Function FindNextUrlCacheEntry Lib "wininet.dll" Alias "FindNextUrlCacheEntryA" (ByVal hEnumHandle As Long, ByVal lpNextCacheEntryInfo As Long, ByRef lpdwNextCacheEntryInfoBufferSize As Long) As Long
    Private Declare Sub FindCloseUrlCache Lib "wininet.dll" (ByVal hEnumHandle As Long)
    Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
    Private Sub Form_Load()
        'KPD-Team 2001
        'URL: http://www.allapi.net/
        'E-Mail: [email protected]
        Dim ICEI As INTERNET_CACHE_ENTRY_INFO, Ret As Long
        Dim hEntry As Long, Msg As VbMsgBoxResult
        Dim MemBlock As New MemoryBlock
        'Start enumerating the visited URLs
        FindFirstUrlCacheEntry vbNullString, ByVal 0&, Ret
        'If Ret is larger than 0...
        If Ret > 0 Then
            '... allocate a buffer
            MemBlock.Allocate Ret
            'call FindFirstUrlCacheEntry
            hEntry = FindFirstUrlCacheEntry(vbNullString, MemBlock.Handle, Ret)
            'copy from the buffer to the INTERNET_CACHE_ENTRY_INFO structure
            MemBlock.ReadFrom VarPtr(ICEI), LenB(ICEI)
            'Add the lpszSourceUrlName string to the listbox
            If ICEI.lpszSourceUrlName <> 0 Then List1.AddItem MemBlock.ExtractString(ICEI.lpszSourceUrlName, Ret)
        End If
        'Loop until there are no more items
        Do While hEntry <> 0
            'Initialize Ret
            Ret = 0
            'Find out the required size for the next item
            FindNextUrlCacheEntry hEntry, ByVal 0&, Ret
            'If we need to allocate a buffer...
            If Ret > 0 Then
                '... do it
                MemBlock.Allocate Ret
                'and retrieve the next item
                FindNextUrlCacheEntry hEntry, MemBlock.Handle, Ret
                'copy from the buffer to the INTERNET_CACHE_ENTRY_INFO structure
                MemBlock.ReadFrom VarPtr(ICEI), LenB(ICEI)
                'Add the lpszSourceUrlName string to the listbox
                If ICEI.lpszSourceUrlName <> 0 Then List1.AddItem MemBlock.ExtractString(ICEI.lpszSourceUrlName, Ret)
            'Else = no more items
            Else
                Exit Do
            End If
        Loop
        'Close enumeration handle
        FindCloseUrlCache hEntry
        'Delete our memory block
        Set MemBlock = Nothing
        Msg = MsgBox("Do you wish to delete the Internet Explorer cache?", vbYesNo + vbDefaultButton2 + vbQuestion)
        If Msg = vbYes Then
            'loop trough the entries...
            For Ret = 0 To List1.ListCount - 1
                '...and delete them
                DeleteUrlCacheEntry List1.List(Ret)
            Next Ret
            MsgBox "Cache deleted..."
        End If
    End Sub'In the class module 'MemoryBlock':
    Option Explicit
    Private Const MEM_DECOMMIT = &H4000
    Private Const MEM_RELEASE = &H8000
    Private Const MEM_COMMIT = &H1000
    Private Const MEM_RESERVE = &H2000
    Private Const MEM_RESET = &H80000
    Private Const MEM_TOP_DOWN = &H100000
    Private Const PAGE_READONLY = &H2
    Private Const PAGE_READWRITE = &H4
    Private Const PAGE_EXECUTE = &H10
    Private Const PAGE_EXECUTE_READ = &H20
    Private Const PAGE_EXECUTE_READWRITE = &H40
    Private Const PAGE_GUARD = &H100
    Private Const PAGE_NOACCESS = &H1
    Private Const PAGE_NOCACHE = &H200
    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal pDest As Long, ByVal pSrc As Long, ByVal ByteLen As Long)
    Private Declare Function VirtualAlloc Lib "kernel32" (ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
    Private Declare Function VirtualFree Lib "kernel32" (ByVal lpAddress As Long, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long
    Private Declare Function VirtualLock Lib "kernel32" (ByVal lpAddress As Long, ByVal dwSize As Long) As Long
    Private Declare Function VirtualUnlock Lib "kernel32" (ByVal lpAddress As Long, ByVal dwSize As Long) As Long
    Private Declare Function IsBadReadPtr Lib "kernel32" (ByVal lp As Long, ByVal ucb As Long) As Long
    Private Declare Function IsBadWritePtr Lib "kernel32" (ByVal lp As Long, ByVal ucb As Long) As Long
    Private Declare Function IsBadStringPtr Lib "kernel32" Alias "IsBadStringPtrA" (ByVal lpsz As Long, ByVal ucchMax As Long) As Long
    Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpStringDest As String, ByVal lpStringSrc As Long) As Long
    Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Long) As Long
    Private m_VirtualMem As Long, lLength As Long
    'Returns the handle of the allocated memory
    Public Property Get Handle() As Long
        Handle = m_VirtualMem
    End Property
    'Allocates a specific amount of bytes in the Virtual Memory
    Public Sub Allocate(lCount As Long)
        ReleaseMemory
        m_VirtualMem = VirtualAlloc(ByVal 0&, lCount, MEM_COMMIT, PAGE_EXECUTE_READWRITE)
        VirtualLock m_VirtualMem, lCount
    End Sub
    'Reads from the allocated memory and writes it to a specified pointer
    Public Sub ReadFrom(hWritePointer As Long, lLength As Long)
        If IsBadWritePtr(hWritePointer, lLength) = 0 And IsBadReadPtr(Handle, lLength) = 0 Then
            CopyMemory hWritePointer, Handle, lLength
        End If
    End Sub
    'Writes to the allocated memory and reads it from a specified pointer
    Public Sub WriteTo(hReadPointer As Long, lLength As Long)
        If IsBadReadPtr(hReadPointer, lLength) = 0 And IsBadWritePtr(Handle, lLength) = 0 Then
            CopyMemory Handle, hReadPointer, lLength
        End If
    End Sub
    'Extracts a string from the allocated memory
    Public Function ExtractString(hStartPointer As Long, lMax As Long) As String
        Dim Length As Long
        If IsBadStringPtr(hStartPointer, lMax) = 0 Then
            ExtractString = Space(lMax)
            lstrcpy ExtractString, hStartPointer
            Length = lstrlen(hStartPointer)
            If Length >= 0 Then ExtractString = Left$(ExtractString, Length)
        End If
    End Function
    'Release the allocated memory
    Public Sub ReleaseMemory()
        If m_VirtualMem <> 0 Then
            VirtualUnlock m_VirtualMem, lLength
            VirtualFree m_VirtualMem, lLength, MEM_DECOMMIT
            VirtualFree m_VirtualMem, 0, MEM_RELEASE
            m_VirtualMem = 0
        End If
    End Sub
    Private Sub Class_Terminate()
        ReleaseMemory
    End Sub
     
      

  3.   

    这好象是删除Cache的吧?我要的是删除临时文件的,不是Cache!不过还是谢谢你!