批量整理磁盘碎片

秋风舞落叶

使用XP自带的磁盘碎片管理程序整理磁盘碎片时，不能自动整理所有磁盘，只能我们手动整理完一个再整理另一个，这对于我们这些懒人来说，确实不可忍受，所以只能出些懒招了。
+ E4 r. b4 k) F) U: J方法一：
; V# r, V) e3 l$ c( j8 \使用批处理，将以下代码保存为文件 AutoDefrag.bat
% c) T; c- w2 |4 P& \4 C* sfor %%d in (c: d: e do defrag %%d /f
) e7 l3 w( `* v/ n# p7 h需要整理碎片的时候，只要双击该文件即可。其中，c: d: e: 为要整理的分区盘符，可根据自己的实际情况自行添加或更改。
& \) o5 l' F3 r6 z1 i) X* J方法二：
7 `0 i6 P" o0 G- x4 q使用 solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" cellPadding=0 width="80%" border=1> '批量整理磁盘碎片脚本
* J7 ~& ]) O  Y, n" X; @8 Dset WshShell = CreateObject("WScript.Shell")
: B! r  r- P  D'启动图形界面的整理程序
WshShell.Run "dfrg.msc"
9 D# R! A3 m$ i; n. g7 b# Z5 xWScript.Sleep 1000
'等待1秒钟，用于程序启动
" Q8 [' O+ X) e7 Q) F6 y3 DWhile WshShell.AppActivate("磁盘碎片整理程序") = FALSE
wscript.sleep 1000
6 W! s6 h/ [& \3 w( p( h- N5 dWend
'将磁盘碎片整理程序选为当前窗口
WshShell.AppActivate "磁盘碎片整理程序"
1 u$ @7 i$ T' }2 s. M. W- vWScript.Sleep 200
'按下“ALT+A”打开下拉菜单
WshShell.SendKeys "%A"
$ \5 _# }+ n* j% ?1 F0 r' A- UWScript.Sleep 200
'按下“D”键
WshShell.SendKeys "D"
3 s: n0 c" W6 J% S9 r* A'整理完毕后等待5秒钟
While WshShell.AppActivate("磁盘碎片整理完毕") = FALSE
wscript.sleep 5000
Wend
'激活该窗口
WshShell.AppActivate "磁盘碎片整理完毕"
WScript.Sleep 200
$ n3 Z. T; Y6 S# u5 _9 {WshShell.Sendkeys "{TAB}"
5 A) P# Q4 }3 \5 G7 w) c! e* \Wscript.Sleep 500
5 z& c, b8 e5 d1 E* t% x6 g9 ?WshShell.Sendkeys "{ENTER}"
( ]5 ~" o0 v! }. Q9 u: pWscript.Sleep 500
'按下“ALT+F4”关闭整理程序
WshShell.Sendkeys "%{F4}"
使用方法：双击