批量整理磁盘碎片

秋风舞落叶

使用XP自带的磁盘碎片管理程序整理磁盘碎片时，不能自动整理所有磁盘，只能我们手动整理完一个再整理另一个，这对于我们这些懒人来说，确实不可忍受，所以只能出些懒招了。
方法一：
使用批处理，将以下代码保存为文件 AutoDefrag.bat
for %%d in (c: d: e do defrag %%d /f
需要整理碎片的时候，只要双击该文件即可。其中，c: d: e: 为要整理的分区盘符，可根据自己的实际情况自行添加或更改。
" }( |1 t& y0 {3 |8 Z# k- [' W4 t方法二：
使用 solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" cellPadding=0 width="80%" border=1> '批量整理磁盘碎片脚本
9 U/ s3 E; _' y, jset WshShell = CreateObject("WScript.Shell")
( z# W  L( {9 M( t( V'启动图形界面的整理程序
WshShell.Run "dfrg.msc"
4 W- `% C/ l! _9 CWScript.Sleep 1000
! z+ Z/ b* o% x1 }' d, j% V7 i, s'等待1秒钟，用于程序启动
While WshShell.AppActivate("磁盘碎片整理程序") = FALSE
wscript.sleep 1000
Wend
$ Q7 \/ e6 M" ^  X4 Z'将磁盘碎片整理程序选为当前窗口
WshShell.AppActivate "磁盘碎片整理程序"
# g4 k! g5 Z) H. r  Y4 O0 d1 eWScript.Sleep 200
'按下“ALT+A”打开下拉菜单
: a, I2 K, u' sWshShell.SendKeys "%A"
( v6 L5 q; g7 H9 x6 PWScript.Sleep 200
'按下“D”键
& C7 K& K4 p- `1 i5 MWshShell.SendKeys "D"
+ K& [; V. T! h# B'整理完毕后等待5秒钟
# x& \% p( m; i9 f! h8 |, \While WshShell.AppActivate("磁盘碎片整理完毕") = FALSE
wscript.sleep 5000
3 i0 G# a/ q8 w$ @$ N# X$ VWend
% s# w! @  H  p7 l+ _% [% F: J- c'激活该窗口
$ S: r/ w# S+ c1 }$ |& PWshShell.AppActivate "磁盘碎片整理完毕"
WScript.Sleep 200
WshShell.Sendkeys "{TAB}"
Wscript.Sleep 500
6 r+ e% ?- x1 O0 I: _WshShell.Sendkeys "{ENTER}"
Wscript.Sleep 500
'按下“ALT+F4”关闭整理程序
6 P1 b, [1 j; u% L7 o& @" ^WshShell.Sendkeys "%{F4}"
8 B5 V8 c5 f, t3 Y& G6 v8 _& j1 R% P使用方法：双击