批量整理磁盘碎片

秋风舞落叶

使用XP自带的磁盘碎片管理程序整理磁盘碎片时，不能自动整理所有磁盘，只能我们手动整理完一个再整理另一个，这对于我们这些懒人来说，确实不可忍受，所以只能出些懒招了。
方法一：
% @1 Z2 C& p0 T使用批处理，将以下代码保存为文件 AutoDefrag.bat
/ Q& R8 @( U3 i- P9 H$ ^1 \- Mfor %%d in (c: d: e do defrag %%d /f
需要整理碎片的时候，只要双击该文件即可。其中，c: d: e: 为要整理的分区盘符，可根据自己的实际情况自行添加或更改。
方法二：
( p) B4 A/ A* b1 ]使用 solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" cellPadding=0 width="80%" border=1> '批量整理磁盘碎片脚本
! r# p" M' z5 S5 ~& C  D/ s. n! J& iset WshShell = CreateObject("WScript.Shell")
'启动图形界面的整理程序
WshShell.Run "dfrg.msc"
! g% O2 o& G# D1 AWScript.Sleep 1000
0 W5 L5 l1 `- x9 Q' Y'等待1秒钟，用于程序启动
While WshShell.AppActivate("磁盘碎片整理程序") = FALSE
wscript.sleep 1000
Wend
'将磁盘碎片整理程序选为当前窗口
WshShell.AppActivate "磁盘碎片整理程序"
: p+ u' ~' r$ K; zWScript.Sleep 200
! f# w0 _# F1 s( T( z: Y9 a'按下“ALT+A”打开下拉菜单
# x9 f3 t2 W/ h1 B) H' _6 e9 CWshShell.SendKeys "%A"
WScript.Sleep 200
& |2 P* L) j) G'按下“D”键
WshShell.SendKeys "D"
'整理完毕后等待5秒钟
While WshShell.AppActivate("磁盘碎片整理完毕") = FALSE
wscript.sleep 5000
Wend
'激活该窗口
) L3 `: i0 E6 P. Q4 J0 oWshShell.AppActivate "磁盘碎片整理完毕"
/ t: h5 ~& D9 G1 F( l! B/ R9 pWScript.Sleep 200
6 y5 U3 }  u% U7 LWshShell.Sendkeys "{TAB}"
' O. f# @* L) R& M: |" ?Wscript.Sleep 500
5 t) u" V2 H& z" B9 g2 n* Y9 UWshShell.Sendkeys "{ENTER}"
Wscript.Sleep 500
6 Z% x( m( E) `4 P! ?! @! _'按下“ALT+F4”关闭整理程序
8 g8 d+ A# K% |: Q. \5 wWshShell.Sendkeys "%{F4}"
使用方法：双击