中国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

Originally posted by HAT at 2007-12-28 11:10 AM:

@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 /y ... 

Originally posted by HAT at 2007-12-28 11:28 AM:
2000系统可以调用VBS来关机
自己加上去吧
Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
For Each o ...

Originally posted by HAT at 2007-12-28 11:49 AM:
请问你的“多余启动项”是什么东西？

@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   %~fsnx0 bak

ECHO   %~dpnx0 -bak

ECHO   "%~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 " >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=              

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 ::::::::::::::::::::::由开始菜单启动的项目::::::::::::::::::::::>%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 ::::::::::::::::::::::由注册表直接启动的项目::::::::::::::::::::::>>%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=是否显示当前已启动服务?

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=是否导出当前所有启动项作为备份?

::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

Originally posted by everest79 at 2007-12-28 12:30:
这个批处理来自xpsp2op.exe

@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&& ...