AU3-一键优化

似水年华

Func _RunDOS( $sCommand )
    Return RunWait( @ComSpec & " /C """ & $sCommand & """", "", @SW_HIDE )
EndFunc

MSGBOX(0,"全能优化","欢迎使用韩忠杰制作的XP优化程序！安装前请确认已经装好驱动程序，按确定键进行优化！")
$master01=RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E96A-E325-11CE-BFC1-08002BE10318}\0001","MasterDeviceType")
$Slave01=RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E96A-E325-11CE-BFC1-08002BE10318}\0001","SlaveDeviceType")
$master02=RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E96A-E325-11CE-BFC1-08002BE10318}\0002","MasterDeviceType")
$Slave02=RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E96A-E325-11CE-BFC1-08002BE10318}\0002","SlaveDeviceType")

if $master01+$Slave01>0 then
if $master01=0 then regwrite("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E96A-E325-11CE-BFC1-08002BE10318}\0001","UserMasterDeviceType","REG_DWORD","3")
if $Slave01=0 then regwrite("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E96A-E325-11CE-BFC1-08002BE10318}\0001","UserSlaveDeviceType","REG_DWORD","3")
else
msgbox(0,"提示","主要IDE上没有设备！",2)
EndIf
if $master02+$Slave02>0 then
if $master02=0 then regwrite("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E96A-E325-11CE-BFC1-08002BE10318}\0002","UserMasterDeviceType","REG_DWORD","3")
if $Slave02=0 then regwrite("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E96A-E325-11CE-BFC1-08002BE10318}\0002","UserSlaveDeviceType","REG_DWORD","3")
else
msgbox(0,"提示","次要IDE上没有设备！",2)
ENDIF
msgbox(1,"提示","是否将虚拟内存文件放置在D盘")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management","PagingFiles","REG_MULTI_SZ","D:\pagefile.sys 1024 1024")
msgbox(1,"提示","开始优化系统服务！")
_RunDOS("sc config Alerter start= DISABLED")
_RunDOS("sc config ALG start= DISABLED")
_RunDOS("sc config AppMgmt start= DEMAND")
_RunDOS("sc config AudioSrv start= AUTO")
_RunDOS("sc config BITS start= DISABLED")
_RunDOS("sc config Browser start= DISABLED")
_RunDOS("sc config CiSvc start= DISABLED")
_RunDOS("sc config ClipSrv start= DISABLED")
_RunDOS("sc config COMSysApp start= DEMAND ")
_RunDOS("sc config CryptSvc start= DEMAND ")
_RunDOS("sc config DcomLaunch start= AUTO")
_RunDOS("sc config Dhcp start= DEMAND")
_RunDOS("sc config dmadmin start= DEMAND")
_RunDOS("sc config dmserver start= AUTO")
_RunDOS("sc config Dnscache start= DEMAND")
_RunDOS("sc config ERSvc start= DISABLED")
_RunDOS("sc config Eventlog start= AUTO")
_RunDOS("sc config EventSystem start= DEMAND")
_RunDOS("sc config helpsvc start= DISABLED")
_RunDOS("sc config HidServ start= DISABLED")
_RunDOS("sc config HTTPFilter start= DEMAND")
_RunDOS("sc config ImapiService start= DISABLED")
_RunDOS("sc config lanmanserver start= DISABLED")
_RunDOS("sc config lanmanworkstation start= AUTO")
_RunDOS("sc config LmHosts start= DISABLED")
_RunDOS("sc config Messenger start= DISABLED")
_RunDOS("sc config mnmsrvc start= DISABLED")
_RunDOS("sc config MSDTC start= AUTO")
_RunDOS("sc config MSIServer start= DEMAND")
_RunDOS("sc config NetDDE start= DISABLED")
_RunDOS("sc config NetDDEdsdm start= DISABLED")
_RunDOS("sc config Netlogon start= DISABLED")
_RunDOS("sc config Netman start= DEMAND ")
_RunDOS("sc config Nla start= DISABLED")
_RunDOS("sc config NtLmSsp start= DISABLED")
_RunDOS("sc config NtmsSvc start= DEMAND")
_RunDOS("sc config ose start= DEMAND")
_RunDOS("sc config PlugPlay start= AUTO")
_RunDOS("sc config PolicyAgent start= DEMAND")
_RunDOS("sc config ProtectedStorage start= AUTO")
_RunDOS("sc config RasAuto start= DEMAND")
_RunDOS("sc config RasMan start= DEMAND")
_RunDOS("sc config RDSessMgr start= DISABLED")
_RunDOS("sc config remoteAccess start= DISABLED")
_RunDOS("sc config remoteRegistry start= DISABLED")
_RunDOS("sc config RpcLocator start= DISABLED")
_RunDOS("sc config RpcSs start= AUTO")
_RunDOS("sc config SamSs start= AUTO")
_RunDOS("sc config SCardSvr start= DISABLED")
_RunDOS("sc config Schedule start= DISABLED")
_RunDOS("sc config seclogon start= AUTO")
_RunDOS("sc config SENS start= AUTO")
_RunDOS("sc config SharedAccess start= DEMAND")
_RunDOS("sc config ShellHWDetection start= AUTO")
_RunDOS("sc config Spooler start= DEMAND")
_RunDOS("sc config stisvc start= DEMAND")
_RunDOS("sc config swprv start= DISABLED")
_RunDOS("sc config SysmonLog start= DISABLED")
_RunDOS("sc config TapiSrv start= DEMAND")
_RunDOS("sc config TermService start= DISABLED")
_RunDOS("sc config Themes start= AUTO")
_RunDOS("sc config TrkWks start= DISABLED")
_RunDOS("sc config UMWdf start= DEMAND")
_RunDOS("sc config UPS start= DISABLED")
_RunDOS("sc config VSS start= DISABLED")
_RunDOS("sc config W32Time start= DISABLED")
_RunDOS("sc config WebClient start= DISABLED")
_RunDOS("sc config winmgmt start= AUTO")
_RunDOS("sc config WmdmPmSN start= DISABLED")
_RunDOS("sc config Wmi start= DEMAND")
_RunDOS("sc config WmiApSrv start= DISABLED")
_RunDOS("sc config wuauserv start= DISABLED")
_RunDOS("sc config WZCSVC start= DISABLED")
_RunDOS("sc config xmlprov start= DEMAND")
_RunDOS("sc config DcomLaunch start= AUTO")
_RunDOS("sc config FastUserSwitchingCompatibility start= DEMAND")
_RunDOS("sc config srservice start= DISABLED")
_RunDOS("sc config SSDPSRV start= DISABLED")
_RunDOS("sc config TlntSvr start= DISABLED")
_RunDOS("sc config upnphost start= DEMAND")
_RunDOS("sc config wscsvc start= DISABLED")

; 开始注册表优化程序

; 开启使用空白密码的本地账户只允许进行控制台登录
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa","limitblankpassworduse","REG_DWORD","1")
; 关闭默认共享
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters","AutoShareServer","REG_DWORD","0")
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters","AutoShareWks","REG_DWORD","0")
; 显示认证码
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Security","BlockXBM","REG_DWORD","0")
; 禁用桌面清理向导
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz","NoRun","REG_DWORD","1")
; 禁用错误报告，但在发生严重错误时通知我
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PCHealth\ErrorReporting","DoReport","REG_DWORD","0")
; 禁止Windows漫游气球提醒
RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Applets\Tour","RunCount","REG_DWORD","0")
; 开启启动预读,减少开机滚动条滚动次数
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PrefetchParameters","EnablePrefetcher","REG_DWORD","1")
; 缩短XP的开关机的等待时间
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control","WaitToKillServiceTimeout","REG_EXPAND_SZ","500")
; 关闭分组相似任务栏按钮
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","TaskbarGlomming","REG_DWORD","0")
RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","TaskbarGlomming","REG_DWORD","0")

; 系统失败
; 不将事件写入系统日志
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\CrashControl","LogEvent","REG_DWORD","0")
; 不发送管理警报
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\CrashControl","SendAlert","REG_DWORD","0")
; 禁用自动重启动
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\CrashControl","AutoReboot","REG_DWORD","0")
; 不写入调试信息
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\CrashControl","CrashDumpEnabled","REG_DWORD","0")

; 关闭磁盘空间不足的警告
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","NoLowDiskSpaceChecks","REG_DWORD","1")
; 加快菜单显示速度
RegWrite("HKEY_CURRENT_USER\Control Panel\desktop","MenuShowDelay","REG_SZ","0")
; 不保留网页历史中的访问记录
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Url History","DaysToKeep","REG_DWORD","0")
; 不加载多余的DLL文件
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer","AlwaysUnloadDLL","REG_DWORD","1")
; 自动关闭停止响应的程序
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop","AutoEndTasks","REG_DWORD","1")
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop","HungAppTimeout","REG_EXPAND_SZ","200")
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop","WaitToKillAppTimeout","REG_EXPAND_SZ","1000")
; 去除快捷方式的箭头
RegDelete("HKEY_CLASSES_ROOT\lnkfile", "IsShortcut")
; 去除快捷方式字样
RegWrite("HKEY_CLASSES_ROOT\lnkfile","","REG_SZ","")

redapple

不知楼主那里找的这么好的东东！
谢谢共享！