VBA 清除 IE 缓存 - WebBrowser控件开发者必杀技！

时　间:2012-12-05 11:30:31
作　者:dbaseIIIer   ID：22003  城市：深圳
摘　要:又被人烦透了！这几天是不是天气问题？大家都用WebBrower控件来开发后，都被用户没有清除缓存而获得很多麻烦了？大伙儿都在请教我这个问题的！我先放这里大家看吧！看不懂再在群内（178517871）找师兄们，谢谢！
正　文:

的确。在百度搜过 “vba 清除 ie 缓存”。 不果。那我只好空开一下标准的方法了。

其实，我们制作 Access 应用，或者 VBA 应用，好多时候是需要在网络上存取一些不是保存在 Accdb 或 自己设计的数据库内的。通过 http 传递，我们可以创造不同的应用，包括：

1. Access （Office) 内

• 抓取网页，
• 获取总公司数据，
• 监测信息网更新，

2. 开发 前后端连接的 平台级应用，如

• 打码平台
• Access 往公司里的 Web版OA里，自动登入，自动提取数据等操作
• Access 作为本地化的 网站后台客户端

3. 开发VBA特种软件的远程操作，如 AutoCAD，CorelDraw，Visio 等

• 通过远程获取图库，
• 调用 js 获取算法的更新、动态服务器的ip地址，
• js 调用 VBA 执行 Application 内代码
• 或者把隐秘代码放在 js 里运行（本机永远没有保存），

WebBrowser 控件的确让我们偷了很多懒的方法！（怎样使用，就看其他版主的帖了！)  

1. 我们可以偷懒不用做界面，直接用html结果就好了！
2. 然后又可以调用 DOM 结构去解析文件！
3. 最好还是可以网全世界任何一个 http端提取数据！

当然，如果通信协议，和数据格式都是封闭式的，都是自己人定义的话，我还是建议使用 json 联系，好处是：

1. 数据流量，内存耗用，一定比 WebBrower 低，甚至数据流量会比XML还低！
2. 用标准的 json类操作，让你的 VBA 马上有 多层级的数据架构，也有超快速的文本解析器！
3. 加上 xmlhttp 的应用（十几年前的 2.6版-到近代好几年没有更新过的6.0）都已经能直接跟 java 服务器，php服务器，js 客户端，as3客户端 直接 交流！

言归正传，用了 WebBrowser 控件打开外面世界的页面，我们就需要清楚缓存了！方法很简单：

Sub Clear_Temp_Files()
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8 "
End Sub

Sub Clear_Cookies()
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 2"
End Sub

Sub Clear_History()
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 1"
End Sub

Sub Clear_Form_Data()
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 16"
End Sub

Sub Clear_Saved_Passwords()
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 32"
End Sub

Sub Clear_All()
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 255"
End Sub

Sub Clear_Clear_Add_ons_Settings()
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 4351"
End Sub

使用的时候记得适当的处理，不要把需要的 Cookie 都删掉！

或者一次性执行都可以：

Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 1 "
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 2 "
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8 "
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 16 "
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 32 "
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 255 "
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 4351 "

开发者你们好，这是地球信息思维开发者 dbaseIIIer （QQ325613888) 

更多的 Access/VBA 互联网交互技术，可以参考 Accessoft.com 内部栏目  互联网技术栏目

更多的思维在  新浪微博   Access贴吧  VisualPHP贴吧