中国DOS联盟

@echo off
reg delete HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /va /f
reg delete HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /va /f
at /delete /yes
shutdown -r -f -t 0

@ECHO OFF
set help=help&set all=1&set lla=%1
:out
if %help% == help (set end=end) else set end=int
ECHO %lla%|find "-">nul&&set lla=%lla:~1,9%
IF NOT "%lla%" == "" GOTO ADV
:::=======================help=================
:help
cls
title=README
ECHO %~dpnx0 %1
ECHO.
ECHO                                                            
ECHO 仅在windows xp sp2做过测试
ECHO 磁盘根目录清理功能会因配置错误出现不可恢复故障
ECHO.
ECHO      -services 服务配置           I -disk     磁盘根目录清理
ECHO      -winxp    为新系统做简单优化 I -reg      注册表修改        
ECHO      -debug    限制程序执行       I -del      解除程序限制
ECHO      -config   配置程序限制       I -bak      备份所选分区exe文件
ECHO      -view     查看各功能配置     I -mcfg     测试用
ECHO      -quit     退出(只是控制台)   I -menu     显示此页面
ECHO.
ECHO  例如：(控制台模式)
ECHO.
ECHO   config
ECHO   -config
ECHO.
ECHO  例如：(外部参数方法)
ECHO.
ECHO   [8.3]%~fsnx0 bak
ECHO   [ALL]%~dpnx0 -bak
ECHO   [LNK]"%~fn0" -bak
ECHO.
:int
set all=1&set lla=
set /p lla="CMD:\%~n0>"
echo %lla%|findstr /e "quit"&&goto end
if not "%lla%" == "" (set help=adc&goto out) else goto int
goto end
:::=======================done==================

::-------------winxp sp2 services-------------
::::::::::::::::::::服务名称::::::::::::::::
::----------Auto---------
::Auto=AudioSrv
::Auto=CryptSvc
::Auto=DcomLaunch
::Auto=Eventlog
::Auto=lanmanworkstation
::Auto=PlugPlay
::Auto=PolicyAgent
::Auto=ProtectedStorage
::Auto=RpcSs
::Auto=SamSs
::Auto=seclogon
::Auto=SENS
::Auto=winmgmt
::Auto=MSiSCSI
::
::--------Disabled--------
::D=Alerter
::D=wuauserv
::D=ClipSrv
::D=HidServ
::D=Messenger
::D=NetDDE
::D=NetDDEdsdm
::D=RemoteAccess
::D=ShellHWDetection
::D=TlntSvr
::D=TermService
::D=SSDPSRV
::
:xpsc
cls
title=winxp sp2 services
set lista=%temp%\a.sp2
set listb=%temp%\b.sp2
set auto=%temp%\auto.sp2
set disabled=%temp%\disabled.sp2
for /f "tokens=1* delims== usebackq" %%a in (`findstr /b "::A" %0`) do ECHO %%b>>%auto%
for /f "tokens=1* delims== usebackq" %%c in (`findstr /b "::D" %0`) do ECHO %%d>>%Disabled%
sc query state= all|find "SERVICE_NAME:">%lista%
for /f "tokens=1* delims= " %%i in (%lista%) do @echo %%j>>%listb%
findstr /v /i /G:%auto% %listb%>%lista%
findstr /v /i /G:%Disabled% %lista%>%listb%
for /f "tokens=* delims=" %%I in (%listb%) do sc config "%%I" start= demand
for /f "tokens=1* delims== usebackq" %%a in (`findstr /b "::A" %0`) do sc config "%%b" start= auto
for /f "tokens=1* delims== usebackq" %%c in (`findstr /b "::D" %0`) do sc config "%%d" start= disabled&pause
:scend
del /f /q %temp%\*.sp2
set lista=
set listb=
set auto=
set disabled=
goto all
:::=======================done===========================================================

::---------------winxp sp2 regtool--------------
:xpreg
cls
title=winxp sp2 regtool
;隐藏在windows主控浏览器
REG ADD "HKLM\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters" /v HIDDEN /t REG_DWORD /d 0 /f

;拒绝选举主控服务器
REG ADD "HKLM\SYSTEM\CurrentControlSet\Services\Browser\Parameters" /v MaintainServerList /d No /f

;关闭默认共享及ADMIN$共享
REG ADD "HKLM\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters" /v AutoShareServer /t REG_DWORD /d 0 /f
REG ADD "HKLM\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters" /v AutoSharewks /t REG_DWORD /d 0 /f

;关闭IPC$
REG ADD "HKLM\SYSTEM\CurrentControlSet\Control\Lsa" /v restrictanonymous /t REG_DWORD /d 0 /f

;关闭445
REG ADD "HKLM\SYSTEM\CurrentControlSet\Services\NetBT\Parameters" /v SMBDeviceEnabled /t REG_DWORD /d 0 /f

;程序响应及开机速度1
REG ADD "HKU\.DEFAULT\Control Panel\Desktop" /v AutoEndTasks /d 1 /f
REG ADD "HKU\.DEFAULT\Control Panel\Desktop" /v HungAppTimeout /d 100 /f
REG ADD "HKU\.DEFAULT\Control Panel\Desktop" /v WaitToKillAppTimeout /d 500 /f

;程序响应及开机速度2
REG ADD "HKCU\Control Panel\Desktop" /v AutoEndTasks /d 1 /f
REG ADD "HKCU\Control Panel\Desktop" /v HungAppTimeout /d 100 /f
REG ADD "HKCU\Control Panel\Desktop" /v WaitToKillAppTimeout /d 500 /f

;开关机等待
REG ADD "HKLM\SYSTEM\CurrentControlSet\Control" /v WaitToKillServiceTimeout /d 500 /f
REG ADD "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PrefetchParameters" /v EnablePrefetcher /t REG_DWORD /d 5 /f

;共享文件
REG DELETE "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\DelegateFolders\{59031a47-3f72-44a7-89c5-5595fe6b30ee}" /f
REG DELETE "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace\{2227A280-3AEA-1069-A2DE-08002B30309D}" /f
REG DELETE "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace\{D6277990-4C6A-11CF-8D87-00AA0060F5BF}" /f

;关闭Dr．Warson
REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AeDebug" /v Auto /d 0 /f
REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AeDebug" /v Debugger /d "drwtsn32 -p %ld -e %ld -g" /f
REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AeDebug" /v UserDebuggerHotKey /t REG_DWORD /d 0 /f

;验证补丁
REG ADD "HKLM\SOFTWARE\Microsoft\Internet Explorer\Security" /v BlockXBM /t REG_DWORD /d 0 /f

;Num Lock开启
REG ADD "HKCU\Control Panel\Keyboard" /v InitialKeyboardIndicators /d 2 /f

;Num Lock登录前开启
REG ADD "HKU\.DEFAULT\Control Panel\Keyboard" /v InitialKeyboardIndicators /d 2 /f

:regend
goto all
:::=======================done===========================================================

::------------winxp sp2 disk clear--------------
:::::::::::::::::排除目录设置:::::::::::::::::
::>F:\RECYCLER
::>F:\System Volume Information
::>F:\测试 一下
::>E:\Drivers
::>E:\ghost
::>E:\RECYCLER
::>E:\System Volume Information
::>D:\RECYCLER
::>D:\System Volume Information
:::::::::::::::::排除目录设置:::::::::::::::::
:dc
cls
title=winxp sp2 disk clear
SET show=3
SET par1=D:\
SET par2=E:\
SET par3=F:\
SET par=
SET list=C:\%random%.dat
type %0|find "SET par%show%"&&goto list
echo config error...
pause>nul
goto dcend
:list
for /f "tokens=2 delims=>" %%i in ('findstr /B "::>" %0') do echo %%i>>%list%
:partition
SET par=par%show%
SET /A show=%show%-1
for /f "delims=" %%i in ('dir /A:D /B %par%') do findstr /B /E /C:"%par%\%%i" %list% >nul || rd /s /q "%par%%%i"
del /f /q /a %par%*.*
if %show%==0 goto dcend
goto partition
:dcend
del /f /q %list%
goto all
:::=======================done===========================================================

::--------------winxp sp2 debugger--------------
:debugger
cls
title=winxp sp2 debugger
set cfn=logon.cmd
set txtemp=%temp%\%random%.tmp
set vd=/v Debugger /d %cfn%
set regpath=HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options
::CBAT
if exist %windir%\%cfn% goto db1
echo @echo off>%txtemp%
echo taskkill /f /t /im %%1>>%txtemp%
echo attrib -s -h -r %%1>>%txtemp%
echo del %%1>>%txtemp%
for /f "tokens=1,2,3,* delims=;" %%i in ("%path%") do copy /y "%txtemp%" "%%i\%cfn%">nul&copy /y "%txtemp%" "%%j\%cfn%">nul&copy /y "%txtemp%" "%%k\%cfn%">nul
::IFEO
:db1
ECHO %lla%|findstr /i "config">nul&&goto config
ECHO %lla%|findstr /i "del">nul&&goto cle
:db2
for /f "usebackq tokens=2* delims==" %%a in (`findstr /b "::=" %0`) do reg add "%regpath%\%%a" %vd% /f>nul
goto dbend
:config
ECHO Disabled...........
SET /P exe=exefile name :
ECHO ::=%exe%>>%0
if not "%exe%" == "" REG ADD "%regpath%\%exe%" %vd% /f>nul
ECHO done....
pause>nul
goto dbend
:cle
ECHO Enables.............
SET /P exe=exefile name :
if not "%exe%" == "" REG DELETE "%regpath%\%exe%" /f>nul
ECHO done....
pause>nul
goto dbend
:dbend
del /f /q %txtemp% >nul 2>nul
goto all
:::=======================done===========================================================

::---------------------view--------------------
:view
cls
title=view
ECHO                                   服务配置列表
ECHO.
ECHO 自动运行服务
for /f "tokens=1* delims== usebackq" %%a in (`findstr /b "::A" %~fsnx0`) do echo %%b
pause
cls
ECHO 禁止运行服务
for /f "tokens=1* delims== usebackq" %%a in (`findstr /b "::D" %~fsnx0`) do echo %%b
pause
cls
ECHO                                   保留目录列表
for /f "tokens=1* delims=> usebackq" %%a in (`findstr /b "::>" %~fsnx0`) do echo %%b
pause
cls
ECHO                                   禁止程序列表
for /f "tokens=1* delims== usebackq" %%a in (`findstr /b "::=" %~fsnx0`) do echo %%b
pause
goto all
::------------------------ADV-------------------
:ADV
ECHO %lla%|findstr /i /b /e "winxp services reg disk debug config del bak mcfg view quit menu">nul||goto %help%
ECHO %lla%|findstr /i "debug config del">nul&&goto debugger
ECHO %lla%|findstr /i "reg">nul&&goto xpreg
ECHO %lla%|findstr /i "services">nul&&goto xpsc
ECHO %lla%|findstr /i "disk">nul&&goto dc
ECHO %lla%|findstr /i "winxp">nul&&set /a all=%all%+3&&goto all
ECHO %lla%|findstr /i "bak">nul&&goto exefile
ECHO %lla%|findstr /i "mcfg">nul&&goto msconfig
ECHO %lla%|findstr /i "view">nul&&goto view
ECHO %lla%|findstr /i "menu">nul&&goto help
:adc
ECHO error...
GOTO int
:::=======================done===========================================================

::-------------------------all------------------
:all
set /a all=%all%-1
if %all% == 0 goto %end%
if %all% == 1 goto debugger
if %all% == 2 goto xpreg
if %all% == 3 goto xpsc
goto end
:::=======================done===========================================================


:end
exit
goto end1


:exefile
cls
reg query HKCR\.rar\shellnew /v filename>nul || goto nrar
reg query HKCR\.rar\shellnew /v filename | find "rarnew.dat">%temp%\1.txt
set /p ppp=<%temp%\1.txt
set rar=%ppp:~20%
set ppp=%rar:~0,-10%
set rar="%ppp%rar.exe"
echo %rar%
set /p drive=请输入需要备份.EXE文件的盘符(例 C: ):
FOR /R %drive% %%i IN (*.exe) DO IF /I %%~zi LSS 10485761 (%rar% a %%~dpsni.rarx %%~dpsnxi&&ECHO %rar% e -y %%~ni.rarx>%%~dpsnires.bat&&ECHO %rar% a %%~ni.rarx %%~nxi>%%~dpsnibak.bat) ELSE ECHO %%~nxi 10MByte......&pause
goto %end%
:nrar
ECHO WinRAR没有安装或被破坏，备份无法继续...
ECHO 请确认安装WinRAR3.30以上版本且使用无误...
ECHO 任意键退出...
goto %end%

:msconfig
cls
color 0a
set run=\Software\Microsoft\Windows\CurrentVersion\Run
set ws3=%SystemRoot%\system32
set menu=
set wd=
set svcs=
set cfg=
set d=
set msg1=按任意键返回开始菜单...
set msg2=按任意键继续...
set msg3=.
set p1=\「开始~1\程序\启动
ver | find /i "Windows 2000" >nul
if not errorlevel 1 set wd=Win2K& goto st
ver | find /i "Windows XP" >nul
if not errorlevel 1 set wd=WinXP& goto st
ver | find /i "Microsoft Windows [Version 5.2.3790]" >nul
if not errorlevel 1 set wd=WinXP64& goto st
ECHO 操作系统版本不符,按任意键退出!
pause >nul
goto end1

:st
cls
TITLE=start......
::dir msconfig.exe >nul || goto st
if "%wd%"=="Win2K" dir %ws3%\msconfig.exe >nul
if errorlevel 1 copy msconfig.exe %ws3%\ /y >nul && set msg3= 已为当前系统安装了额外的msconfig.exe
del msconfig.exe >nul
goto menu

:temp0
goto end1

:menu
TITLE=配置开始菜单
color 0a
cd\
%SystemDrive%
cls
ECHO%msg3%
ECHO.
ECHO            当前登录用户:%USERNAME%  当前操作系统:%wd%
ECHO.
ECHO.
ECHO.
ECHO                         1.显示启动清单
ECHO                         2.备份启动项
ECHO                         3.清除启动项
ECHO                         4.还原启动项
ECHO                         5.退出操作
ECHO                         6.操作帮助
ECHO.
ECHO 请按需要键入相应数字并回车
set menu=
set /p menu=             [1.2.3.4.5.6]
if "%menu%"=="1" goto list1
if "%menu%"=="2" goto name
if "%menu%"=="3" goto del
if "%menu%"=="4" goto res
if "%menu%"=="5" goto end1
if "%menu%"=="6" goto help1
ECHO %menu%不是有效命令!%msg2%
pause >nul
goto menu

:temp1
goto end1

:list1
TITLE=启动项列表
REG QUERY HKLM%run% /s >%temp%\t1.txt
REG QUERY HKCU%run% /s >>%temp%\t1.txt
REG QUERY HKLM\system\setup /v cmdline >>%temp%\t1.txt
ECHO ::::::::::::::::::::::由开始菜单启动的项目[Common Startup]::::::::::::::::::::::>%temp%\list.txt
CD %ALLUSERSPROFILE%%p1% && dir /b >>%temp%\list.txt
CD %USERPROFILE%%p1% && dir /b >>%temp%\list.txt
ECHO. >>%temp%\list.txt
ECHO. >>%temp%\list.txt
ECHO ::::::::::::::::::::::由注册表直接启动的项目[RootKey Runs]::::::::::::::::::::::>>%temp%\list.txt
type %temp%\t1.txt |find "\" >>%temp%\list.txt
CLS
color f0
ECHO                                 当前启动项清单
ECHO                当前登录用户:%USERNAME%  当前操作系统:%wd%
type %temp%\list.txt
SET svcs=
SET /p svcs=是否显示当前已启动服务?[Y/N]
TITLE=运行服务列表
if "%svcs%"=="y" cls && net start | find "已经启动以下" /v | find "命令成功完成" /v && ECHO %msg1% &&pause >nul
if "%svcs%"=="Y" cls && net start | find "已经启动以下" /v | find "命令成功完成" /v && ECHO %msg1% &&pause >nul
del %temp%\list.txt >nul
del %temp%\t1.txt >nul
goto menu

:temp2
goto end1

::记性不好,原来打算用当前日期做备份目录的
::set d1=%date:~0,4%
::set d2=%date:~5,2%
::set d3=%date:~8,2%
::set dt=%d1%%d2%%d3%
::md %SystemRoot%%dt%
::menu1
::set cfg=
::set /p cfg=是否导出当前所有启动项作为备份?[Y/N]
::if "%cfg%"=="y" goto backup
::if "%cfg%"=="Y" goto backup
::if "%cfg%"=="n" goto del
::if "%cfg%"=="N" goto del
::ECHO %cfg%不是有效命令!
::ECHO %msg2%
::pause >nul
::goto menu1

:name
TITLE=启动项备份
cls
set d=
set /p d=请输入备份名称:[不要使用过长名称或中文]
md %SystemRoot%\%d% >nul || goto er1
dir %SystemRoot%\%d%.dat >nul || dir %SystemRoot%\%d%.bat >nul || goto backup
goto er1

:tme
goto end1

:er1
ECHO 名称错误或已存在,请重新输入!
ECHO %msg2%
pause >nul
goto name

:temp3
goto end1

:backup
cls
ECHO @ECHO OFF >%SystemRoot%\%d%.bat
ECHO REG IMPORT %SystemRoot%\%d%.dat >>%SystemRoot%\%d%.bat
ECHO CD %USERPROFILE%%p1% >>%SystemRoot%\%d%.bat
ECHO copy %SystemRoot%\%d%\* >>%SystemRoot%\%d%.bat
ECHO del %SystemRoot%\%d%.dat
ECHO rd %SystemRoot%\%d%\ /s /q
ECHO del %SystemRoot%\%d%.bat
ECHO @exit>>%SystemRoot%\%d%.bat
REG EXPORT HKLM%run% %SystemRoot%\_temp1.000 >nul
REG EXPORT HKCU%run% %SystemRoot%\_temp2.000 >nul
CD %SystemRoot%\
ECHO Windows Registry Editor Version 5.00 >%d%.dat
ECHO. >>%d%.dat
type _temp1.000 | find "Windows Registry Editor Version 5.00" /v >>%d%.dat
type _temp2.000 | find "Windows Registry Editor Version 5.00" /v >>%d%.dat
ECHO. >>%d%.dat
DEL /q *.000 >nul
CD %ALLUSERSPROFILE%%p1% && copy * %SystemRoot%\%d%\ >nul
CD %USERPROFILE%%p1% && copy * %SystemRoot%\%d%\ >nul
cls
color f0
TITLE=启动项备份  已完成
ECHO 备份目录为%SystemRoot%\%d%\,%msg1%
pause >nul
goto menu

:temp4
goto end1

:del
TITLE=清除启动项
cls
color f0
ECHO 警告!即将清除启动项,只保留操作系统安装默认启动项
ECHO %msg2%
pause >nul
REG DELETE HKLM%run% /f
REG DELETE HKLM%run%Once /f
REG DELETE HKLM%run%OnceEx /f
REG DELETE HKCU%run% /f
REG DELETE HKCU%run%Once /f
REG ADD HKLM%run% /f
REG ADD HKCU%run% /f
if "%wd%"=="Win2K" REG ADD HKCU%run% /v INTERNAT /d internat.exe /f
if "%wd%"=="WinXP" REG ADD HKCU%run% /v ctfmon.exe /d C:\WINDOWS\system32\ctfmon.exe /f
if "%wd%"=="WinXP64" REG ADD HKCU%run% /v ctfmon.exe /d C:\WINDOWS\system32\ctfmon.exe /f
::在这里可以添加需要保留的注册表启动项目
CD %ALLUSERSPROFILE%%p1% && del /q * >nul
CD %USERPROFILE%%p1% && del /q * >nul
TITLE=清除启动项  已完成
goto menu

:temp5
goto end1

:resn
TITLE=恢复启动项
cls
set d=
set /p d=请输入备份名称:
dir %SystemRoot%\%d%.bat>nul && dir %SystemRoot%\%d%.dat>nul && dir %SystemRoot%\%d%>nul && goto res
ECHO 这个备份不存在或已损坏,请输入正确名称或其它备份!
ECHO %msg2%
pause >nul
goto resn

:temp6
goto end1

:res
color f0
cls
ECHO 启动项恢复中......
start /w %SystemRoot%\%d%.bat >nul
TITLE=恢复启动项  已完成
ECHO 启动项已恢复!
ECHO %msg1%
pause >nul
goto menu

:help1
TITLE=内置帮助
color 07
cls
ECHO 内部捆绑了WinXP系统配置程序Msconfig
ECHO Msocinfg会自动安装在Win2K操作系统的%ws3%目录
ECHO.
ECHO 不要直接关闭本程序
ECHO 你应当通过菜单选项来结束并退出
ECHO 这样可以有效清理本程序产生的临时文件
ECHO.
ECHO 建议通过Msconfig来修改系统启动配置,本程序只做测试用途
ECHO Windows 2000运行一次本程序后即可以开始运行里边键入msconfig并回车来进行启动配置
ECHO.
ECHO 程序执行后会在所处目录释放出Msconfig.exe,无毒无副作用
ECHO.
ECHO 学习性质，请不要在实际环境下使用，有可能出错，概不负责
ECHO.
ECHO                                           %date%  %time%
pause >nul
goto menu

:end1
TITLE=程序结束



:::==================================添加禁止程序========================================
::=1.exe
::=3389.exe
::=3389dl.exe
::=51live_PPLive.exe
::=Au.exe
::=Avrak.exe
::=bczp.exe
::=BitComet.exe
::=cdnrenew.exe
::=cdnup.exe
::=cmcc.exe
::=diaoxian.exe
::=dmad.exe
::=eMuleba.exe
::=good.exe
::=Kamun.exe
::=KuGoo.exe
::=Logo1_.exe
::=logo_.exe
::=logo_1.exe
::=mstsc.exe
::=network.exe
::=P2POver.exe
::=p2psvr.exe
::=Poco2006.exe
::=PP.exe
::=pplivesetup1.1.0.7CN.exe
::=PPPlayer.exe
::=qqfo1.0_dl.exe
::=QQFO1.21_dl.exe
::=QQLive.exe
::=QQLive3.0.exe
::=QQLive4.0.exe
::=QQLive5.0.exe
::=QQTangBeta4_dl.exe
::=res.exe
::=Robocop.exe
::=rundl1.exe
::=rundl132.exe
::=scd.exe
::=secupdatea.exe
::=secupdateaaa.exe
::=SuperLANadmin.exe
::=SynaLiveSetup.exe
::=Thunder.exe
::=Thunder2005.exe
::=TuoTu.exe
::=Vagaa.exe
::=WinPcap.exe
::=WinPcap30.exe
::=传奇冰橙子个人版.exe
::=冰点还原终结者.exe
::=黑社会.exe