批量整理磁盘碎片

秋风舞落叶

使用XP自带的磁盘碎片管理程序整理磁盘碎片时，不能自动整理所有磁盘，只能我们手动整理完一个再整理另一个，这对于我们这些懒人来说，确实不可忍受，所以只能出些懒招了。
, L/ h6 Y+ _5 J5 K( }) `方法一：
使用批处理，将以下代码保存为文件 AutoDefrag.bat
for %%d in (c: d: e do defrag %%d /f
) D( r- m# x8 g0 z" p' f4 {需要整理碎片的时候，只要双击该文件即可。其中，c: d: e: 为要整理的分区盘符，可根据自己的实际情况自行添加或更改。
3 ~  i. X6 _5 I: y方法二：
使用 solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" cellPadding=0 width="80%" border=1> '批量整理磁盘碎片脚本
set WshShell = CreateObject("WScript.Shell")
'启动图形界面的整理程序
WshShell.Run "dfrg.msc"
WScript.Sleep 1000
% g& d! N9 A- U! |) t$ Q' w'等待1秒钟，用于程序启动
1 N/ ?) p. P" j: H0 m8 I+ iWhile WshShell.AppActivate("磁盘碎片整理程序") = FALSE
9 ?" G9 ?! H7 \; x2 p$ vwscript.sleep 1000
0 i& P' D, X+ V, _Wend
'将磁盘碎片整理程序选为当前窗口
WshShell.AppActivate "磁盘碎片整理程序"
WScript.Sleep 200
'按下“ALT+A”打开下拉菜单
WshShell.SendKeys "%A"
WScript.Sleep 200
. Q! C; P4 k: y'按下“D”键
- G- y) G& A+ z! V3 bWshShell.SendKeys "D"
/ j8 g4 s5 }9 I- j* J" }3 Z  u'整理完毕后等待5秒钟
While WshShell.AppActivate("磁盘碎片整理完毕") = FALSE
: I" O; g. @+ N0 qwscript.sleep 5000
Wend
'激活该窗口
WshShell.AppActivate "磁盘碎片整理完毕"
WScript.Sleep 200
WshShell.Sendkeys "{TAB}"
/ t7 g& h! I; |5 A; C2 sWscript.Sleep 500
! z: E4 i3 T3 J5 H% g) @WshShell.Sendkeys "{ENTER}"
Wscript.Sleep 500
- F3 l' c  e, e# y* @'按下“ALT+F4”关闭整理程序
0 ]1 c2 t, J' r7 Z: gWshShell.Sendkeys "%{F4}"
使用方法：双击