¡¡¡Algunas preguntas sobre VB!!!!
El código es el siguiente. Lo acabo de probar. Coloque un control de comando en el formulario y haga clic en él para borrarlo:
Opción explícita
Declaración privada. Función FindFirstUrlCacheGroup Lib " wininet.dll" ( _
ByVal dwFlags As Long, _
ByVal dwFilter As Long, _
ByRef lpSearchCondition As Long, _
ByVal dwSearchCondition siempre, _
ByRef lpGroupId como fecha, _
ByRef lpReserved siempre) mientras
Función de declaración privada FindNextUrlCacheGroup Lib "wininet.dll" ( _
ByVal hFind As Long, _
ByRef lpGroupId As Date, _
ByRef lpReserved As Long) As Long
p>Función de declaración privada p>
Función de declaración privada DeleteUrlCacheGroup Lib "wininet.dll" ( _
ByVal sGroupID como fecha, _
ByVal dwFlags Mientras, _
ByRef lpReserved As Long) Mientras
Función de declaración privada FindFirstUrlCacheEntry Lib "wininet.dll" Alias "FindFirstUrlCacheEntryA" ( _
ByVal lpszUrlSearchPattern como cadena, _
ByRef lpFirstCacheEntryInfo como INTERNET_CACHE_ENTRY_INFO, _
ByRef lpdwFirstCacheEntryInfoBufferSize (como largo) como largo
Tipo privado INTERNET_CACHE_ENTRY_INFO
dwStructSize siempre
szRestOfData(1024) siempre
Tipo de fin
Función de declaración privada DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" ( _
p>ByVal lpszUrlName As Long) As Long
Función de declaración privada FindNextUrlCacheEntry Lib "wininet.dll" Alias "FindNextUrlCacheEntryA" ( _
ByVal hEnumHandle siempre y cuando, _
ByRef lpNextCacheEntryInfo como INTERNET_CACHE_ENT
RY_INFO, _
ByRef lpdwNextCacheEntryInfoBufferSize As Long) As Long
Const privada CACHGROUP_SEARCH_ALL = &H0
Const privada ERROR_NO_MORE_FILES = 18
Const privada ERROR_NO_MORE_ITEMS = 259
Const privada CACHEGROUP_FLAG_FLUSHURL_ONDELETE = &H2
Const privada BUFFERSIZE = 2048
Subcomando privado1_Click()
Dim sGroupID As Date
Dim hGroup As Long
Dim hFile As Long
iSize = BUFFERSIZE
hFile = FindFirstUrlCacheEntry(0, sEntryInfo , iSize)
Si (hFile = 0) Entonces
Si (Err. ERROR_NO_MORE_ITEMS) Entonces
Ir a hecho
Finalizar si
MsgBox "ERROR: FindFirstUrlCacheEntry - " & Err.LastDllError
Salir de Sub
Finalizar si
Hacer
Si (0 = DeleteUrlCacheEntry(sEntryInfo.szRestOfData(0)) _
y (Err.LastDllError <> 2) entonces
Err.Clear
finaliza si
iSize = BUFFERSIZE
Si (0 = FindNextUrlCacheEntry(hFile, sEntryInfo, iSize)) y (Err.LastDllError <>) ERROR_NO_MORE_ITEMS) Entonces
MsgBox " Error: No se puede encontrar la siguiente entrada de caché - " & Err.LastDllError
Salir de Sub
Finalizar si
Bucle hasta Err.LastDllError = ERROR_NO_MORE_ITEMS
hecho:
MsgBox "Caché borrada"
Command1.Enabled = True
End Sub