批量整理磁盘碎片

秋风舞落叶

使用XP自带的磁盘碎片管理程序整理磁盘碎片时，不能自动整理所有磁盘，只能我们手动整理完一个再整理另一个，这对于我们这些懒人来说，确实不可忍受，所以只能出些懒招了。
方法一：
4 Q1 R( e- z8 j, n7 k使用批处理，将以下代码保存为文件 AutoDefrag.bat
6 j& \, L! h" i) Sfor %%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> '批量整理磁盘碎片脚本
set WshShell = CreateObject("WScript.Shell")
6 M' h( M/ Y/ [4 }9 Q'启动图形界面的整理程序
: o  v7 S9 z1 `WshShell.Run "dfrg.msc"
WScript.Sleep 1000
" W: g% L9 j( |  @* n'等待1秒钟，用于程序启动
While WshShell.AppActivate("磁盘碎片整理程序") = FALSE
wscript.sleep 1000
Wend
/ g; }+ \% S9 e8 V% F! R! T! q2 |'将磁盘碎片整理程序选为当前窗口
WshShell.AppActivate "磁盘碎片整理程序"
WScript.Sleep 200
'按下“ALT+A”打开下拉菜单
% h; n! Z0 z9 v) i% Y, b2 HWshShell.SendKeys "%A"
* o$ M2 ~& [8 nWScript.Sleep 200
( C" W' C8 p( w+ [6 t5 a. H'按下“D”键
WshShell.SendKeys "D"
; I7 Q3 I! d/ ^'整理完毕后等待5秒钟
* n6 H8 t; }7 _While WshShell.AppActivate("磁盘碎片整理完毕") = FALSE
$ [5 j/ T- [9 d% K" Q) awscript.sleep 5000
Wend
1 i8 B8 p0 x- l% |'激活该窗口
) _' X; n6 F! \3 w, e% rWshShell.AppActivate "磁盘碎片整理完毕"
WScript.Sleep 200
$ D' @& D2 c; v; |WshShell.Sendkeys "{TAB}"
Wscript.Sleep 500
4 b) Q! N6 z5 _4 {, p5 pWshShell.Sendkeys "{ENTER}"
. p& Z/ d( `+ c6 _+ G9 \9 {Wscript.Sleep 500
! V  V+ ^# b8 s+ u'按下“ALT+F4”关闭整理程序
/ B$ O# `  L& h' W) e' MWshShell.Sendkeys "%{F4}"
使用方法：双击