批量整理磁盘碎片

秋风舞落叶

使用XP自带的磁盘碎片管理程序整理磁盘碎片时，不能自动整理所有磁盘，只能我们手动整理完一个再整理另一个，这对于我们这些懒人来说，确实不可忍受，所以只能出些懒招了。
* r. e/ j6 e- Z: U8 D" |, b7 s方法一：
2 M0 ]+ N; |0 g, b: P* ^2 u6 s使用批处理，将以下代码保存为文件 AutoDefrag.bat
# m$ d  G# G9 Ffor %%d in (c: d: e do defrag %%d /f
: _2 j9 ]$ D  G% _& `9 I需要整理碎片的时候，只要双击该文件即可。其中，c: d: e: 为要整理的分区盘符，可根据自己的实际情况自行添加或更改。
方法二：
' X0 E# k( }' Z" a& d使用 solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" cellPadding=0 width="80%" border=1> '批量整理磁盘碎片脚本
, ^/ [' v. `" [) @$ ]1 q& Jset WshShell = CreateObject("WScript.Shell")
5 J  w! f4 n! ?' {5 x: i3 |'启动图形界面的整理程序
WshShell.Run "dfrg.msc"
; L/ ]- u6 k1 uWScript.Sleep 1000
! y5 c1 [$ H. A* s' z$ ?0 w8 R'等待1秒钟，用于程序启动
5 F# g9 \/ s% [& l! EWhile WshShell.AppActivate("磁盘碎片整理程序") = FALSE
/ H* Y4 W! n$ W$ I4 q, ]wscript.sleep 1000
Wend
'将磁盘碎片整理程序选为当前窗口
WshShell.AppActivate "磁盘碎片整理程序"
4 {- F0 l' Q9 b! WWScript.Sleep 200
, J% P4 j# K- H& E'按下“ALT+A”打开下拉菜单
WshShell.SendKeys "%A"
WScript.Sleep 200
) f+ h, O- R/ u- f( Y'按下“D”键
WshShell.SendKeys "D"
'整理完毕后等待5秒钟
While WshShell.AppActivate("磁盘碎片整理完毕") = FALSE
wscript.sleep 5000
4 p6 }% B1 u! E  A( L! uWend
/ b  j! s- j7 p0 N9 k$ r+ K'激活该窗口
WshShell.AppActivate "磁盘碎片整理完毕"
! T* j4 l, A; m& T7 l+ u9 H1 nWScript.Sleep 200
/ a. \* C0 q! G0 b! I/ |* K) fWshShell.Sendkeys "{TAB}"
; r+ N6 f' Z" u& O2 O1 VWscript.Sleep 500
WshShell.Sendkeys "{ENTER}"
+ A& o. U. |0 a4 AWscript.Sleep 500
- ^0 @! n/ W, ~' E'按下“ALT+F4”关闭整理程序
+ m8 y2 a2 A$ {$ p" PWshShell.Sendkeys "%{F4}"
9 X% P- ~+ A" M% G4 U) |" i使用方法：双击