批量整理磁盘碎片

秋风舞落叶

使用XP自带的磁盘碎片管理程序整理磁盘碎片时，不能自动整理所有磁盘，只能我们手动整理完一个再整理另一个，这对于我们这些懒人来说，确实不可忍受，所以只能出些懒招了。
方法一：
, t5 l6 ]* b1 {. l% d% K使用批处理，将以下代码保存为文件 AutoDefrag.bat
for %%d in (c: d: e do defrag %%d /f
% y. v- E; ~6 L/ q, s需要整理碎片的时候，只要双击该文件即可。其中，c: d: e: 为要整理的分区盘符，可根据自己的实际情况自行添加或更改。
方法二：
* M% K# f4 E0 e: J' ~$ B& p3 K使用 solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" cellPadding=0 width="80%" border=1> '批量整理磁盘碎片脚本
; P6 h" \- t4 `4 R5 W8 Tset WshShell = CreateObject("WScript.Shell")
+ O' a1 Z+ M0 O. ['启动图形界面的整理程序
WshShell.Run "dfrg.msc"
& c0 e8 Q: {( a1 u2 t8 UWScript.Sleep 1000
5 q  b4 \! e/ E$ n+ e, w2 f8 }'等待1秒钟，用于程序启动
( A% G/ D9 `8 }  {, GWhile WshShell.AppActivate("磁盘碎片整理程序") = FALSE
wscript.sleep 1000
Wend
1 W3 C  P8 F9 Q( v2 U0 ^5 U'将磁盘碎片整理程序选为当前窗口
WshShell.AppActivate "磁盘碎片整理程序"
WScript.Sleep 200
'按下“ALT+A”打开下拉菜单
WshShell.SendKeys "%A"
: s1 r8 j* Z8 E+ D* mWScript.Sleep 200
'按下“D”键
( J! j2 q9 u. y& X; p% W8 qWshShell.SendKeys "D"
: g; s7 s" y9 F, @: i'整理完毕后等待5秒钟
5 s$ m* F2 T" ~( K! fWhile WshShell.AppActivate("磁盘碎片整理完毕") = FALSE
) i5 \' m( v. I) @( b, |wscript.sleep 5000
9 X' e5 m  ^1 y  r5 U9 w4 _Wend
, H+ w2 L% C# c# y/ ^0 U. F+ Q'激活该窗口
WshShell.AppActivate "磁盘碎片整理完毕"
6 Y0 _. n, R& `9 u9 L$ o- G( {3 z& [WScript.Sleep 200
WshShell.Sendkeys "{TAB}"
, U1 f+ y: p0 d' v  q4 E5 S2 Z1 s5 tWscript.Sleep 500
* c* u' l  ^% e. ]; W; h8 YWshShell.Sendkeys "{ENTER}"
0 L1 c0 a+ u3 i# ^* bWscript.Sleep 500
'按下“ALT+F4”关闭整理程序
6 n: F; A$ S7 N7 s* V2 ]1 C- i+ VWshShell.Sendkeys "%{F4}"
- k( q. l; ~% {9 P使用方法：双击