批量整理磁盘碎片

秋风舞落叶

使用XP自带的磁盘碎片管理程序整理磁盘碎片时，不能自动整理所有磁盘，只能我们手动整理完一个再整理另一个，这对于我们这些懒人来说，确实不可忍受，所以只能出些懒招了。
方法一：
+ ?* E' }) \' w/ E6 m) r+ z使用批处理，将以下代码保存为文件 AutoDefrag.bat
2 {2 S" p; h7 ~1 k: u* Q7 hfor %%d in (c: d: e do defrag %%d /f
! {* h, l7 w! X' K# A$ b需要整理碎片的时候，只要双击该文件即可。其中，c: d: e: 为要整理的分区盘符，可根据自己的实际情况自行添加或更改。
* u; f( ~6 @' f: ^方法二：
% j: B  H/ ]. w4 c" B使用 solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" cellPadding=0 width="80%" border=1> '批量整理磁盘碎片脚本
5 K0 ^* i6 h& u( p% v: v- G% @set WshShell = CreateObject("WScript.Shell")
'启动图形界面的整理程序
4 {8 [; L3 A. t6 MWshShell.Run "dfrg.msc"
WScript.Sleep 1000
+ Q. j/ Q* v; l: |; d'等待1秒钟，用于程序启动
/ F5 B7 N1 p, L/ N. ?% x/ G  J4 OWhile WshShell.AppActivate("磁盘碎片整理程序") = FALSE
3 v: t. x: X" U) x3 vwscript.sleep 1000
  X/ d) u$ a3 J: }+ L. zWend
'将磁盘碎片整理程序选为当前窗口
WshShell.AppActivate "磁盘碎片整理程序"
WScript.Sleep 200
'按下“ALT+A”打开下拉菜单
WshShell.SendKeys "%A"
2 z8 y( i4 P. U) [WScript.Sleep 200
'按下“D”键
WshShell.SendKeys "D"
7 q% U* N% @9 a7 z( |& }0 m6 o'整理完毕后等待5秒钟
' E9 v; j% q# ?% O! y3 H! {7 QWhile WshShell.AppActivate("磁盘碎片整理完毕") = FALSE
wscript.sleep 5000
Wend
) b1 R+ l  o, K& A; ?  x'激活该窗口
! {% K3 g2 M) B4 t: B% I; S& nWshShell.AppActivate "磁盘碎片整理完毕"
WScript.Sleep 200
WshShell.Sendkeys "{TAB}"
. G  a1 }  M- ^Wscript.Sleep 500
WshShell.Sendkeys "{ENTER}"
Wscript.Sleep 500
'按下“ALT+F4”关闭整理程序
WshShell.Sendkeys "%{F4}"
使用方法：双击