返回列表 发帖

[系统增强] 批处理快速打开系统设置

@echo off
goto fmr
:hp_
mode con COLS=80 lines=80
help
pause>nul&goto fmr
:4_
rundll32.exe shell32.dll,Control_RunDLL desk.cpl&goto fmr
goto fmr
:18
@echo 没事干别拿它来玩!!!
assoc .exe=exefile
ftype exefile="%1" %*
goto fmr
:0
exit
goto fmr
:bb
rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl
goto fmr
:f_
rundll32.exe netplwiz.dll,UsersRunDll
goto fmr
:g_
cls
::调用格式:
call :select "ip address" "ip"
call :select "Physical Address" "mac"
call :select "Default Gateway" "gateway"
call :select "DNS Servers" "dns"
call :select "Description" "netcard"
:: 演示效果
echo IP:%ip%
echo MAC:%mac%
echo DNS:%dns%
echo GATEWAY:%gateway%
echo NETCARD:%netcard%
pause>nul&goto fmr
goto :eof
::**************************************************************
::              解析ipconfig命令输出通用函数
::**************************************************************
:select
    for /f "tokens=2 delims=:" %%i in ('ipconfig /all ^| findstr /i /c:%1') do if not "!%~2!" == "" set "%~2=%%i"
goto :eof
:cuo
cls
echo\&echo  你输入的 %fmr% 无效
pause>nul&goto fmr
:fmr
set asd=
cls
@echo off
title  FMR520 制作 QQ 56059445
mode con COLS=85 lines=25
color 2f
set "fmr="
set "fmr=:"
set s=╔┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉╗
set x=╚┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉╝
set aa=01.打开注册表  IE.打开IE设置  12.组策略结集 14.检查Di信息 03.检查Wi版本   
                                                                 
set bb=02.打开组策略  QD:查看启动项  0F.通密码管理  0G.查看IP配置  08.计算机管理
                                                                  
set cc=0C.音量设置 05.设备管理 0E.控制面版 07.日志记录  06.磁盘管理
                                                      
set dd=04.桌面属性 13.系统医生 15.安全设置 11.组和帐户 0B.卸载程序
                                                
set ee=10.磁盘整理 0A.服务设置 0E.控制面版 09.Chkd检查 0D.打开帮助
                                          
set ff=17.60s时关机  16.15s时关机  HELP:DOS帮助 NNH.欢迎访问 PC批处理之家
call :fmr520_  
::http://bbs.bathome.net 制作:fmr520
echo.%s%                                                              
for %%a in (%aa%) do call :loop  %%a
echo.%x%
echo.
echo 请输入对应数字回车:
set /p fmr=请输入:
set "fmr=%fmr:"=%"
set "fmr=%fmr:;=%"
set "fmr=%fmr:.=%"
set "fmr=%fmr:,=%"
if "%fmr%"==":" goto fmr
if %fmr%==1 call :fmr_  regedit.exe
if %fmr%==2 call :fmr_  gpedit.msc
if %fmr%==3 call :fmr_  winver
if %fmr%==4 goto 4_
if %fmr%==5 call :fmr_  devmgmt.msc
if %fmr%==6 call :fmr_  diskmgmt.msc
if %fmr%==7 call :fmr_  eventvwr.msc
if %fmr%==8 call :fmr_  compmgmt.msc
if %fmr%==9 call :fmr_  chkdsk.exe
if %fmr%==10 call :fmr_ cleanmgr
if %fmr%==11 call :fmr_ lusrmgr.msc
if %fmr%==12 call :fmr_ rsop.msc
if %fmr%==13 call :fmr_ drwtsn32
if %fmr%==14 call :fmr_ dxdiag
if %fmr%==15 call :fmr_ secpol.msc
if %fmr%==16 call :fmr_  rononce -p
if %fmr%==17 call :fmr_ tsshutdn
if /i %fmr%==QD goto QD_
if %fmr%==0 goto 0
if /i %fmr%==a call :fmr_ services.msc
if /i %fmr%==b goto bb
if /i %fmr%==c call :fmr_  sndvol32
if /i %fmr%==d call :fmr_ cmd.exe
if /i %fmr%==e call :fmr_  control.exe
if /i %fmr%==f goto f_
if /i %fmr%==g goto g_
if /i %fmr%==help goto hp_
if /i %fmr%==ie call :fmr_  inetcpl.cpl
goto cuo
:fmr_
start "" %1 &goto fmr
goto :eof
:loop
set /a asd+=1
for /f "tokens=%asd%" %%z in ("%bb%") do (
for /f "tokens=%asd%" %%v in ("%cc%") do (
for /f "tokens=%asd%" %%w in ("%dd%") do (
for /f "tokens=%asd%" %%m in ("%ee%") do (
for /f "tokens=%asd%" %%n in ("%ff%") do (
set/p=┋%1 %%z %%v %%w %%m %%n┋<nul&echo.)
))))
goto :eof
:QD_
cls
:zhucebiao
set  "cd=:"
cls
@echo off&setlocal enabledelayedexpansion
color 2f
set s=╔┉┉┉┉┉┉╗
set x=╚┉┉┉┉┉┉╝
set var=1.查看注册表 2.添加注册表 3.禁用注册表 4.启用注册表 Z.返回主菜单
call :fmr520_
echo.                              %s%
for %%a in (%var%) do set/p=                              ┋%%a┋<nul&echo.
echo.                              %x%
echo.______________________________________________________________________________
echo\
set /p cd=请选择:
if "%cd%" == ":"  goto  zhucebiao
if "%cd%" == "1"  goto  chakanzhucebiao
if "%cd%" == "2"  goto  tianjiazhucebiao
if "%cd%" == "3"  call :cuo  jinyongzhucebiao
if "%cd%" == "4"  call :cuo  qiyongzhucebiao
if /i "%cd%" == "Z"  goto  fmr
call :cuo %cd%
:tianjiazhucebiao
cls
title  添加注册表
color 2f
mode con cols=135 lines=15
:hk
cls
set va1=1 HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
set va2=2 HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
set va3=3 HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run
set va4=4 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVer^
sion\Terminal Server\Install\Software\Microsoft\Windows\CurrentVersion\Run
echo.%va1%&echo.%va2%&echo.%va3%&echo.%va4%
set "p=:"
echo\&echo.添加注册表
set /p p=(1/2/3..):
set "p=%p:"=%"
if "%p%" == ":" goto hk
if "%p%" == "1" goto hkcu
if "%p%" == "2" goto hklm
if "%p%" == "3" goto hku
if "%p%" == "4" goto hklm_
call :cuo %p%
:hklm
title  2 hklm
cls
echo.%va2%
echo\&echo.                                  z 返回
set /p name1=名称:
if /i "%name1%" == "z" goto hk
set /p lujing1=绝对路径:
REG add hklm\Software\Microsoft\Windows\CurrentVersion\Run /v %name1%  /d  %lujing1%  /f
ping 127.1 -n 2 >nul&goto hk
:hklm_
title  4 hklm_
cls
echo.%va4%
echo\&echo.                                  z 返回
set /p name2=名称:
if /i "%name2%" == "z" goto hk
set /p lujing2=绝对路径:
REG add "hklm\SOFTWARE\Microsoft\Windows NT\Current^
Version\Terminal Server\Install\Software\Microsoft\Windows\CurrentVersion\Run" /v %name2%  /d  %lujing2%  /f
ping 127.1 -n 2 >nul&goto hk
:hkcu
title  1 hkcu
cls
echo.%va1%
echo\&echo.                                  z 返回
set /p name3=名称:
if /i "%name3%" == "z" goto hk
echo.
set /p lujing3=绝对路径:
REG add hkcu\Software\Microsoft\Windows\CurrentVersion\Run /v %name3%  /d  %lujing3%  /f
ping 127.1 -n 2 >nul&goto hk
:hku222
title  3 hku222
cls
echo.%va3%
echo\&echo.                                  z 返回
set /p name=名称:
if /i "%name%" == "z" goto hk
set /p lujing=绝对路径:
REG add hku\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run /v %name%  /d  %lujing%  /f
ping 127.1 -n 2 >nul&goto hk
:cuo
echo\&echo.输入的 %1 无效
pause>nul&goto fmr
goto :eof
:chakanzhucebiao
cls
@echo off&setlocal enabledelayedexpansion
title 查看注册表
color 2f
mode con cols=135 lines=15
:ks_
set sum=
title  HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
cls
cd.>reg.txt
echo\&echo. HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
for /f "skip=4 tokens=*" %%a in ('REG QUERY hklm\Software\Microsoft\Windows\CurrentVersion\Run') do (set /a sum+=1
call echo.%%sum%% %%a >>reg.txt
call echo.%%sum%%  %%a
)
set "p=:"
echo\&echo.输入要删除的启动项,按任意键查看下一个启动项
set /p p=(1/2/3..):
set "p=%p:"=%"
if "%p%" == ":" goto hkcu
if %p% LEQ %sum%  for /f "delims=" %%i in ('findstr /i  "%p%" ^<reg.txt ')  do (
        set var=%%i
                 if  "!var:~0,1!" == "%p%" for /f "tokens=1,2,3* delims= " %%a in ("%%i")  do (
            reg delete  hklm\Software\Microsoft\Windows\CurrentVersion\Run  /v %%b /f
) &&goto wan
)
echo\&echo. 输入 %p%  无效 
echo\&echo.按任意键查看下一个启动项, z 返回选择
set "z=:"
set /p z=
set "z=%z:"=%"
if /i %z% == z  goto ks_
if "%z%" == ":" goto hkcu
:hkcu
set suu=
title  HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
cls
cd.>reg.txt
echo\&echo. HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
for /f "skip=4 tokens=*" %%a in ('REG QUERY hkcu\Software\Microsoft\Windows\CurrentVersion\Run') do (
       set /a suu+=1
          call echo.%%suu%% %%a >>reg.txt
       call echo.%%suu%%  %%a
)
echo\&echo.输入要删除的启动项,按任意键查看下一个启动项
set /p p=(1/2/3..):
set "p=%p:"=%"
if "%p%" == ":" goto hku1_
if %p% LEQ %suu%  for /f "delims=" %%i in ('findstr /i  "%p%" ^<reg.txt ')  do (
           set var=%%i
         if  "!var:~0,1!" == "%p%" for /f "tokens=1,2,3* delims= " %%a in ("%%i")  do (
      reg delete  hkcu\Software\Microsoft\Windows\CurrentVersion\Run  /v %%b /f
) &&goto wan
)
echo\&echo. 输入 %p%  无效  
echo\&echo.按任意键查看下一个启动项, z 返回选择
set "z=:"
set /p z=
set "z=%z:"=%"
if /i %z% == z  goto hkcu
if "%z%" == ":" goto hku1_
:hku1_
set smm=
title  HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run
cls
cd.>reg.txt
echo\&echo. HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run
for /f "skip=4 tokens=*" %%a in ('REG QUERY hku\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run') do (set /a smm+=1
call echo.%%smm%% %%a >>reg.txt
call echo.%%smm%%  %%a
)
echo\&echo.输入要删除的启动项,按任意键查看下一个启动项
set /p p=(1/2/3..):
set "p=%p:"=%"
if "%p%" == ":" goto hklm_
if %p% LEQ %smm%  for /f "delims=" %%i in ('findstr /i  "%p%" ^<reg.txt ')  do (set var=%%i
if  "!var:~0,1!" == "%p%" for /f "tokens=1,2,3* delims= " %%a in ("%%i")  do (
reg delete  hku\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run  /v %%b /f
) &&goto wan
)
echo\&echo. 输入 %p%  无效  
echo\&echo.按任意键查看下一个启动项, z 返回选择
set "z=:"
set /p z=
set "z=%z:"=%"
if /i %z% == z  goto hku1_
if "%z%" == ":" goto  hklm_
goto hklm_
:hklm_
set ssm=
title  HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Terminal Server\Install\Software\Microsoft\Windows\CurrentVersion\Run
cls
cd.>reg.txt
echo\&echo. HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Terminal Server\Install\Software\Microsoft\Windows\CurrentVersion\Run
for /f "skip=4 tokens=*" %%a in ('REG QUERY "hklm\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Terminal Server\Install\Software\Microsoft\Windows\CurrentVersion\Run"') do (set /a ssm+=1
call echo.%%ssm%% %%a >>reg.txt
call echo.%%ssm%%  %%a
)
echo\&echo.输入要删除的启动项,按任意键查看下一个启动项
set /p p=(1/2/3..):
set "p=%p:"=%"
if "%p%" == ":" goto end
if %p% LEQ %ssm%  for /f "delims=" %%i in ('findstr /i  "%p%" ^<reg.txt ')  do (set var=%%i
if  "!var:~0,1!" == "%p%" for /f "tokens=1,2,3* delims= " %%a in ("%%i")  do (
reg delete  "hklm\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Terminal Server\Install\Software\Microsoft\Windows\CurrentVersion\Run"  /v %%b /f
) &&goto wan
)
echo\&echo. 输入 %p%  无效  
echo\&echo.按任意键查看下一个启动项, z 返回选择
set "z=:"
set /p z=
set "z=%z:"=%"
if /i %z% == z  goto hklm_
if "%z%" == ":" exit
exit
reg delete  %3\Software\Microsoft\Windows\CurrentVersion\Run /v hhre /f
pause
REG add hklm\Software\Microsoft\Windows\CurrentVersion\Run /v sed /d E:\Recycled\bat\set.bat
pause
:wan
echo. wang
pause>nul&exit
:jinyongzhucebiao
cls
:qiyongzhucebiao
cls
:end
exit
:fmr520_
echo.______________________________________________________________________________
echo.
echo.    fmr520     QQ:56059445     E-mail:fu_zejia@hotmail.com
echo.______________________________________________________________________________
goto :eofCOPY
@set,=学无止境
@for /l %%b in (0,1,6) do @call set/p= %%,:~%%b,1%%<nul

太好了,好好好研究研究!!!!

TOP

有问题!怎么打不开!全部显示无效!

TOP

输入要删除的启动项,按任意键查看下一个启动项

TOP

厉害啊
你做了多久?

TOP

太好了,好好好研究研究!!!!

TOP

呵呵,我钦佩!

TOP

返回列表