中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创][分享][求助]再论垃圾清扫代码，有兴趣的进

read4864
初级用户

积分 28
发帖 11
注册 2007-4-11
来自河北邯郸
状态离线

『楼主』: [原创][分享][求助]再论垃圾清扫代码，有兴趣的进

可以把程序弄到启动项里，每1小时自动执行一次，作成后台运行连窗口也不会显。
以下是代码段：
@echo off
mode con: cols=40 lines=1
@title 一键清扫-作者：孤剑流星-版本：01.01.10
@color 1f
:start
cls
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("清扫程序开始执行，请捎后")(Window.close)
cls
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("清扫临时文件中")(Window.close)
set,========================================================================================================&for /l %%i in (1,1,20)do @call set/p= %%,:~%%i,1%%<nul&ping/n 1 127.1>nul
SET SEN=%A:~0,1%
SET SU=%A:~1,2%
start /MIN attrib -a -h -s
del  /f /s /q  %systemdrive%\*.tmp>nul
cls
start /MIN attrib -a -h -s
del  /f /s /q  %systemdrive%\*._mp>nul
cls
start /MIN attrib -a -h -s
del  /f /s /q  %systemdrive%\*.log>nul
cls
start /MIN attrib -a -h -s
del /f /s /q  %systemdrive%\*.gid>nul
cls
start /MIN attrib -a -h -s
del /f /s /q  %systemdrive%\*.chk>nul
cls
start /MIN attrib -a -h -s
del /f /s /q  %systemdrive%\*.old>nul
cls
start /MIN attrib -a -h -s
del /f /s /q  %systemdrive%\recycled\*.*>nul
cls
start /MIN attrib -a -h -s
del /f /s /q  %windir%\*.bak>nul
cls
start /MIN attrib -a -h -s
del /f /s /q  %windir%\prefetch\*.*>nul
cls
start /MIN attrib -a -h -s
rd /s /q  %windir%\temp & md %windir%\temp>nul
cls
start /MIN attrib -a -h -s
del /f /s /q  "%userprofile%\Local Settings\Temp\*.*">nul
cls
start /MIN attrib -a -h -s
del /f /q  %userprofile%\Administrator\*.*>nul
cls
start /MIN attrib -a -h -s
del /f /q  %userprofile%\recent\*.*
cls
start /MIN attrib -a -h -s
del /f /s /q  "%userprofile%\recent\*.*">nul
cls
start /MIN attrib -a -h -s
del /f /s  /q "%userprofile%\Local Settings\Temporary Internet Files\*.*">nul
cls
set,========================================================================================================&for /l %%i in (1,1,40)do @call set/p= %%,:~%%i,1%%<nul&ping/n 1 127.1>nul
SET SEN=%B:~0,1%
SET SU=%B:~1,2%
@echo Wscript.Sleep Wscript.Arguments(0) * 1000>Delay.vbs
Delay.vbs 300
del Delay.vbs
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("临时文件清扫成功")(Window.close)
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("方丈，清扫工作以执行完毕，一小时后再见！闪人之")(Window.close)
@echo Wscript.Sleep Wscript.Arguments(0) * 1000>Delay.vbs
Delay.vbs 3600
del Delay.vbs
goto :aaa
:aaa
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("方丈，您已经工作一个小时了，该休息一下了，顺便让小沙弥为您清扫下电脑运行中的垃圾。")(Window.close)
goto :start
----------------------------------------------------------------
清除程序再次优化版
----------------------------------------------------------------
请教高手如何让程序开机1小时后执行第二次时屏幕自动黑屏5分钟？我总是管不住自己，所以。。。。。。！！！