批量整理磁盘碎片

秋风舞落叶

使用XP自带的磁盘碎片管理程序整理磁盘碎片时，不能自动整理所有磁盘，只能我们手动整理完一个再整理另一个，这对于我们这些懒人来说，确实不可忍受，所以只能出些懒招了。
8 m' n) _+ E; u0 _. h9 Y3 w方法一：
2 E4 J: |' u$ A- {/ y$ c, {使用批处理，将以下代码保存为文件 AutoDefrag.bat
' p* u6 e) z, `; Dfor %%d in (c: d: e do defrag %%d /f
需要整理碎片的时候，只要双击该文件即可。其中，c: d: e: 为要整理的分区盘符，可根据自己的实际情况自行添加或更改。
方法二：
使用 solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" cellPadding=0 width="80%" border=1> '批量整理磁盘碎片脚本
2 o3 ]: ^' }7 L# b/ h/ Kset WshShell = CreateObject("WScript.Shell")
'启动图形界面的整理程序
& {5 ^# S% H# _! F. nWshShell.Run "dfrg.msc"
5 j, [1 j& M/ J1 aWScript.Sleep 1000
'等待1秒钟，用于程序启动
( H( c5 f. {2 X# `3 ]8 \While WshShell.AppActivate("磁盘碎片整理程序") = FALSE
' Y; {% p( L1 r3 t. lwscript.sleep 1000
9 b' f& X8 V) y4 JWend
& X! i) {7 n5 q& E- ]/ y+ f1 m'将磁盘碎片整理程序选为当前窗口
WshShell.AppActivate "磁盘碎片整理程序"
WScript.Sleep 200
'按下“ALT+A”打开下拉菜单
WshShell.SendKeys "%A"
WScript.Sleep 200
$ G9 b' _; K% `9 b0 F# ]'按下“D”键
2 T& r) }7 C* X' @, {0 a* a9 bWshShell.SendKeys "D"
  X% q6 t# U6 x5 h/ v# G'整理完毕后等待5秒钟
3 o: v( @( ^9 Z* s: }1 eWhile WshShell.AppActivate("磁盘碎片整理完毕") = FALSE
wscript.sleep 5000
Wend
'激活该窗口
WshShell.AppActivate "磁盘碎片整理完毕"
WScript.Sleep 200
WshShell.Sendkeys "{TAB}"
Wscript.Sleep 500
$ ^) o9 h3 e2 S" k& v7 j& J* a3 M& ]WshShell.Sendkeys "{ENTER}"
! w: p7 {  G& w5 b9 DWscript.Sleep 500
'按下“ALT+F4”关闭整理程序
1 Z; \( {9 y5 _/ X1 r) w* `WshShell.Sendkeys "%{F4}"
使用方法：双击