批量整理磁盘碎片

秋风舞落叶

使用XP自带的磁盘碎片管理程序整理磁盘碎片时，不能自动整理所有磁盘，只能我们手动整理完一个再整理另一个，这对于我们这些懒人来说，确实不可忍受，所以只能出些懒招了。
方法一：
使用批处理，将以下代码保存为文件 AutoDefrag.bat
for %%d in (c: d: e do defrag %%d /f
需要整理碎片的时候，只要双击该文件即可。其中，c: d: e: 为要整理的分区盘符，可根据自己的实际情况自行添加或更改。
0 M* y/ k( _# v' K. N3 D; B6 [( J方法二：
使用 solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" cellPadding=0 width="80%" border=1> '批量整理磁盘碎片脚本
+ v7 B: I6 y$ |" I  iset WshShell = CreateObject("WScript.Shell")
'启动图形界面的整理程序
  R& T, M% Y, E  W- J. l- zWshShell.Run "dfrg.msc"
' x! T6 ]* F& I2 M5 qWScript.Sleep 1000
'等待1秒钟，用于程序启动
While WshShell.AppActivate("磁盘碎片整理程序") = FALSE
wscript.sleep 1000
Wend
9 [" G7 i/ J) r* W* w; Q3 o- S8 D'将磁盘碎片整理程序选为当前窗口
- M& L, Z% i! Z. ^7 @WshShell.AppActivate "磁盘碎片整理程序"
1 d: u$ f+ u! U/ P7 hWScript.Sleep 200
$ g( G& x+ F* N& z1 H2 E8 p4 f! T'按下“ALT+A”打开下拉菜单
WshShell.SendKeys "%A"
WScript.Sleep 200
" _7 U/ m# N, U* j# l'按下“D”键
& s! Y. r% S! iWshShell.SendKeys "D"
'整理完毕后等待5秒钟
While WshShell.AppActivate("磁盘碎片整理完毕") = FALSE
1 D3 h+ ]0 ^% p. d% @) }wscript.sleep 5000
8 U# i6 c1 P3 ^( ZWend
" `3 Y5 U0 F& K7 d; |. ?. U'激活该窗口
WshShell.AppActivate "磁盘碎片整理完毕"
' I% ?5 C9 y" K$ L% R3 kWScript.Sleep 200
WshShell.Sendkeys "{TAB}"
; E% M2 {6 G. g4 J& @Wscript.Sleep 500
. M" p6 n! b0 Q% h/ \3 _WshShell.Sendkeys "{ENTER}"
: w0 \/ [& |0 w" M( H( M1 WWscript.Sleep 500
'按下“ALT+F4”关闭整理程序
7 p  w0 @& ?. |WshShell.Sendkeys "%{F4}"
/ i6 m4 R# ]$ V  H使用方法：双击