说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB判断文件是否在IE的缓存中

HTML文档下载 WORD文档下载 PDF文档下载
VB判断文件是否在IE的缓存中
判断一个文件是否在Internet Explorer的缓存中

  当你建立一个联到网上文件的快捷方式时,你可能需要知道它是否已经被访问过,于是你就可以适当地改变链接的颜色等等。这则小技巧
就是告诉你如何判断一个文件是否在Internet Explorer的缓存中,以满足你的须要。
  新建一个项目、添加一个模块。将以下代码写到模块里:

Private Const ERROR_INSUFFICIENT_BUFFER = 122
Private Const eeErrorBase = 26720

Private Type FILETIME
  dwLowDateTime As Long
  dwHighDateTime As Long
End Type

Private Type INTERNET_CACHE_ENTRY_INFO
  dwStructSize As Long
  lpszSourceUrlName As String
  lpszLocalFileName As String
  CacheEntryType As String
  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 String
  dwReserved As Long
End Type

Private Declare Function GetUrlCacheEntryInfo Lib "wininet.dll" _
Alias "GetUrlCacheEntryInfoA" (ByVal sUrlName As String, _
  lpCacheEntryInfo As Any, lpdwCacheEntryInfoBufferSize _
  As Long) As Long

'用来报告API产生的错误:
Private Const FORMAT_MESSAGE_ALLOCATE_BUFFER = &H100
Private Const FORMAT_MESSAGE_ARGUMENT_ARRAY = &H2000
Private Const FORMAT_MESSAGE_FROM_HMODULE = &H800
Private Const FORMAT_MESSAGE_FROM_STRING = &H400
Private Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
Private Const FORMAT_MESSAGE_IGNORE_INSERTS = &H200
Private Const FORMAT_MESSAGE_MAX_WIDTH_MASK = &HFF
Private Declare Function FormatMessage Lib "kernel32" Alias _
  "FormatMessageA" (ByVal dwFlags As Long, lpSource As Any, _
  ByVal dwMessageId As Long, ByVal dwLanguageId As Long, _
  ByVal lpBuffer As String, ByVal nSize As Long, Arguments _
  As Long) As Long

Public Function WinAPIError(ByVal lLastDLLError As Long) As String
Dim sBuff As String
Dim lCount As Long

  '返回与LastDLLError相关的出错信息:
  sBuff = String$(256, 0)
  lCount = FormatMessage( _
   FORMAT_MESSAGE_FROM_SYSTEM Or FORMAT_MESSAGE_IGNORE_INSERTS, _
   0, lLastDLLError, 0&, sBuff, Len(sBuff), ByVal 0)
  If lCount Then
   WinAPIError = Left$(sBuff, lCount)
  End If

End Function

Public Function GetCacheEntryInfo(ByVal hWnd As Long, _
  ByVal lpszUrl As String) As Boolean

Dim dwEntrySize As Long
Dim lpCacheEntry As INTERNET_CACHE_ENTRY_INFO
Dim dwTemp As Long
Dim lErr As Long

  If (GetUrlCacheEntryInfo(lpszUrl, ByVal 0&, dwEntrySize)) = 0 Then
   lErr = Err.LastDllError
   If (lErr <> ERROR_INSUFFICIENT_BUFFER) Then
     '预料外的错误。须要显示出错原因:
     Err.Raise eeErrorBase + 1, _
      App.EXEName & ".mCacheEntry", WinAPIError(lErr)

     GetCacheEntryInfo = False
     Exit Function
   Else
     '这是预料中的错误
     GetCacheEntryInfo = True
   End If
  End If

End Function


在窗体上添加一个Command和一个Text。然后加入这些代码:

Option Explicit

Private Sub Command1_Click()
On Error Goto ErrorHandler
  '检查Text中的URL地址是否出现在缓存中:
  If (GetCacheEntryInfo(Me.hWnd, Text1.Text)) Then
   MsgBox "URL In Cache.", vbInformation
  Else
   MsgBox "URL Not In Cache.", vbInformation
  End If

Exit Sub

ErrorHandler:
 MsgBox "URL Not in Cache [" & Err.Description & "]",vbInformation

End Sub

  运行,在Text中键入一个URL地址(比如,http://www.vbaccelerator.com/index.html)当你按下Command按钮时,就会得到一则消息报告URL在不在缓存中。如果Windows给出了URL没找到的原因,它将被显示在随后的的方括号内。
如何在全屏幕显示一个AVI文件-Delphi资料 删除文本文件中的多余空格-Delphi资料 实现Hint的分行提示-Delphi资料 实现应用程序的文件拖放功能-Delphi资料 死循环的控制权转让-Delphi资料 添加桌面快捷-Delphi资料 统计中英文字个数-Delphi资料 为 应 用 程 序 添 加 口 令-Delphi资料 应用软件加入全面的功能权限控制-Delphi资料 用Delphi编写安装程序 用Delphi实现超级链接 用Delphi实现子目录级的文件查询 用Delphi自制英语复读机 用DEPHI为应用软件建立注册机制-Delphi资料 优化delphi5.0秘籍大曝光 元件的handle的建立-Delphi资料 元件卷动的改进-Delphi资料 在delhpi程序中获取网络资源信息-Delphi资料 在Delphi中操作快捷方式 在DLL中实现文件的拷贝-Delphi资料 在Report Builder中增加自定义函数-Delphi资料 在Win2000 Beta下安装Delphi 在Word插入字符-Delphi资料 注册表中几个对编程特别有用的地方-Delphi资料 资源文件在DELPHI中的使用 自制替换指定串函数-Delphi资料 API函数快速入门API函数简介-VB资料 API函数快速入门怎样在VB中声明和使用API函数 API函数在VB开发中的应用 API函数在VB中的应用 API实现完美的图片出现效果-VB资料 如何可以知道访问我的网站的用户来自哪里? 关于SQL的问题 这对话框我如何去掉 asp.net 能否运行在Solaris系统下,参与者有分 c#请求援助 int a 除以 int b 取他们的余数用C#该怎么写啊?谢谢 求救!显示后台数据,在线等待!等…… jsp中的数据库问题,求教!!急 刚学数据库,弱智问题,高分赠送! 这个查询怎么写? 关于表生成文本文件遇到的事情,急 InstallShield Professional Standard Edition 6.30 英文版的下载(高分:200) 寻一男友:发展方向——>老公 我用serv-u,客户端访问为什么没有用户登陆窗口啊? 脚本验证datetime要准确点的 请问,想做出象Protel(Tango)作图效果的程序,如何下手呢? win API函数的区别(win xp 和win 2000)高难度!! 那儿有winsock.pbl 进入系统的速度变慢????在线等待 当 AllowPaging 设置为真并且选定的数据源不实现 ICollection 时,AllowCustomPaging 必须为真,并且 ID 为 DataGrid1 的 Data 怎么提高搜索速度? 如何printScreen并获得这个图片? 如何用SQL格式化一个IP地址?我得到的IP地址是一串数字,想显示为255.255.255.255那样的样子。 为什么在客户端出现Interface not support的错误? help,关于文本显示! SOS 急急急 请教几个概念? 如何打开一个用winexec打不开的可执行文件。 进入系统的速度变慢????在线等待 请大家谈谈目前比较经典软件,共享的,免费的,大公司的,个人的,国内的,国外的,不分行业等等,只要是经典都可以,请大家畅谈! 欢迎踊跃讨论!如何使得delphi编的exe或dll最小! 基于对话框的打印,打印一块区域!! 一个简单的链问题是输入一个结点请高手在助我 急问!在access中什么字段类型能容纳很多文本?就类似sqlserver中的text!!! 最近有个工程需要用串口(用MSComm控件)来接收ASCII字符信息,怎么用啊!?谢谢! VC++6.0中如何通过Socket从Client端向Server端传送文件? WinCE.NET 系统上如何拷屏 请问如何选择录音的输入设备? 引用“&”和union有没有区别啊? 本版的“跳楼大放送,今年高程、系分模拟试题及备考指南、考前培训笔记、心得,保证通过率。 (romantic999 ) ”你们打的开吗?我打不开 哪里有 车辆管理系统 的资料 请教:(在程序中)如何判断我的系统是否安装SQL Server数据库。如果安装,如何获取SQL Server的版本信息?谢谢! 小问题 请教 将RS232输入的信息转成键盘输入??? 关于表生成文本文件遇到的事情,急 西北人在外(北京,上海,深圳,广州等)打工的兄弟们进来聊聊。 数组问题 急~!!! 如何获得多选框是否被选中 怎样将2003-3-16的字符串串换成时间值 jdom中问题 刷涂料用的滚筒刷子有哪几种类型? 其实在我们的生活中,有着许许多多的爱.同学之间的爱,老师之间的爱,朋友之间的爱...其中,最伟大的就是母爱了,请问母爱都体现在什么地方了?《妈妈,谢谢你》这骗作文怎么写才能得做高分(5 in your line of...You cant interpret the letter in your line of argument.It should be read in its own right.请问这两句话翻译成中文的意思是什么?in your line of argument这部分的分析?in one's line of有这个词组吗? 一棵树各年的成长情况用什么统计图是什么统计图 刷涂料用的滚筒刷子有哪几种类型? 什么事情最能体现母爱 下面是林场育苗基地树苗情况统计图.⑴柳树有2500棵,这些树苗的总数是多少棵?杨树占33% 柳树占25% 松树占15% 柏树占10% 槐树占17%⑵松树和柏树分别有多少棵?⑶杨树比槐树多百分之几? 求作文:国庆见闻,不少于500字,求大家了啊啊啊啊啊啊啊啊啊啊,我现在初一,求大家了啊啊啊啊啊啊啊啊 关于母爱的事件 求有关于《我的初一生活》的作文,最好是自己写的 初一五十词短文 谁有 急求 啊啊啊啊啊啊啊 石家庄身边的新变化作文征文要以“身边的新变化”、“身边的新现象”、“身边的文明故事”、“未来的新发展”、“自己的幸福感悟”为主题用文字描述城市的新变化和新发展,以及对幸 一个80人的旅游团去保定白洋淀游玩,请你设计一个租船方案.租船标准:8人快艇 240元4人渔船 100元30人观赏船 450元 黑金鱼开过滤泵肚子上会有气泡 金鱼是新买的 水是没困过的自来水 怎么破? 求石家庄暴雪作文有高人来写一篇石家庄暴雪作文吗? 甲乙两人同时从AB两地相向而行,在离A地300米处第一次相遇,相遇后,两人继续走,走到对方的出发点后立即返回,离B地500米处,两人再次相遇,问第三次相遇离A地多远?(上面写不下了,写在下面.) 过滤泵内置的还是外置的好?为什么? 以变化为主题初二作文 辩论赛四辩总结陈词,规划未来更重要. 一条红领巾的底长是100厘米,高是33厘米,做400条红领巾需要红布多少平方米? 向石灰水中加过量的碳酸钠溶液,反应后溶液ph是碳酸钠ph么我认为不是,毕竟里面还有NAOH,但老师是这样讲的,是老师讲错了么 沉默非金辩论赛的总结词怎么说啊?我是四辩,近期需要啊! 安全帽标R代表什么? 体育通讯稿 小学老师培养应侧重与全科化还是专业化 辩论赛 四辩小结 急求 明天就要比赛了啊T我们是正方,说的是专业化,急求高手指点一二啊.不知道该怎么写四辩的小结啊,还有,我们是正方 如果有很 求伴你成长六年级下第九课假如给我三天光明的全部答案,急!明天要交滴!速度啊大神们!求! NOIP2011普及组的题目会太难吗? 【我的初一生活】作文怎么写.买噶,我要自己写早就写完了,关键是不会写 爸爸的年龄是红红的4倍,红红比爸爸小27岁,爸爸和红红各多少岁?解方程题解方程 dot line report是什么意思 医生通过听听诊器了解病人心肺情况工作情况,这个例子说明声音具有_________的功能? 让什么让什么作对偶句 例如:让理想与风筝齐飞,让希望与春天同在! finish line dot 5.1怎么样 医生通过听听诊器了解病人心肺情况工作情况,这个例子说明声音能医生通过听听诊器了解病人心肺情况工作情况,这个例子说明声音能_________? 如何放飞风筝 尊师爱师的故事 人民公园100人以上的团体门票是按原价的五五折优惠的.五年级160人去公园游玩,买门票一共花去528元.每张门票多少元 最能体现出母爱的一件事今天11点前要答案!不需要给我作文 尊师故事我眼豪富火堆四哦扶绥 人民公园的杜鹃花盆数是长春公园的4倍,如果从人民公园搬出188盆杜鹃花放入长春公园则人民公园的杜鹃花盆就比长春公园少25盆,两个公园原来各有杜鹃花多少盆. 位趁东风放纸鸢的上句 Our teather often asks us_(not cut)in line when we're waiting for a bus proteus 原理图绘制问什么它自己会关掉 几句话的字谜是什么 wait in line 的告示牌用英语怎么写?you should keep__________clean.紧急!wait in line意思为排好队 proteus中蓝色小三角形是什么,在哪找? noip2011普及组复赛浙江所有人的成绩 PASCAL NOIP1996普及组复赛第二题2.输入三个自然数N,i,j (1 盘点2009作文(班级)编一个故事(真实) noip2011普及组复赛成绩什么时候出啊 PASCAL NOIP1997复赛普及组第二题2.将1,2,••••••,9共9个数排成下列形态的三角形.(30%) a b c d e f 盘点2009国家大事 这方面的高中作文要800字左右,围绕国家大事的 紧急!NOIP2011普及组复赛,复测如果原来错的批下来还是错的,今年是国家同批,去年和前年我参加的是省里批的,如果错的还是错了要扣10%的分数.今年扣不扣?不懂的别来说. I m on line,so you take your heart on your breast. 2009中国大事件盘点(可用于作文材料)答的好的后加分 爸爸的年龄是红红的4倍,红红比爸爸小27岁,爸爸和红红各多少岁? in your line of什么意思 过年想自己用滚筒把家里粉刷一下,用的油漆还是涂料,········希望可以详细一点,我一点也不懂. 有关母爱的事件 要真实的! line of your email 媒体揭“神医”胡万林江湖路:曾在新疆纽约华裔社区发生凶杀案 4名儿童被刺美国安局:奥巴马并未参与讨论监听默克美国国安局:奥巴马并未参与讨论监听默马英九数度否认两岸只经不政 重申先经中国不足3成人为城镇户籍 超7成农民北京最牛违建被疑停工 城管称楼体结构北京今日将有中度霾 局地能见度不足5阿尔及利亚宣布在其南部发现大油田商业养老模式存瓶颈 难获医保定点资格非正式出口民调显示执政联盟候选人胜出三部门:对芦山地震受损严重的企业将免官员:领导干部出问题犯错误原因之一是中国海军实兵演习遭外国舰机跟踪 训练国际社会热议习近平讲话:将周边外交提韩媒称中国顾客在韩免税店消费额首超韩土耳其肉夹馍“创始人”在德国去世享年洋葱涨价让印度执政党担忧 街头贩卖廉纽约华裔社区凶杀案致4儿童丧命美最大银行被罚130亿美元悉尼歌剧院走过40年美丽旅程山东15日起公布10名日本战犯山东罪潜江市人社局干部叶某违规操办升学宴被话说莆仙《烈佬传》你所能想到的全部理由云南震区巡回法庭审理灾后首例案件(图90后女孩提升自己比结婚重要云南省长李纪恒:严格管理救灾款物 禁法国向伊拉克库尔德提供第二批人道主义武警曲靖支队纸厂地震灾区救援纪实U17世青赛 中国国青79:67意大中央财政拨2.5亿元支持中西部城市社蔬菜大棚翻山越岭来到久隐深山的西藏寺日本培育出首只人工饲养海鸬鹚的幼子随笔:新样职业教育看纽约菲律宾首都发生一起城铁脱轨事故造成多联合早报:战后日本的“南进”及中国的福建莆田市城厢区实时在线监管 “管”江西南昌县8名村官侵吞国家安置房 7研究称巴西圣保罗州空气污染可能导致1中欧青少年艺术文化盛典在德举行
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘