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 "
有了这个清除缓存的方法,也许你接到 使用
WebBrower控件的用户给你的电话都少很多了!