返回列表 发帖
  1. Dim fso
  2. Set fso = CreateObject("Scripting.FileSystemObject")
  3. Dim tempfolder
  4. Const TemporaryFolder = 2
  5. Set tempfolder = fso.GetSpecialFolder(TemporaryFolder)
  6. 'Wscript.Echo tempfolder

  7. Set WshShell=Wscript.CreateObject("Wscript.Shell")
  8. Set WshSysEnv=WshShell.Environment("Process")
  9. 'Wscript.Echo WshSysEnv.Item("SYSTEMROOT")

  10. path=WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\cache")

  11. path1 = path & "\Content.IE5"
  12. inipath = path & "\desktop.ini"

  13. str_cmd1 = "cmd.exe /c del /f /q /ash """ & inipath & """"
  14. str_cmd = "cmd.exe /c del /f /q  """ & path1 & """"
  15. WshShell.run str_cmd1,0
  16. WshShell.run str_cmd,0
  17. Wscript.sleep(1)
  18. WshShell.run str_cmd,0
复制代码
以上代码写得很难看. 不过是我自己一直在用的.

另存为 clean.vbs

  是清空缓存的.
天下无不散之筵席.

世界之窗浏览器开发计划

TOP

返回列表