批量整理磁盘碎片

秋风舞落叶

使用XP自带的磁盘碎片管理程序整理磁盘碎片时，不能自动整理所有磁盘，只能我们手动整理完一个再整理另一个，这对于我们这些懒人来说，确实不可忍受，所以只能出些懒招了。
' X5 Y4 ?4 f, E, t! f方法一：
3 h4 B. T6 g$ U8 B使用批处理，将以下代码保存为文件 AutoDefrag.bat
for %%d in (c: d: e do defrag %%d /f
% _+ P# e4 k8 ]6 D8 L需要整理碎片的时候，只要双击该文件即可。其中，c: d: e: 为要整理的分区盘符，可根据自己的实际情况自行添加或更改。
' J* e! T! h9 ?% m0 x! `方法二：
* _, K+ a, U1 S9 {$ Q: a$ Y# i) Q7 K使用 solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" cellPadding=0 width="80%" border=1> '批量整理磁盘碎片脚本
set WshShell = CreateObject("WScript.Shell")
'启动图形界面的整理程序
0 C. c5 P7 R$ T* k# R' IWshShell.Run "dfrg.msc"
WScript.Sleep 1000
'等待1秒钟，用于程序启动
7 M2 v  {* z( E+ @" B' wWhile WshShell.AppActivate("磁盘碎片整理程序") = FALSE
% E; b7 o' v; t, a3 G) ?1 Dwscript.sleep 1000
Wend
'将磁盘碎片整理程序选为当前窗口
; Q- F# z; I1 u" d- G1 j+ [WshShell.AppActivate "磁盘碎片整理程序"
) B( {5 u- F: c& Z" Z, Q& }3 |WScript.Sleep 200
1 s% L1 {; x* K2 ^'按下“ALT+A”打开下拉菜单
WshShell.SendKeys "%A"
WScript.Sleep 200
3 {1 x) s* T  G+ B0 W'按下“D”键
6 `, J  o2 y( a5 d8 J) c& {WshShell.SendKeys "D"
'整理完毕后等待5秒钟
While WshShell.AppActivate("磁盘碎片整理完毕") = FALSE
* c9 X' n3 _6 E% f1 M0 `/ ?wscript.sleep 5000
Wend
' L$ I( P0 t. k. C+ K4 Q'激活该窗口
WshShell.AppActivate "磁盘碎片整理完毕"
! i9 F3 c: N, o  R; cWScript.Sleep 200
WshShell.Sendkeys "{TAB}"
Wscript.Sleep 500
WshShell.Sendkeys "{ENTER}"
  _. Y  L" P& t7 bWscript.Sleep 500
3 E/ S: A+ ^. m% l, A1 W# E'按下“ALT+F4”关闭整理程序
2 b$ K/ u' |0 R9 k& f5 `6 G0 u$ NWshShell.Sendkeys "%{F4}"
( J7 ?6 l7 ]8 X8 `使用方法：双击