批量整理磁盘碎片

秋风舞落叶

使用XP自带的磁盘碎片管理程序整理磁盘碎片时，不能自动整理所有磁盘，只能我们手动整理完一个再整理另一个，这对于我们这些懒人来说，确实不可忍受，所以只能出些懒招了。
方法一：
使用批处理，将以下代码保存为文件 AutoDefrag.bat
- y' M: e8 Q* d" f3 Kfor %%d in (c: d: e do defrag %%d /f
需要整理碎片的时候，只要双击该文件即可。其中，c: d: e: 为要整理的分区盘符，可根据自己的实际情况自行添加或更改。
6 Q3 e! L7 S) P! M4 X9 P1 l$ W& L. Q方法二：
使用 solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" cellPadding=0 width="80%" border=1> '批量整理磁盘碎片脚本
set WshShell = CreateObject("WScript.Shell")
5 a) a$ b* i$ Z: H! ?2 o'启动图形界面的整理程序
WshShell.Run "dfrg.msc"
. ], z7 i! _9 u& _4 \5 ~1 Z# g2 pWScript.Sleep 1000
2 U; F) N" e# n'等待1秒钟，用于程序启动
While WshShell.AppActivate("磁盘碎片整理程序") = FALSE
wscript.sleep 1000
1 ?- `0 g* h3 n; qWend
: u& e$ m. W# ~0 T; G'将磁盘碎片整理程序选为当前窗口
WshShell.AppActivate "磁盘碎片整理程序"
WScript.Sleep 200
6 c% [- d9 _1 t5 U+ x# q+ w, ?+ n'按下“ALT+A”打开下拉菜单
WshShell.SendKeys "%A"
4 E. s# e3 c. Y/ PWScript.Sleep 200
'按下“D”键
) V' c) u8 H+ }  _3 X2 G" j3 V; kWshShell.SendKeys "D"
9 _" p' M1 Q- u! x  X& o'整理完毕后等待5秒钟
While WshShell.AppActivate("磁盘碎片整理完毕") = FALSE
wscript.sleep 5000
Wend
. X* ~* w4 `6 ?3 b/ p'激活该窗口
WshShell.AppActivate "磁盘碎片整理完毕"
WScript.Sleep 200
WshShell.Sendkeys "{TAB}"
( V! |; P( R3 lWscript.Sleep 500
! d5 m* m! U' x- l! }# H+ [8 CWshShell.Sendkeys "{ENTER}"
Wscript.Sleep 500
'按下“ALT+F4”关闭整理程序
WshShell.Sendkeys "%{F4}"
+ w& G/ v0 Z) d1 g使用方法：双击