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

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没找到的原因,它将被显示在随后的的方括号内。
Visual Basic动画编程技术 Visual Basic环境下Video/ Audio压缩数据流播放技术 Visual Basic设计多媒体应用程序 Visual Basic影音控制 Web动画图像分解在VB动画设计中的应用 播放 .flc 动画 -VB资料 播放 AVI -VB资料 播放MP3文件 -VB资料 播放背景音乐 -VB资料 播放声音文件 -VB资料 播放资源文件文件中的声音-VB资料 不用ActiveX控件也能播放声音文件-VB资料 VB创建动态图标 电影结束画面的卷动效果-VB资料 二进制操作截取VCD片断 -VB资料 非常VB测声卡 关闭屏幕保护功能,改变屏保等待时间 -VB资料 VB获取桌面窗口图象 红色警戒&amp;终级动员令-VB资料 检查是否安装声卡 -VB资料 将 .flc 动画档放在某一个 hWnd 之中播放 -VB资料 截取屏幕图像-VB资料 开机,自动更换墙纸 -VB资料 控制PC喇叭 -VB资料 利用VB测声卡 利用VB进行多媒体程序设计初步 利用Visual Basic设计多媒体应用程序 满屏播放AVI文件-VB资料 平铺贴图背景 -VB资料 破解WINDOWS屏幕保护密码 -VB资料 巧用VB编程使XMPLAYER自动播放VCD 求助!连接数据库问题? VC.NET和VC6.0的语法差别大吗? 图像处理和计算机视觉方面有什么牛公司嘛? 高分求服务器c#向客户端javascript传递数据的各种不同方法!!! 用过C196开发196KC/KB的请进,谢谢 我用MFC编写了一个ActiveX控件,如何实现安全接口? 如何实现 XP 中目录窗口左边那种菜单 有关界面设计的两个问题? drawString时怎样规定一个区域,在这个区域内的文字显示,超出的不显示 急!在线等!Excel文件导入的问题。找不到可安装的ISAM 结识搞PHP的朋友 关于cell组件 郁闷当中,谁能给个用vb做DLL然后在DLL中增加数据库记录,在asp调用的例子。 singleton模式实现的问题 100分 谁讲一下定点数和浮点数的区别 急急急.请各位大虾帮帮忙啊! 請問語句的意思,謝謝 (Oracle8i)以SYSMAN登录控制台 斑竹9我! 求教高手!!!TEXTBOX与DATAGRID的问题 求助!关于用74LS181模拟8位机的资料!(散分啦,小弟急用啊!) 我的WINDOWS2003的DIRECTX 3D功能用不了,为什么? 如何用命令来修改设置计算机的ip,网关和dns等内容 不知道到那里问,借个人气了 托架的图标 散分! 如何建立一个这样的数据窗口? 上次未解决的问题(附源程序,及时结贴)(输入地址时http://ip/default.asp能正常使用,但是用http://ip则只能显示首页) 这个分页查询的SQL语句有什么问题?高分求教!!! 怎样求一个集合的子集? 我应该怎么做(项目经理请进,至少代表全国大部分公司的问题),一个年轻软件开发人员的问题 zzzzzzzzzzzzzzzzzzzz 高手指点迷津,如何更新数据库里的image字段 算法问题,再请教各位高手! 急急急,有关classpath 急!如何把picturebox中的内容保存成图片呢! Web Service中怎样验证身份? Web Service性能测试,欢迎评论,来者有分! 散分! 数据类型转换 ColdFusion的语言 - CFML win2003安装后,每个一秒种读一次盘是否正常 各位高手,最近在使用MASK PRO插件时碰到一个问题 x86汇编新手 星期六了,我还在工作....大家来帮忙看看。....很简单的问题 怎样在注册表里删除OFFICE 数据库不同,sql语句也有限制吗? 我在使用化境上传组件时碰到的问题,希望大家帮着看看,解决一下,高分求助 listview中的item能否变灰,也就是使某些项不能选 高分求各位高手急求!!!MP3问题 我的2k(PRO)我的电脑打不开,控制面版也打不开,其余的一切正常。这是为什么? 无水cacl2可以吸收什么气体或其他的 测定气体摩尔体积中的一个小问题为什么氢气的体积是 :液体量瓶中的液体体积-注入硫酸的体积?排出多少液体不就是氢气体积吗,为什么还要减去硫酸的体积?(1) 记录实验室的温度和压强 什么是核辐射?核辐射的定义? 无水CaCl2是干什么用的? 壁虎脚毛上的静电从何而来? 核辐射的现象的影响以及含义 我国最大的海峡是A. 台湾海峡 B. 渤海海峡 C. 琼州海峡 外星人吃饭吗 风( )( ),马( )( )的三子词语()里是叠词 交易性金融资产、持有至到期投资和可供出售金融资产之间的区别是什么? 地蛇子有何作用? 用唐维波三子写诗句? 核辐射元素来自地球 为什么对人有影响 蛇对人类有什么用处 用唐微波三子写诗句? 核辐射会存在于什么物质上````比如``水```空气````或有机物? 核辐射是什么? 一个西瓜,切3刀(必须切透),切完是4块,吃完剩五块皮,问如何下刀?西瓜皮也算一块 核辐射由那些物质构成? 核辐射是什么意思 怎么切一个西瓜?切三刀,有四块,吃完有五块皮? 核辐射能在物体上停留多久买了日本产的袜子,地震之后买的,穿过最多三四次.不确定有没有受核辐射污染,还有买了日本的化妆品,也是地震之后,有牌子的,用了一次,后来想想还是不敢用了,请 宇宙大爆炸理论是谁提出来的? 怎样用一把尖刀将一个西瓜切成4块,吃完西瓜后还剩5块西瓜皮. 马六甲海峡位于什么地区?说出其位置重要性 为什么切开西瓜会流水?记得初中刚学生日时老师说是西瓜流出来的水是细胞液,可我觉得细胞那么小,尺寸就算相对刀刃的厚度也根本不是一个数量级的,怎么可能就那么巧就被刀刃切开了呢? 高压大电解电容负负相串做无极性电容高压大电解电容器负负相串做无极性电容用会出现什么问题吗? 马六甲海峡位于. 以下别称与城市对应不正确的是:A.泉城——济南B.羊城——广州 C.荣成——重庆D.日光城——拉萨 脱氨基和转氨基过程在那个细胞器或哪些细胞器里进行? 质量为3.5*10的六次方毫克的物体可能是 A一头牛B一只鸭C一只鸡蛋D一粒米,麻烦啦, 求中国城市别称大全(例如济南叫泉城) 钳形表怎么查电流 英语翻译 1.2乘以10的6次方毫克可能是 a 一只羊 b 一头牛 c 一只鸡 d 一只蜜蜂 你知道下列城市的别称吗?选一选:水城、春城、冰城、日光城、瓜城、泉城、煤城、石头城.1南京()2抚顺()3昆明()4济南()5哈尔滨()6拉萨()7吐鲁番()8苏州() 英语翻译tired of drifting?是不是最好的表达? 质量为1.5乘已10的7次方毫克的物体可能是什么 下面的别称各指哪个城市? 春城—— 花城—— 山城—— 泉城—— 蓉城—— 拱形节水骨架护坡转角遇到半锥体应该怎么做?坡度比较坡,半锥体应该是浆砌片石还是干砌片石厚度怎么确定? 下面物体中,质量最接近1.0×10的4次方毫克的是 化学中怎么判定水溶液中的离子共存 请问锥体束是? 气体摩尔体积测定的装置是什么 如何判断“离子在溶液中大量共存?”“离子在强碱性溶液中可以大量共存?求老师~要会考了,我还是搞不懂TAT 截得的小锥体的体积与已知锥体的白锥体的体积比等于相应高的比吗 2010年9月、我踏进了中学的门槛、一切都适应了、可就是历史地理不好、几乎没有一节课认真听过老师讲课、生物马马虎虎、真的很想学好它们、可就是没兴趣、、对于历史、我实在不想知 为什么光不会照到UFO? 关于锥体束、锥体束征、牵张反射之间关系的疑惑.锥体束是牵张反射易化作用的一条路径,牵张反射的结果便是肌张力的升高;而锥体束受损,出现锥体束征,上运动神经元对下运动神经元的抑 我是一名高一女生,很喜欢生物,但数学感到很吃力,理化一般,文科喜欢地理,但感觉历史有些吃力,该怎么 汉朝三宫遗址 锥体是如何定义的? 外星人喝水吗?拜托了各位 谢谢 写不同的词并造句 青藏铁路沿线地区的主要支柱产业是畜牧业,说说那里发展牧业的有利条件有哪些 作为一名中学生,可以从哪些方面提高自身素质呢?要英语的作文 建筑施工为什么要设护坡道?你怎样建筑施工? 世界上什么地方的气候夏天凉爽干燥?如题.是不是不存在?相对的,说来听听也可以干燥是指的没有我们夏天所必须忍受的“闷”的感觉,以及没有身上总被汗水包围的感觉 气体摩尔体积的测定实验中,若测出1mol体积比该温度和压强下的理论值偏高的原因是 A未冷却至室温 B反应速率太快 C未进行抽气操作 D装置气密性不好问:为什么B、反应速率太快也会使测定 狄丽丽丽丽丽丽丽是哪首歌 日本拟将钓鱼岛海域列入重点防御“灰色“刀锋战士”将面临检方提出的两项新指南非副总统希望更多中国企业参与非洲交巴基斯坦称美无人机5年来打死两千余人复旦投毒案嫌犯被控以投毒方式故意杀人中储粮人士:目前国内进口菜籽油基本上中国成为韩国中小企业最重要海外市场韩国高官吁国际社会为实现半岛无核化加美国能源部长:美中应加强清洁能源合作南非副总统希望更多中国企业参与非洲交中国商务部敦促欧盟执行WTO中欧紧固中国外长敦促日方严肃对待阻碍中日关系浙江省第六届金锤奖结果揭晓 300多国际晚班车:驻韩美军邮局成\"毒品仓中国外交官在朝鲜参加支农活动埃及穆兄会又一高级领导人被捕杨澜提问郎朗被指语意不善 晒合影澄清伊拉克两起自杀式袭击致21人死亡日本称福岛核事故泄漏的放射性铯污染周韩国议员结束对开城园区考察回国 未与北京警方破获“10.28”暴力恐怖袭办完手头案子 才走上手术台传郝伟将辞任女足 加盟恒大手机、iPad“宠”坏了眼睛 每天户7月第一周“华商头条”铜川热点新闻排纪念全民族抗战爆发七十八周年暨《伟大过敏性鼻炎高发季将至 你做好预防了吗希腊新财长上任6月天天是“蓝天”,爽!鸟的家园18部动画电影暑期扎堆上映发放轮椅 拐杖等多种方式关爱残疾人他能找到心仪的女孩吗?俄亿万富豪长子修摩托发生口角 叫来老乡打伤店主陷阱出没 请当心游完西藏 欲骑摩托再逛新疆 70岁前激情夏日 音乐与烤肉更配哦全国少年乒球赛上展风采孙可暂时回舜天户县获首批“陕西省食品安全示范县”西京学院入选“全国高校毕业生就业工作全国少年乒球赛上展风采
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘