Declare Function GetUrlCacheEntryInfo Lib "wininet.dll" Alias "GetUrlCacheEntryInfoW" (ByVal szUrlName As Long, ByRef lpCacheEntryInfo As object, ByRef lpdwCacheEntryInfoBufferSize As Long) As Long
Declare Function SysAllocString Lib "oleaut32.dll" (ByVal pOlechar As Long) As String
Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (Destination As object, Source As object, ByVal Length As Long)
Structure FILETIME
Dim dwLowDateTime As Long
Dim dwHighDateTime As Long
End Structure
Structure INTE_CACHE_ENTRY_INFO
Dim dwStructSize As Long
Dim lpszSourceUrlName As Long
Dim lpszLocalFileName As Long
Dim CacheEntryType As Long
Dim dwUseCount As Long
Dim dwHitRate As Long
Dim dwSizeLow As Long
Dim dwSizeHigh As Long
Dim LastModifiedTime As FILETIME
Dim ExpireTime As FILETIME
Dim LastAccessTime As FILETIME
Dim LastSyncTime As FILETIME
Dim lpHeaderInfo As Long
Dim dwHeaderInfoSize As Long
Dim lpszFileExtension As Long
Dim dwReserved As Long
End Structure
Public Function GetCachePath(byval lpszUrl As String) As String
Dim dwEntrySize As Long
Dim lpCacheEntry As INTE_CACHE_ENTRY_INFO
Dim tarr() As Byte
Call GetUrlCacheEntryInfo(StrPtr(lpszUrl), ByVal 0, dwEntrySize)
If dwEntrySize > 0 Then
ReDim tarr(0 To dwEntrySize)
Call GetUrlCacheEntryInfo(StrPtr(lpszUrl), tarr(0), dwEntrySize)
dim a
a=CopyMem(ByVal lpCacheEntry, tarr(0), Len(lpCacheEntry))
GetCachePath = SysAllocString(lpCacheEntry.lpszLocalFileName)
GetCachePath = StrConv(GetCachePath,128)
End If
End Function
我改后如上，但编译通不过，大概意思就是StrPtr(lpszUrl)这个了，将lpszurl转换成指针出错。。。有解决办法没有？
[此贴子已经被作者于2014-4-15 20:59:28编辑过]
加好友 
发短信
Post By：2014/4/15 19:36:00 [只看该作者]
