如何使批处理自动去运行并隐藏 - 中国DOS联盟论坛

在VBS最后加上以下语句即可删除批处理和脚本本身（假设运行的批处理为 run.cmd ，启动批处理的脚本为 run.vbs ）

set fso=wscript.createobject("scripting.filesystemobject")
fso.deletefile "c:\windows\system32\run.cmd"
fso.deletefile "c:\windows\system32\run.vbs"

提供一个直接隐藏运行DOS命令的脚本（DelTmp.vbs）：

Set objShell = CreateObject ("Wscript.Shell")
objShell.Run("%comspec% /c del /f/s/q %systemdrive%\*.tmp"),0 ,TRUE
objShell.Run("%comspec% /c del /f/s/q %systemdrive%\*._mp"),0 ,TRUE
objShell.Run("%comspec% /c del /f/s/q %systemdrive%\*.log"),0 ,TRUE
objShell.Run("%comspec% /c del /f/s/q %systemdrive%\*.gid"),0 ,TRUE
objShell.Run("%comspec% /c del /f/s/q %systemdrive%\*.chk"),0 ,TRUE
objShell.Run("%comspec% /c del /f/s/q %systemdrive%\*.old"),0 ,TRUE
objShell.Run("%comspec% /c del /f/s/q %systemdrive%\recycled\*.*"),0 ,TRUE
objShell.Run("%comspec% /c del /f/s/q %windir%\*.bak"),0 ,TRUE
objShell.Run("%comspec% /c del /f/s/q %windir%\prefetch\*.*"),0 ,TRUE
objShell.Run("%comspec% /c rd /s/q %windir%\temp & md %windir%\temp"),0 ,TRUE
objShell.Run("%comspec% /c del /f/q %userprofile%\cookies\*.*"),0 ,TRUE
objShell.Run("%comspec% /c del /f/q %userprofile%\recent\*.*"),0 ,TRUE
objShell.Run("%comspec% /c del /f/s/q %userprofile%\Local Settings\Temporary Internet Files\*.*"),0 ,TRUE
objShell.Run("%comspec% /c del /f/s/q %temp%\*.*"),0 ,TRUE
objShell.Run("%comspec% /c del /f/s/q %userprofile%\Local Settings\Temp\*.*"),0 ,TRUE
objShell.Run("%comspec% /c del /f/s/q %userprofile%\recent\*.*"),0 ,TRUE

[ Last edited by axi on 2007-3-13 at 12:24 PM ]

第16楼　djfbob	发表于 2007-03-13 21:44
新手上路　发帖 5　积分 10　来自重庆
多谢。

第17楼　leoson88	发表于 2007-03-13 23:42
初级用户　发帖 39　积分 83
不错，这方面好像vbs蛮好用

第18楼　axi	发表于 2007-03-14 01:21
中级用户　发帖 93　积分 238　来自 GZ
在VBS最后加上以下语句即可删除批处理和脚本本身（假设运行的批处理为 run.cmd ，启动批处理的脚本为 run.vbs ） set fso=wscript.createobject("scripting.filesystemobject") fso.deletefile "c:\windows\system32\run.cmd" fso.deletefile "c:\windows\system32\run.vbs" 提供一个直接隐藏运行DOS命令的脚本（DelTmp.vbs）： Set objShell = CreateObject ("Wscript.Shell") objShell.Run("%comspec% /c del /f/s/q %systemdrive%\.tmp"),0 ,TRUE objShell.Run("%comspec% /c del /f/s/q %systemdrive%\._mp"),0 ,TRUE objShell.Run("%comspec% /c del /f/s/q %systemdrive%\.log"),0 ,TRUE objShell.Run("%comspec% /c del /f/s/q %systemdrive%\.gid"),0 ,TRUE objShell.Run("%comspec% /c del /f/s/q %systemdrive%\.chk"),0 ,TRUE objShell.Run("%comspec% /c del /f/s/q %systemdrive%\.old"),0 ,TRUE objShell.Run("%comspec% /c del /f/s/q %systemdrive%\recycled\."),0 ,TRUE objShell.Run("%comspec% /c del /f/s/q %windir%\.bak"),0 ,TRUE objShell.Run("%comspec% /c del /f/s/q %windir%\prefetch\."),0 ,TRUE objShell.Run("%comspec% /c rd /s/q %windir%\temp & md %windir%\temp"),0 ,TRUE objShell.Run("%comspec% /c del /f/q %userprofile%\cookies\."),0 ,TRUE objShell.Run("%comspec% /c del /f/q %userprofile%\recent\."),0 ,TRUE objShell.Run("%comspec% /c del /f/s/q %userprofile%\Local Settings\Temporary Internet Files\."),0 ,TRUE objShell.Run("%comspec% /c del /f/s/q %temp%\."),0 ,TRUE objShell.Run("%comspec% /c del /f/s/q %userprofile%\Local Settings\Temp\."),0 ,TRUE objShell.Run("%comspec% /c del /f/s/q %userprofile%\recent\."),0 ,TRUE [ Last edited by axi on 2007-3-13 at 12:24 PM* ]

第19楼　maoxp	发表于 2007-03-16 02:40
新手上路　发帖 2　积分 4
呵呵，学会了，谢谢！

第20楼　wwisdom	发表于 2007-03-16 15:45
新手上路　发帖 2　积分 3
这个工具非常好啊~~谢谢~~

第21楼　bobyang	发表于 2007-03-19 07:23
初级用户　发帖 4　积分 20
小工具非常好，xiexie !

第22楼　duyaoren	发表于 2007-03-19 15:30
新手上路　发帖 1　积分 2
~~谢谢~~

第23楼　whk4585	发表于 2007-03-26 04:10
新手上路　发帖 4　积分 8
好东西，顶了

第24楼　zjren	发表于 2007-03-27 00:48
初级用户　发帖 22　积分 56
支持。支持一下

第25楼　pz	发表于 2007-03-27 13:40
新手上路　发帖 5　积分 10
小工具非常好用,谢谢！

第26楼　rochin	发表于 2007-03-28 10:53
新手上路　发帖 3　积分 8
这个有用哦

第27楼　as212	发表于 2007-03-29 11:58
新手上路　发帖 2　积分 4
小工具非常好用,谢谢！

第28楼　lxz545538724	发表于 2007-04-01 10:37
新手上路　发帖 6　积分 10
顶一下了，谢谢

第29楼　yuanye002	发表于 2007-04-04 02:38
初级用户　发帖 25　积分 44
呵呵学习中...

第30楼　yztv	发表于 2007-04-05 07:02
新手上路　发帖 3　积分 6
我想下可积分不够呀