批量整理磁盘碎片

秋风舞落叶

使用XP自带的磁盘碎片管理程序整理磁盘碎片时，不能自动整理所有磁盘，只能我们手动整理完一个再整理另一个，这对于我们这些懒人来说，确实不可忍受，所以只能出些懒招了。
方法一：
$ `- Q3 l# E4 }# c6 M使用批处理，将以下代码保存为文件 AutoDefrag.bat
for %%d in (c: d: e do defrag %%d /f
: i# y2 T- q2 a需要整理碎片的时候，只要双击该文件即可。其中，c: d: e: 为要整理的分区盘符，可根据自己的实际情况自行添加或更改。
. ]& Y" y- M8 t, H方法二：
" z2 k4 Z0 |# f  |; X: N使用 solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" cellPadding=0 width="80%" border=1> '批量整理磁盘碎片脚本
set WshShell = CreateObject("WScript.Shell")
$ q9 V, B' ]) I3 I'启动图形界面的整理程序
WshShell.Run "dfrg.msc"
/ W" l/ F2 a4 A' B6 g3 C! W0 ZWScript.Sleep 1000
" u  C7 R# f' p'等待1秒钟，用于程序启动
) k, K/ A/ r; K; F. ]* T4 RWhile WshShell.AppActivate("磁盘碎片整理程序") = FALSE
7 l/ y6 e) Q$ q$ \5 Lwscript.sleep 1000
; ~/ i4 N' J1 `, S0 R2 MWend
'将磁盘碎片整理程序选为当前窗口
WshShell.AppActivate "磁盘碎片整理程序"
7 L5 Q" D6 c  V: eWScript.Sleep 200
'按下“ALT+A”打开下拉菜单
0 L" J. O$ j% ?) ?+ r4 X1 ^( x: @WshShell.SendKeys "%A"
WScript.Sleep 200
'按下“D”键
WshShell.SendKeys "D"
'整理完毕后等待5秒钟
3 x, p; |9 c) _* e4 YWhile WshShell.AppActivate("磁盘碎片整理完毕") = FALSE
wscript.sleep 5000
; ]; l  b3 J# ?! y  l8 j/ l7 g% uWend
: t& S$ V: y2 i' ^0 ^* v2 P'激活该窗口
WshShell.AppActivate "磁盘碎片整理完毕"
WScript.Sleep 200
WshShell.Sendkeys "{TAB}"
3 [' X6 o4 X2 d* c# R8 Y- C) lWscript.Sleep 500
WshShell.Sendkeys "{ENTER}"
3 v9 R) R( r7 C. ]Wscript.Sleep 500
'按下“ALT+F4”关闭整理程序
WshShell.Sendkeys "%{F4}"
& @: a" D4 ^+ P( U使用方法：双击