Question

教我写一个VB代码 清除IE缓存的

首先谢谢各位了。
生成exe程序，文本框一个，按钮一个。
文本框只能输入数字1到6000之间的数字。
在文本框中输入数字X，点击按钮开始，每隔X秒钟自动清理一次IE的缓存cookies。直到关闭应用程序。
需要完整的代码和详细的解释说明。再次谢谢，添麻烦了

Answer 1

Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = Val(Text1)
End Sub

Private Sub Form_Load()
Text1 = 60000
End Sub

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

'还要天加个 Timer 控件
这是 IE 清理文件的的说明

清除Internet临时文件
RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8

清除Cookies
RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 2

清除历史记录
RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 1

清除表单数据
RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 16

清除密码
RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 32

清除上述全部项目
RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 255

清除上述全部项目，以及IE7中使用的加载项所保存的各种数据
RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 4351

追问

谢谢你。不过有一点问题。就是清除一次缓存以后，弹出对话框，说run-time error 53 file not found 。请问这个是什么问题？谢谢你

追答

你再试试 代码 应该没得错误 我试过

追问

恩，谢谢你。好了。昨天可能是我试的时候还有别的代码出问题的。
再问一下：可以让工作的时候任务栏不出东西来嘛？就是那个正在删除什么什么的，，，那个东西不要看到。安静的工作就可以了。谢谢

追答

Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = Val(Text1)
End Sub

Private Sub Form_Load()
Text1 = 60000
End Sub

Private Sub Timer1_Timer()
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 4351", vbHide
End Sub

Answer 2

这个完全可以百度到代码~~如果你还是不会可加我百度HI

追问

还是找不到适合我条件的。能麻烦你一下吗？谢谢

不会用百度hi。呵呵、。。、麻烦你了