[系统相关] [分享]垃圾清理v3.5 小俊十二年升级四次 新代码在8楼

qq692172929

Echo off
Title /
mode con cols=48 lines=18
Color a
Cls
If exist d:\SnJun_log goto qllj
If not exist d:\SnJun_log md d:\SnJun_log
Rem By SnJun QQ:692172929  提醒:本程序有调用代码，请勿直接修改内容。推荐拷贝出去测试学

习.By:Sn_zood
Set bta=title /
Set btb=title \
copy /y %0 "%userprofile%\桌面\清理垃圾升级版.bat"
rem 判断是否复制自己到D:\SnJun_long下
If not exist d:\SnJun_log\d:\SnJun_log\清理垃圾升级版.bat copy /y %0 d:\SnJun_log\清理垃圾升

级版.bat
rem 判断是否创建开始菜单
If not exist "d:\SnJun_log\d:\SnJun_log\清理垃圾升级版" MD "%userprofile%\「开始」菜单\程序\

清理垃圾升级版"
Title \
rem 添加第一次运行如期并创建LOG
Echo/ 第一次运行时间: %date% >d:\SnJun_log\清理垃圾历史记录.log
rem 复制自己到开始菜单
copy /y %0 "%userprofile%\「开始」菜单\程序\清理垃圾升级版\清理垃圾升级版.bat"
rem 加载卸载BAT
more +472 %0>>d:\SnJun_log\卸载.bat&copy /y "d:\SnJun_log\卸载清理垃圾升级版.bat" "%

userprofile%\「开始」菜单\程序\清理垃圾升级版\卸载.bat"
more +493 %0>>"d:\SnJun_log\说明.txt"
Msg * /TIME:5 第一次运行程序加载‘清理垃圾升级版’组件完成....
goto ttex

:ttex
Echo stablish to install history。。。
goto qllj

:qllj
::::运行程序的时间统计
Set _time_start=%time%
Set /a hour_start=%_time_start:~0,2%
Set /a minute_start=1%_time_start:~3,2%-100
Set /a second_start=1%_time_start:~6,2%-100
Goto zzzcd


::::::收集信息---计数::::::
:zzzcd
cls
Set /a tmpFileCounts=0
Set jsxs=echo  已经发现 %tmpFileCounts% 个临时文件
Set jsbt=title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...
Echo 正在收集临时文件信息...&ping 127.0.1 -n 2 >nul 2>nul
For /f "delims= tokens=*" %%A in ('dir /b /s /a "%temp%\*.*"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

RD %windir%\$hf_mig$ /Q /S
Set /a tmpFileCounts+=1
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "%temp%\*.*"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "%windir%\KB*.log"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "%systemdrive%\*.tmp"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "%systemdrive%\*._mp"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "%systemdrive%\*.log"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "%systemdrive%\*.gid"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "%systemdrive%\*.chk"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "%systemdrive%\*.old"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "%systemdrive%\recycled\*.*"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "%windir%\*.bak"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "%windir%\prefetch\*.*"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "%windir%\LastGood.Tmp"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "%userprofile%\cookies\*.*"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "%userprofile%\local Settings\temporary 

internet files\*.*"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "%userprofile%\local Settings\temp\*.*"') do 

(
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "%userprofile%\recent\*.*"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "%systemRoot%\inf\*.pnf"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "%SystemRoot%\Offline Web Pages"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "%SystemRoot%\Prefetch\*.*"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "%SystemRoot%\minidump\*.*"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "c:\recycler\*.*"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "d:\recycler\*.*"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "e:\recycler\*.*"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "f:\recycler\*.*"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "g:\recycler\*.*"') do (
 Set /a tmpFileCounts+=1
 cls
)
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

For /f "delims= tokens=*" %%A in ('dir /b /s /a "h:\recycler\*.*"') do (
 Set /a tmpFileCounts+=1
 cls
)

For /f "delims= tokens=*" %%A in ('dir /b /s /a "%windir%\History\*.*"') do (
 Set /a tmpFileCounts+=1
 cls
)


:::::ps+3
:::::%SystemRoot%\inf\InfCache.1
:::::%systemdrive%\AUTOEXEC.BAT
:::::%systemdrive%\infcache.1
If exist %SystemRoot%\inf\InfCache.1 Set /a tmpFileCounts+=1
If exist %systemdrive%\AUTOEXEC.BAT Set /a tmpFileCounts+=1
If exist %systemdrive%\infcache.1 Set /a tmpFileCounts+=1

Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...
Set shenys=%tmpFileCounts%
cls

Title 共发现 %tmpFileCounts% 个临时文件
echo 共发现 %tmpFileCounts% 个临时文件,收集完毕.

Set _time_end=%time%
Set /a hour_end=%_time_end:~0,2%
Set /a minute_end=1%_time_end:~3,2%-100
Set /a second_end=1%_time_end:~6,2%-100
echo %time%
echo %hour_end%
echo %minute_end%
echo %second_end%
if %second_end% lss %second_start% (
    Set /a second_end=%second_end%+60
    Set /a minute_end=%minute_end%-1
)
Set /a second=%second_end%-%second_start%

:: 计算分钟数
if %minute_end% lss %minute_start% (
    Set /a minute_end=%minute_end%+60
    Set /a hour_end=%hour_end%-1
)
Set /a minute=%minute_end%-%minute_start%
cls
:: 计算小时数
if %hour_end% lss %hour_start% (
    Set /a hour_end=%hour_end%+24
)
Set /a hour=%hour_end%-%hour_start%&cls
:fzcw
cls
Set #=###############################################
echo %#%
echo  共发现 %tmpFileCounts% 个临时文件,用时:%hour%时%minute%分%second%秒
echo %#%
if %tmpFileCounts% LEQ 10 goto qsd
if %tmpFileCounts% LSS 50 echo 垃圾文件等级：★☆☆☆☆☆☆☆☆☆&echo %#%&goto cgl
if %tmpFileCounts% LSS 150 echo 垃圾文件等级：★★☆☆☆☆☆☆☆☆&echo %#%&goto cgl
if %tmpFileCounts% LSS 280 echo 垃圾文件等级：★★★☆☆☆☆☆☆☆&echo %#%&goto cgl
if %tmpFileCounts% LSS 400 echo 垃圾文件等级：★★★★☆☆☆☆☆☆&echo %#%&goto cgl
if %tmpFileCounts% LSS 600 echo 垃圾文件等级：★★★★★☆☆☆☆☆&echo %#%&goto cgl
if %tmpFileCounts% LSS 900 echo 垃圾文件等级：★★★★★★☆☆☆☆&echo %#%&goto cgl
if %tmpFileCounts% LSS 1200 echo 垃圾文件等级：★★★★★★★☆☆☆&echo %#%&goto cgl
if %tmpFileCounts% LSS 1800 echo 垃圾文件等级：★★★★★★★★☆☆&echo %#%&goto cgl
if %tmpFileCounts% LSS 3000 echo 垃圾文件等级：★★★★★★★★★☆&echo %#%&goto cgl
if %tmpFileCounts% GEQ 3000 echo 垃圾文件等级：★★★★★★★★★★&echo %#%&goto cgl
echo 计算等级出错!&echo %#%
goto cgl
:cgl
echo/&echo/&echo/    N 退出
echo/    Y 清理已扫描到的临时文件
set /p qlxz=    Y/N=
if "%qlxz%"=="n" goto q
if "%qlxz%"=="y" goto ddlj
echo/ 选择错误,请重新选择！
echo/&echo/                          按任意键继续操作,放弃请直接关闭窗口！
pause>nul
goto fzcw

:qsd
Echo/ Date:%date%  Time:%time% >>d:\SnJun_log\清理垃圾历史记录.log
Echo/ 未发现临时文件,系统保护的非常好. >>d:\SnJun_log\清理垃圾历史记录.log
Echo/ %#%%#%>>d:\SnJun_log\清理垃圾历史记录.log
Msg * /TIME:5 未发现临时文件,系统保护的很好,用时:%hour%时%minute%分%second%秒.程序将自动退出

,谢谢使用！
exit

:q
Msg * /TIME:5 谢谢使用.请继续关注最新代码发布！
exit

:ddlj
cls
echo 清理系统缓存...
start "缓存清理中,请稍后..." sfc.exe /purgecache
Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...
For /f "delims= tokens=*" %%A in ('del /f /s /q "%temp%\*.*"') do (
 Set /a tmpFileCounts-=1
 cls
)
Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...

RD %windir%\$hf_mig$ /Q /S
Set /a tmpFileCounts-=1
Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...

For /f "delims= tokens=*" %%A in ('del /f /s /q "%temp%\*.*"') do (
 Set /a tmpFileCounts-=1
 cls
)
Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...

For /f "delims= tokens=*" %%A in ('del /f /s /q "%windir%\KB*.log"') do (
 Set /a tmpFileCounts-=1
 cls
)
Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...

For /f "delims= tokens=*" %%A in ('del /f /s /q "%systemdrive%\*.tmp"') do (
 Set /a tmpFileCounts-=1
 cls
)
Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...

For /f "delims= tokens=*" %%A in ('del /f /s /q "%systemdrive%\*._mp"') do (
 Set /a tmpFileCounts-=1
 cls
)
Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...

For /f "delims= tokens=*" %%A in ('del /f /s /q "%systemdrive%\*.log"') do (
 Set /a tmpFileCounts-=1
 cls
)
Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...

For /f "delims= tokens=*" %%A in ('del /f /s /q "%systemdrive%\*.gid"') do (
 Set /a tmpFileCounts-=1
 cls
)
Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...

For /f "delims= tokens=*" %%A in ('del /f /s /q "%systemdrive%\*.chk"') do (
 Set /a tmpFileCounts-=1
 cls
)
Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...

For /f "delims= tokens=*" %%A in ('del /f /s /q "%systemdrive%\*.old"') do (
 Set /a tmpFileCounts-=1
 cls
)
Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...

For /f "delims= tokens=*" %%A in ('del /f /s /q "%systemdrive%\recycled\*.*"') do (
 Set /a tmpFileCounts-=1
 cls
)
Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...

For /f "delims= tokens=*" %%A in ('del /f /s /q "%windir%\*.bak"') do (
 Set /a tmpFileCounts-=1
 cls
)
Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...

For /f "delims= tokens=*" %%A in ('del /f /s /q "%windir%\prefetch\*.*"') do (
 Set /a tmpFileCounts-=1
 cls
)
Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...

For /f "delims= tokens=*" %%A in ('del /f /s /q "%windir%\LastGood.Tmp"') do (
 Set /a tmpFileCounts-=1
 cls
)
Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...

For /f "delims= tokens=*" %%A in ('del /f /s /q "%userprofile%\cookies\*.*"') do (
 Set /a tmpFileCounts-=1
 cls
)
Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...

For /f "delims= tokens=*" %%A in ('del /f /s /q "%userprofile%\local Settings\temporary 

internet files\*.*"') do (
 Set /a tmpFileCounts-=1
 cls
)
Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...

For /f "delims= tokens=*" %%A in ('del /f /s /q "%userprofile%\local Settings\temp\*.*"') do 

(
 Set /a tmpFileCounts-=1
 cls
)
Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...

For /f "delims= tokens=*" %%A in ('del /f /s /q "%userprofile%\recent\*.*"') do (
 Set /a tmpFileCounts-=1
 cls
)
Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...

For /f "delims= tokens=*" %%A in ('del /f /s /q "%systemRoot%\inf\*.pnf"') do (
 Set /a tmpFileCounts-=1
 cls
)
Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...

For /f "delims= tokens=*" %%A in ('del /f /s /q "%SystemRoot%\Offline Web Pages"') do (
 Set /a tmpFileCounts-=1
 cls
)
Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...

For /f "delims= tokens=*" %%A in ('del /f /s /q "%SystemRoot%\Prefetch\*.*"') do (
 Set /a tmpFileCounts-=1
 cls
)
Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...

For /f "delims= tokens=*" %%A in ('del /f /s /q "%SystemRoot%\minidump\*.*"') do (
 Set /a tmpFileCounts-=1
 cls
)

Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...
If exist "%SystemRoot%\inf\InfCache.1" Set /a tmpFileCounts-=1
If exist "%systemdrive%\AUTOEXEC.BAT" Set /a tmpFileCounts-=1
If exist "%systemdrive%\infcache.1" Set /a tmpFileCounts-=1
Del /a /f /s /q "%SystemRoot%\inf\InfCache.1" >nul 2>nul
DEL /a /f /s /q "%systemdrive%\AUTOEXEC.BAT" >nul 2>nul
DEL /a /f /s /q "%systemdrive%\infcache.1" >nul 2>nul
Set /a jgs=shenys-tmpFileCounts
Title 删除完毕!
cls
echo/%#%%#%
Echo/ 剩余%tmpFileCounts%个无法删除或正在使用的文件,删除了%jgs%个临时文件
echo/%#%%#%
Echo/ Date:%date%  Time:%time% >>d:\SnJun_log\清理垃圾历史记录.log
Echo/ 剩余%tmpFileCounts%个无法删除或正在使用的文件,删除了%jgs%个临时文件>>d:\SnJun_log\清理

垃圾历史记录.log
Echo/ %#%%#%>>d:\SnJun_log\清理垃圾历史记录.log
Msg * /TIME:5 剩余%tmpFileCounts%个无法删除或正在使用的文件,删除了%jgs%个临时文件.
rem 删除回收站,这里的代码有的系统会提示错误，欢迎各位提出有效的建议！
call :hszql
Exit

:hszql
echo off
color a
cls
rem 删除回收站,这里的代码有的系统会提示错误，欢迎各位提出有效的建议！
rem 这里的代码其实是属于多余的，不过为了彻底清除。因此会考虑直接删除回收站文件夹然后重新创建

比较彻底。
Echo 删除回收站文件夹...
For %%i in (c d e f g h i j k l m n o p q r s t u v w x y z) do rd /s /q %%i:\recycler >nul 

2>nul
ping 127.0.1 -n 3 >nul 2>nul
Echo 删除回收站文件夹...
For %%i in (c d e f g h i j k l m n o p q r s t u v w x y z) do md %%i:\recycler >nul 2>nul
ping 127.0.1 -n 3 >nul 2>nul
Echo 删除回收站文件夹...
For %%i in (c d e f g h i j k l m n o p q r s t u v w x y z) do attrib +s +h %%i:\recycler 

>nul 2>nul
ping 127.0.1 -n 3 >nul 2>nul
exit



rem 清理垃圾/临时文件卸载程序
rem 只要是转载出来的所有内容全部不留痕迹的卸载掉.
Echo off&cls&color a&title %date%Uninstall...
echo/&echo/&echo/
echo    是否卸载'清理垃圾程序'组件
echo       Y 继续卸载。
echo       N 退出
set /p xzcx= Y/N
If "%xzcx%"=="n" exit
If "%xzcx%"=="y" goto Uninstall
:Uninstall
Del /s/q "%userprofile%\桌面\清理垃圾升级版.bat" Music.vbs
Del /s/q "%userprofile%\桌面\Music.vbs"
Rd /s/q "%userprofile%\「开始」菜单\程序\清理垃圾升级版"
Del /s/q d:\SnJun_log\*.*
Rd /s/q "d:\SnJun_log"
Msg * /TIME:5 卸载‘清理垃圾升级版’组件完成....
Del /f/s/q %0
Exit

::::::最终修改日期2011年3月31日::::::
::::::如果有发现错误或不足的地方，欢迎加本人QQ研究
::::::接下来将考虑自动更新最新版本功能.
::::::欢迎跟进研究。______________//SnJun//
::::程序运行步骤
::::1,判断是否需要加载组件
::::2,搜索并计算临时文件数量
::::3,删除临时文件夹
::::4,删除回收站,创建回收站,设置回收站属性
::::5,目前本批处理定版本为： v2.0
::::6,支持修改和借用. ---菜鸟从模仿中成长！
::::7,本版本为纯代码，仅仅调用系统资源，无外部插件，个人认为有外部插件会好用一点。
::::有的朋友不喜欢一些类似的提示，可以考虑直接把选择的几个SET /P 以及下面的IF判断去掉即可。
:::::::::::::::::::::个人信息:::::::::::::::::::::::
::::::QQ:692172929::::::::::::::::::::::::::::::::::
::::::Email：[email]snwcw_benben@hotmail.com[/email]
::::::Blog：http://blog.163.com/qq692172929/
::::::Network disk：http://qq692172929.ys168.com/
::::::----BAT----百度贴吧@sn_zood------------------http://tieba.baidu.com/f?kw=bat
::::::---cn-dos--中国DOS联盟@qq692172929-----------http://www.cn-dos.cn (暂时无法登陆)
::::::---bathome-批处理之家@qq692172929------------[url]www.bathome.net[/url]
复制代码

qq692172929

本帖请求转至原创………………

qq692172929

回复 6# gawk


    楼主从未消失，一直在各个Q群里逗留。 比较少逛论坛到时真的。

qq692172929

原创垃圾清理自己从最入门的开始学最早接触的就是这个批处理，十二年不断优化不断优化。
    欢迎指点。

Echo off
Title /
Color a
rem 创建专用文件夹
If not exist d:\SnJun_log\ md d:\SnJun_log\
rem 判断是否复制自己到D:\SnJun_long下
If not exist d:\SnJun_log\垃圾清理v3.5.bat copy /y %0 d:\SnJun_log\垃圾清理v3.5.bat
If exist d:\SnJun_log\清理垃圾历史记录.log goto qllj
Rem By SnJun QQ:692172929  提醒:本程序有调用代码，请勿直接修改内容。推荐拷贝出去测试学习.By:Sn_zood
Set bta=title /
Set btb=title \

rem 判断是否创建开始菜单
::::::If not exist d:\SnJun_log\d:\SnJun_log\清理垃圾升级版\ MD "%userprofile%\「开始」菜单\程序\清理垃圾升级版\"
Title \
::::::copy /y %0 "%userprofile%\「开始」菜单\程序\清理垃圾升级版\清理垃圾升级版.bat"
rem 加载卸载BAT
more +200 %0>>d:\SnJun_log\卸载.bat
more +273 %0>>d:\SnJun_log\关于作者.vbs
::::::copy /y "d:\SnJun_log\卸载.bat" "%userprofile%\「开始」菜单\程序\清理垃圾升级版\卸载.bat"
Title /
call :ckqr 程序第一次运行,需要加载扩展功能.请稍后...

rem 输出创建时间
Echo/ 第一次运行时间: %date% >d:\SnJun_log\清理垃圾历史记录.log
echo.  加载完成,开始清理垃圾....
:qllj
::::运行程序的时间统计
Set _time_start=%time%
Set /a hour_start=%_time_start:~0,2%
Set /a minute_start=1%_time_start:~3,2%-100
Set /a second_start=1%_time_start:~6,2%-100

::::::收集信息---计数::::::
Set /a tmpFileCounts=0
Set jsxs=echo  已经发现 %tmpFileCounts% 个临时文件
Set jsbt=title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...
Echo 正在收集临时文件信息...&ping 127.0.1 -n 2 >nul 2>nul
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...

:::::::::::::执行命令核心:::::::::::::
set ckbt=搜索
set fady=dir /b /s /a
set jszcx=+
call :mlzx

:::::ps+3
:::::%SystemRoot%\inf\InfCache.1
:::::%systemdrive%\AUTOEXEC.BAT
:::::%systemdrive%\infcache.1
If exist %SystemRoot%\inf\InfCache.1 Set /a tmpFileCounts+=1
If exist %systemdrive%\AUTOEXEC.BAT Set /a tmpFileCounts+=1
If exist %systemdrive%\infcache.1 Set /a tmpFileCounts+=1
Title 已经发现 %tmpFileCounts% 个临时文件,正在收集临时文件信息...
Set shenys=%tmpFileCounts%
Title 共发现 %tmpFileCounts% 个临时文件
echo 共发现 %tmpFileCounts% 个临时文件,收集完毕.
::计算搜索所有垃圾所用时间。精确到X天
Set _time_end=%time%
Set /a hour_end=%_time_end:~0,2%
Set /a minute_end=1%_time_end:~3,2%-100
Set /a second_end=1%_time_end:~6,2%-100
if %second_end% lss %second_start% (
    Set /a second_end=%second_end%+60
    Set /a minute_end=%minute_end%-1
)
Set /a second=%second_end%-%second_start%
:: 计算分钟数
if %minute_end% lss %minute_start% (
    Set /a minute_end=%minute_end%+60
    Set /a hour_end=%hour_end%-1
)
Set /a minute=%minute_end%-%minute_start%
:: 计算小时数
if %hour_end% lss %hour_start% (
    Set /a hour_end=%hour_end%+24
)
Set /a hour=%hour_end%-%hour_start%
rem 计时程序结束
cls
Set #=#######################################
echo %#%
echo  共发现 %tmpFileCounts% 个临时文件,用时:%hour%时%minute%分%second%秒
echo %#%
if /I "%tmpFileCounts%"=="0" goto qsd
call :ckdy 共发现%tmpFileCounts%个临时文件.用时:%hour%时%minute%分%second%秒,是否删除临时文件(否为退出)
if "%MyVar%"=="6" goto ddlj
if "%MyVar%"=="7" goto q
::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::
:qsd
Echo/ Date:%date%  Time:%time% >>d:\SnJun_log\清理垃圾历史记录.log
Echo/ 未发现临时文件,系统保护的非常好. >>d:\SnJun_log\清理垃圾历史记录.log
Echo/ %#%%#%>>d:\SnJun_log\清理垃圾历史记录.log
call :ckqr 未发现临时文件,系统保护的很好,用时:%hour%时%minute%分%second%秒提示,按确定退出.
exit

:q
call :ckqr 谢谢使用,按确定退出.
exit

:ddlj
cls
echo 清理系统缓存...
start "缓存清理中,请稍后..." sfc.exe /purgecache

:::::::::::::执行命令核心:::::::::::::
set ckbt=删除
set fady=del /f /s /q
set jszcx=-
call :mlzx

Title 剩余 %tmpFileCounts% 个临时文件,正在删除临时文件...
If exist "%SystemRoot%\inf\InfCache.1" (
Set /a tmpFileCounts-=1
Del /a /f /s /q "%SystemRoot%\inf\InfCache.1" >nul 2>nul
)
If exist "%systemdrive%\AUTOEXEC.BAT" (
Set /a tmpFileCounts-=1
DEL /a /f /s /q "%systemdrive%\AUTOEXEC.BAT" >nul 2>nul
)
If exist "%systemdrive%\infcache.1" (
Set /a tmpFileCounts-=1
DEL /a /f /s /q "%systemdrive%\infcache.1" >nul 2>nul
)
Set /a jgs=shenys-tmpFileCounts
Title 删除完毕!
Cls
Echo/%#%%#%
Echo/ 剩余%tmpFileCounts%个无法删除或正在使用的文件,删除了%jgs%个临时文件
Echo/%#%%#%
Echo/ Date:%date%  Time:%time% >>d:\SnJun_log\清理垃圾历史记录.log
Echo/ 剩余%tmpFileCounts%个无法删除或正在使用的文件,删除了%jgs%个临时文件>>d:\SnJun_log\清理垃圾历史记录.log
Echo/ %#%%#%>>d:\SnJun_log\清理垃圾历史记录.log
Call :ckqr 剩余%tmpFileCounts%个无法删除或正在使用的文件,删除了%jgs%个临时文件.
rem 删除回收站
Call :hszql
rem 到此处，程序执行完毕....exit 退出。
Exit


:mlzx
:::::   call :sswj %1 %2 %3(标题)    %4 %5 %6 %7  （路径）  
:: cookies 如果不想清理直接再下面一行 call前面打2个冒号 ::
call :sswj 上网用的表单 用户名密码记录 cookies... %userprofile%\cookies\*.*
call :sswj 系统 临时 目录... %temp%\*.*
call :sswj 系统 临时 目录... %programdata%\temp\*.*
call :sswj 系统 更新日志 文件... %windir%\KB*.log
call :sswj 系统 冗余 文件... %systemdrive%\*.tmp
call :sswj 系统 冗余 文件... %systemdrive%\*._mp
call :sswj 系统 冗余 文件... %systemdrive%\*.log
call :sswj 系统 冗余 文件... %systemdrive%\*.gid
call :sswj 系统 冗余 文件... %systemdrive%\*.chk
call :sswj 系统 冗余 文件... %systemdrive%\*.old
call :sswj windows 目录下的 备份文件... %windir%\*.bak
call :sswj windows prefetch 预读文件... %windir%\prefetch\*.*
call :sswj 最近 打开的 文档列表记录... %userprofile%\recent\*.*
call :sswj IE 临时 文件... %userprofile%\Local Settings\Temporary Internet Files\*.*
call :sswj 当前帐户 临时文件夹中的 临时文件... %userprofile%\Local Settings\Temp\*.*
call :sswj 当前帐户 历史记录 列表... %windir%\History\*.*
call :sswj 当前帐户 最近浏览文件的 快捷方式... %userprofile%\recent\*.*
call :sswj 系统 预编译 文件... %systemRoot%\inf\*.pnf
call :sswj IE 脱机 文件... %SystemRoot%\Offline Web Pages
call :sswj 系统 小存储器 转储文件记录minidump... %SystemRoot%\minidump\*.*
call :sswj C盘 回收站 垃圾... c:\recycler\*.*
call :sswj D盘 回收站 垃圾... d:\recycler\*.*
call :sswj E盘 回收站 垃圾... e:\recycler\*.*
call :sswj F盘 回收站 垃圾... f:\recycler\*.*
call :sswj G盘 回收站 垃圾... g:\recycler\*.*
call :sswj H盘 回收站 垃圾... h:\recycler\*.*
goto :eof

rem 搜索文件子程序
:sswj
title 正在%ckbt% %1 %2 %3
For /f "delims= tokens=*" %%A in ('%fady% "%4 %5 %6 %7"') do (
 Set /a tmpFileCounts%jszcx%=1
 cls
 echo. 正在努力%ckbt%更多垃圾,请稍后...
)
goto :eof


rem 清理回收站子程序
:hszql
echo off
color a
cls
Echo 删除回收站文件夹...
For %%i in (c d e f g h i j k l m n o p q r s t u v w x y z) do rd /s /q %%i:\recycler >nul 2>nul
ping 127.0.1 -n 3 >nul 2>nul
Echo 还原回收站文件夹...
For %%i in (c d e f g h i j k l m n o p q r s t u v w x y z) do md %%i:\recycler >nul 2>nul
ping 127.0.1 -n 3 >nul 2>nul
Echo 还原回收站文件夹...
For %%i in (c d e f g h i j k l m n o p q r s t u v w x y z) do attrib +s +h %%i:\recycler >nul 2>nul
ping 127.0.1 -n 3 >nul 2>nul
goto :eof




rem 清理垃圾/临时文件卸载程序
rem 只要是转载出来的所有内容全部不留痕迹的卸载掉.
Echo off&cls
title 卸载SnJun的所有作品....
call :ckdy 是否卸载'SnJun的所有作品'(否为退出)
if "%MyVar%"=="6" goto Uninstall
if "%MyVar%"=="7" exit

:Uninstall
Del /s/q "%userprofile%\桌面\垃圾清理v3.5.bat"
Del /s/q "%userprofile%\桌面\Music.vbs"
Rd /s/q "%userprofile%\「开始」菜单\程序\清理垃圾升级版"
Del /s/q d:\SnJun_log\*.*
RD /s/q "d:\SnJun_log"
del /s/q "d:\SnJun_log"
pause
call :ckqr 卸载‘SnJun的所有作品’完成....
Del /f/s/q %0
Exit


::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::修改时间2016年1月23日
:::::::1,简化了核心代码。 :sswj
:::::::2,增加了新的搜索范围。
:::::::3,版本提升为3.5。
:::::::4,上个版本的预期未达到 暂时不考虑鼠标键盘支持，因为没必要。
:::::::5, SnJun/// 论坛ID：qq692172929
:::::::6,时隔两年技术再次成长，代码再次优化。
:::::::7,下次更新会带上读写配置文件程序更加人性化。★
::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::修改时间2014年3月23日
:::::::1,把第三方cido取消 改为调用VBS实现选择。
:::::::2，由于不用编译了，因此直接判断历史记录是否存在
:::::::3，版本提升为3.1。
:::::::4，预计下次版本为彩色尽可能支持鼠标键盘操作
:::::::5，SnJun/// 论坛ID：qq692172929
:::::::::时隔三年！！！这次进度很慢，下个版本会快很多。敬请期待。
::::::::::::::::::::::::::::::::::::::::::::::::::
::::::修改日期2011年3月31日::::::
::::::如果有发现错误或不足的地方，欢迎加本人QQ研究
::::::接下来将考虑自动更新最新版本功能.
::::::欢迎跟进研究。______________//SnJun//
::::程序运行步骤
::::1,判断是否需要加载组件
::::2,搜索并计算临时文件数量
::::3,删除临时文件夹
::::4,删除回收站,创建回收站,设置回收站属性
::::5,目前本批处理定版本为： v3.0
::::6,支持修改和借用. ---菜鸟从模仿中成长！
:::::::::::::::::::::个人信息:::::::::::::::::::::::
::::::QQ:692172929::::::::::::::::::::::::::::::::::
::::::Email：snwcw_benben@hotmail.com
::::::Blog：http://blog.163.com/qq692172929/
::::::Network disk：http://qq692172929.ys168.com/



rem 弹窗子程序---确认
:ckqr
mshta vbscript:msgbox("%1 %2 %3 %4",64,"清理垃圾提醒:")(window.close)
goto :EOF

rem 弹窗子程序---选择
:ckdy
>%tmp%\tmp.vbs echo MyVar=MsgBox ("%1 %2 %3 %4", 4, "垃圾清理提醒："):Wscript.Echo MyVar
for /f "delims=*" %%i in ('cscript.exe //nologo %tmp%\tmp.vbs') do set MyVar=%%i
pushd %tmp%&del/q "%a%?" tmp.vbs 2>nul
goto :EOF




msgbox "平时下班没事，自己学了一点批处理的知识，发现奥妙无"+vbCrlf+"穷，让人不得不对其能够实现的功能另眼相看！其实本人"+vbCrlf+"现在也只是学了其中的一点皮毛而已，一时无法领会其精"+vbCrlf+"			    　         　2011.08"+vbCrlf+"E-mail:692172929@qq.com"+vbCrlf+"QQ:692172929"+vbCrlf+"				         By:小俊"+vbCrlf+"            本人作品根目录:D:\SnJun_log\",,"关于作者　　               ◎开心最好◎" 
复制代码

canyuexiaolang

回复 6# gawk

这么坟的帖子- -

gawk

回复 4# 秋风·飞扬


    不用继续期待了，我猜楼主已经消失了

cjiabing

花心！~

秋风·飞扬

好多啊，不过蛮期待的，顶一个先~

lxzzr

好复杂的代码...

qq692172929

正在考虑写自动/手动代码.以及一些鸡肋功能。呵呵。完完全全写好可能要2M左右.
其中包括了一点实用的外部程序。
支持的朋友请关注.