批量整理磁盘碎片

秋风舞落叶

使用XP自带的磁盘碎片管理程序整理磁盘碎片时，不能自动整理所有磁盘，只能我们手动整理完一个再整理另一个，这对于我们这些懒人来说，确实不可忍受，所以只能出些懒招了。
5 }3 U# [; k. A& V( h方法一：
使用批处理，将以下代码保存为文件 AutoDefrag.bat
& s' m* U& X1 r# [' z) l5 kfor %%d in (c: d: e do defrag %%d /f
需要整理碎片的时候，只要双击该文件即可。其中，c: d: e: 为要整理的分区盘符，可根据自己的实际情况自行添加或更改。
9 b, p7 v7 }( h1 `& ]方法二：
使用 solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" cellPadding=0 width="80%" border=1> '批量整理磁盘碎片脚本
: ]' P: I+ l2 y0 L+ N9 Yset WshShell = CreateObject("WScript.Shell")
'启动图形界面的整理程序
WshShell.Run "dfrg.msc"
$ \6 @# S5 |9 x: R' g$ d" UWScript.Sleep 1000
'等待1秒钟，用于程序启动
While WshShell.AppActivate("磁盘碎片整理程序") = FALSE
wscript.sleep 1000
4 `7 N8 D2 O0 ]+ _5 @$ v7 |Wend
( {8 m  k( V# L. w$ M& {! T'将磁盘碎片整理程序选为当前窗口
WshShell.AppActivate "磁盘碎片整理程序"
WScript.Sleep 200
'按下“ALT+A”打开下拉菜单
& D% S; q! e* i4 l7 ~WshShell.SendKeys "%A"
WScript.Sleep 200
'按下“D”键
WshShell.SendKeys "D"
2 A2 k% B* I* G6 r3 z, W- [9 ]) _/ d'整理完毕后等待5秒钟
3 I- m; o! Z- L4 H$ FWhile WshShell.AppActivate("磁盘碎片整理完毕") = FALSE
wscript.sleep 5000
4 f/ |3 V! q. u# q5 BWend
6 i; X0 \8 g  R'激活该窗口
WshShell.AppActivate "磁盘碎片整理完毕"
' L! e- j8 N2 p* w, q* g  n" {0 ZWScript.Sleep 200
& s5 Q2 V( ^5 i8 _% z/ T! gWshShell.Sendkeys "{TAB}"
Wscript.Sleep 500
: ]7 s* B2 R  m. D9 Z8 LWshShell.Sendkeys "{ENTER}"
Wscript.Sleep 500
'按下“ALT+F4”关闭整理程序
WshShell.Sendkeys "%{F4}"
* Q7 j3 ~1 e: M$ a9 J使用方法：双击