按键精灵新建一键清理系统垃圾文件源码

运行环境：分辨率：1440x900 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：9.50.11632

@654303575 2013/2/19

//受“在桌面上建立一个备忘录并定时提醒”脚本的开导，制作出本脚本  
Set objShell = CreateObject("WScript.Shell")  
x = objShell.SpecialFolders.Item("desktop")  
//↑取得桌面路径  
set fso=CreateObject("Scripting.FileSystemObject")  
const forwriting=2  
const forreading=1  
set myfile=fso.createtextfile(x & "\一键清理系统垃圾文件.bat")  
//↑写一个TXT到桌面  
myfile.writeline("@echo off")  
myfile.writeline ("echo 正在清除系统垃圾文件，请稍等......")  
myfile.writeline("del /f /s /q %systemdrive%\*.tmp ")  
myfile.writeline("del /f /s /q %systemdrive%\*._mp")  
myfile.writeline("del /f /s /q %systemdrive%\*.log")   
myfile.writeline("del /f /s /q %systemdrive%\*.gid")   
myfile.writeline("del /f /s /q %systemdrive%\*.chk")   
myfile.writeline("del /f /s /q %systemdrive%\*.old")   
myfile.writeline("del /f /s /q %systemdrive%\recycled\*.*")   
myfile.writeline("del /f /s /q %windir%\*.bak")   
myfile.writeline("del /f /s /q %windir%\prefetch\*.*")   
myfile.writeline("rd /s /q %windir%\temp & md %windir%\temp")   
myfile.writeline("del /f /q %userprofile%\cookies\*.*")   
myfile.writeline("del /f /q %userprofile%\recent\*.*")   
myfile.writeline("del /f /s /q "&""""&"%userprofile%\LocalSettings\Temporary Internet Files\*.*"&"""")  
myfile.writeline("del /f /s /q" &""""&"%userprofile%\LocalSettings\Temp\*.*"&"""")  
myfile.writeline("del /f /s /q "&""""&"%userprofile%\recent\*.*"&"""")  
myfile.writeline("echo 清除系统垃圾文件完成！")  
myfile.writeline("echo. & pause ")  
//↑这十九行就是你写进TXT的内容  
MessageBox "“一键清理系统垃圾文件”软件制作已完成"  
//↑提醒制作已完成  
//脚本结束