如何从URL取得其在Internet Cache中的文件名(vb实现)

原创 2006年06月13日 15:16:00

参考自 http://blog.csdn.net/cathyeagle/archive/2004/11/05/167900.aspx

 

'api声明
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
    
'union {
    '    DWORD dwReserved;
    '    DWORD dwExemptDelta;
    '}
    dwReserved As Long
End Type

Private Declare Sub MoveMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef _
    Destination 
As Any, ByRef Source As Any, ByVal Length As Long)
Private Declare Function SysAllocString Lib "oleaut32.dll" (ByVal pOlechar As LongAs String

Private Declare Sub GetUrlCacheEntryInfo Lib "wininet.dll" Alias _
    
"GetUrlCacheEntryInfoA" (ByVal lpszUrlName As StringByRef lpCacheEntryInfo As _
    Any, 
ByRef lpdwCacheEntryInfoBufferSize As Long)



'函数
Private Function getcachepath(lpszUrl$) As String

Dim dwEntrySize&
Dim lpCacheEntry As INTERNET_CACHE_ENTRY_INFO
Dim tarr() As Byte

Call GetUrlCacheEntryInfo(lpszUrl, ByVal 0, dwEntrySize)
If dwEntrySize > 0 Then
    
ReDim tarr(0 To dwEntrySize)
    
    
Call GetUrlCacheEntryInfo(lpszUrl, tarr(0), dwEntrySize)
        
    MoveMemory lpCacheEntry, tarr(
0), Len(lpCacheEntry)
    getcachepath 
= SysAllocString(lpCacheEntry.lpszLocalFileName)
    
Else
    
'getcachepath =""
End If
End Function

 

通过ADSI管理 Internet Information Server

 通过ADSI管理 Internet Information Server邓振波  活动目录是集成在Windows2000的目录服务。活动目录类似数据库。用户可以向活动目录添加或者清除项目,并且在大多...
  • seesi
  • seesi
  • 2002-03-27 08:48:00
  • 795

如何从URL取得其在Internet Cache中的文件名

翻译自 http://blog.csdn.net/CathyEagle/archive/2004/11/05/167900.aspx Private Declare Function GetUrlCa...
  • lingll
  • lingll
  • 2010-05-02 10:34:00
  • 1228

VB.Net刷点击

如何能够快速的增长博客的点击量呢~ 我用的是WebBrowser 控件,访问要刷点击的文章。定时器定时刷新,同时清除本地的cookie。就可以实现刷点击啦。...
  • liuchuan__________
  • liuchuan__________
  • 2015-09-17 11:43:16
  • 4440

如何从URL取得其在Internet Cache中的文件名(vb实现)

参考自 http://blog.csdn.net/cathyeagle/archive/2004/11/05/167900.aspx api声明Private Type FILETIME    dwL...
  • lingll
  • lingll
  • 2006-06-13 15:16:00
  • 1337

VB6判断某一个连接是否保存在Cache中下

Public Function GetCacheEntryInfo(ByVal hWnd As Long, ByVal lpszUrl As String) As Boolean Dim dwEntr...
  • greystar
  • greystar
  • 2004-10-20 12:35:00
  • 1313

(转)pb+api实际应用

1、利用Api函数计算Windows从启动后所运行的总时间 Function long GetTickCount()  Library  "kernel32.dll"  //获取windows从启动开...
  • yyoinge
  • yyoinge
  • 2011-04-18 10:58:00
  • 4831

VB.Net刷点击

如何能够快速的增长博客的点击量呢~ 我用的是WebBrowser 控件,访问要刷点击的文章。定时器定时刷新,同时清除本地的cookie。就可以实现刷点击啦。 Public webBrowNum A...
  • u013162930
  • u013162930
  • 2015-09-10 10:42:23
  • 671

判断URL是否在IE缓存中,并仅删除该URL。

(声明:魏滔序原创,转贴请注明出处。) 判断URL是否在IE缓存中,并仅删除该URL,源码如下:Option ExplicitPrivate Declare Function GetUrlCacheE...
  • Modest
  • Modest
  • 2006-10-17 17:31:00
  • 2467

Internet技巧两则

Internet技巧两则pzhan.eb.cn一、判断某一个连接是否保存在Cache中    在使用Microsoft IE在网上冲浪时,IE会把你浏览过的网页保存在Cache中以便你可以脱机浏览。下...
  • pzhan
  • pzhan
  • 2007-01-29 14:36:00
  • 563
收藏助手
不良信息举报
您举报文章:如何从URL取得其在Internet Cache中的文件名(vb实现)
举报原因:
原因补充:

(最多只允许输入30个字)