批处理之家 - Powered by Discuz! Board

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