Declare Function FindFirstUrlCacheEntry Lib "wininet.dll" Alias "FindFirstUrlCacheEntryA" (ByVal lpszUrlSearchPattern As String, ByRef lpFirstCacheEntryInfo As INTERNET_CACHE_ENTRY_INFOA, ByRef lpdwFirstCacheEntryInfoBufferSize As Long) As Long

Declare Sub ReadUrlCacheEntryStream Lib "wininet.dll" (ByVal hUrlCacheStream As Long, ByVal dwLocation As Long, lpBuffer As Any, ByRef lpdwLen As Long, ByVal Reserved As Long)