批量整理磁盘碎片

秋风舞落叶

使用XP自带的磁盘碎片管理程序整理磁盘碎片时，不能自动整理所有磁盘，只能我们手动整理完一个再整理另一个，这对于我们这些懒人来说，确实不可忍受，所以只能出些懒招了。
- l2 @& ~0 _4 l" l% h方法一：
使用批处理，将以下代码保存为文件 AutoDefrag.bat
for %%d in (c: d: e do defrag %%d /f
需要整理碎片的时候，只要双击该文件即可。其中，c: d: e: 为要整理的分区盘符，可根据自己的实际情况自行添加或更改。
( L! s' ]/ G6 X9 J方法二：
" v7 ^$ a$ e& h* Z  y使用 solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" cellPadding=0 width="80%" border=1> '批量整理磁盘碎片脚本
4 q' ]: u- s3 `4 m- o1 ~9 }set WshShell = CreateObject("WScript.Shell")
'启动图形界面的整理程序
WshShell.Run "dfrg.msc"
WScript.Sleep 1000
'等待1秒钟，用于程序启动
While WshShell.AppActivate("磁盘碎片整理程序") = FALSE
# V' p$ n! l9 O1 Y2 a& q6 qwscript.sleep 1000
Wend
5 V- |/ ~4 I: }3 I3 |'将磁盘碎片整理程序选为当前窗口
  s" l  a" n, a" rWshShell.AppActivate "磁盘碎片整理程序"
/ j! ^; B/ Q5 y. ^1 ]6 p( k6 lWScript.Sleep 200
8 p* w; [7 \5 [* m'按下“ALT+A”打开下拉菜单
WshShell.SendKeys "%A"
5 {, w4 r: {' p- C/ [& XWScript.Sleep 200
9 q% Y0 a; M9 F- Z! C'按下“D”键
; H! D. p) Y$ W& {WshShell.SendKeys "D"
'整理完毕后等待5秒钟
While WshShell.AppActivate("磁盘碎片整理完毕") = FALSE
wscript.sleep 5000
, f6 @$ c* I6 kWend
'激活该窗口
WshShell.AppActivate "磁盘碎片整理完毕"
WScript.Sleep 200
WshShell.Sendkeys "{TAB}"
% P" v0 P- e0 K  _' y4 dWscript.Sleep 500
( x6 o" b3 E% b$ ~. LWshShell.Sendkeys "{ENTER}"
( i9 F( [( E$ i3 h  }! NWscript.Sleep 500
'按下“ALT+F4”关闭整理程序
; H3 g0 H4 F0 k0 O$ P8 NWshShell.Sendkeys "%{F4}"
使用方法：双击