Board logo

标题: [系统增强] 批处理快速打开系统设置 [打印本页]

作者: fml520    时间: 2008-5-11 10:53     标题: 批处理快速打开系统设置

  1. @echo off
  2. goto fmr
  3. :hp_
  4. mode con COLS=80 lines=80
  5. help
  6. pause>nul&goto fmr
  7. :4_
  8. rundll32.exe shell32.dll,Control_RunDLL desk.cpl&goto fmr
  9. goto fmr
  10. :18
  11. @echo 没事干别拿它来玩!!!
  12. assoc .exe=exefile
  13. ftype exefile="%1" %*
  14. goto fmr
  15. :0
  16. exit
  17. goto fmr
  18. :bb
  19. rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl
  20. goto fmr
  21. :f_
  22. rundll32.exe netplwiz.dll,UsersRunDll
  23. goto fmr
  24. :g_
  25. cls
  26. ::调用格式:
  27. call :select "ip address" "ip"
  28. call :select "Physical Address" "mac"
  29. call :select "Default Gateway" "gateway"
  30. call :select "DNS Servers" "dns"
  31. call :select "Description" "netcard"
  32. :: 演示效果
  33. echo IP:%ip%
  34. echo MAC:%mac%
  35. echo DNS:%dns%
  36. echo GATEWAY:%gateway%
  37. echo NETCARD:%netcard%
  38. pause>nul&goto fmr
  39. goto :eof
  40. ::**************************************************************
  41. ::              解析ipconfig命令输出通用函数
  42. ::**************************************************************
  43. :select
  44.     for /f "tokens=2 delims=:" %%i in ('ipconfig /all ^| findstr /i /c:%1') do if not "!%~2!" == "" set "%~2=%%i"
  45. goto :eof
  46. :cuo
  47. cls
  48. echo\&echo  你输入的 %fmr% 无效
  49. pause>nul&goto fmr
  50. :fmr
  51. set asd=
  52. cls
  53. @echo off
  54. title  FMR520 制作 QQ 56059445
  55. mode con COLS=85 lines=25
  56. color 2f
  57. set "fmr="
  58. set "fmr=:"
  59. set s=╔┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉╗
  60. set x=╚┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉╝
  61. set aa=01.打开注册表  IE.打开IE设置  12.组策略结集 14.检查Di信息 03.检查Wi版本   
  62.                                                                  
  63. set bb=02.打开组策略  QD:查看启动项  0F.通密码管理  0G.查看IP配置  08.计算机管理
  64.                                                                   
  65. set cc=0C.音量设置 05.设备管理 0E.控制面版 07.日志记录  06.磁盘管理
  66.                                                       
  67. set dd=04.桌面属性 13.系统医生 15.安全设置 11.组和帐户 0B.卸载程序
  68.                                                 
  69. set ee=10.磁盘整理 0A.服务设置 0E.控制面版 09.Chkd检查 0D.打开帮助
  70.                                           
  71. set ff=17.60s时关机  16.15s时关机  HELP:DOS帮助 NNH.欢迎访问 PC批处理之家
  72. call :fmr520_  
  73. ::http://bbs.bathome.net 制作:fmr520
  74. echo.%s%                                                              
  75. for %%a in (%aa%) do call :loop  %%a
  76. echo.%x%
  77. echo.
  78. echo 请输入对应数字回车:
  79. set /p fmr=请输入:
  80. set "fmr=%fmr:"=%"
  81. set "fmr=%fmr:;=%"
  82. set "fmr=%fmr:.=%"
  83. set "fmr=%fmr:,=%"
  84. if "%fmr%"==":" goto fmr
  85. if %fmr%==1 call :fmr_  regedit.exe
  86. if %fmr%==2 call :fmr_  gpedit.msc
  87. if %fmr%==3 call :fmr_  winver
  88. if %fmr%==4 goto 4_
  89. if %fmr%==5 call :fmr_  devmgmt.msc
  90. if %fmr%==6 call :fmr_  diskmgmt.msc
  91. if %fmr%==7 call :fmr_  eventvwr.msc
  92. if %fmr%==8 call :fmr_  compmgmt.msc
  93. if %fmr%==9 call :fmr_  chkdsk.exe
  94. if %fmr%==10 call :fmr_ cleanmgr
  95. if %fmr%==11 call :fmr_ lusrmgr.msc
  96. if %fmr%==12 call :fmr_ rsop.msc
  97. if %fmr%==13 call :fmr_ drwtsn32
  98. if %fmr%==14 call :fmr_ dxdiag
  99. if %fmr%==15 call :fmr_ secpol.msc
  100. if %fmr%==16 call :fmr_  rononce -p
  101. if %fmr%==17 call :fmr_ tsshutdn
  102. if /i %fmr%==QD goto QD_
  103. if %fmr%==0 goto 0
  104. if /i %fmr%==a call :fmr_ services.msc
  105. if /i %fmr%==b goto bb
  106. if /i %fmr%==c call :fmr_  sndvol32
  107. if /i %fmr%==d call :fmr_ cmd.exe
  108. if /i %fmr%==e call :fmr_  control.exe
  109. if /i %fmr%==f goto f_
  110. if /i %fmr%==g goto g_
  111. if /i %fmr%==help goto hp_
  112. if /i %fmr%==ie call :fmr_  inetcpl.cpl
  113. goto cuo
  114. :fmr_
  115. start "" %1 &goto fmr
  116. goto :eof
  117. :loop
  118. set /a asd+=1
  119. for /f "tokens=%asd%" %%z in ("%bb%") do (
  120. for /f "tokens=%asd%" %%v in ("%cc%") do (
  121. for /f "tokens=%asd%" %%w in ("%dd%") do (
  122. for /f "tokens=%asd%" %%m in ("%ee%") do (
  123. for /f "tokens=%asd%" %%n in ("%ff%") do (
  124. set/p=┋%1 %%z %%v %%w %%m %%n┋<nul&echo.)
  125. ))))
  126. goto :eof
  127. :QD_
  128. cls
  129. :zhucebiao
  130. set  "cd=:"
  131. cls
  132. @echo off&setlocal enabledelayedexpansion
  133. color 2f
  134. set s=╔┉┉┉┉┉┉╗
  135. set x=╚┉┉┉┉┉┉╝
  136. set var=1.查看注册表 2.添加注册表 3.禁用注册表 4.启用注册表 Z.返回主菜单
  137. call :fmr520_
  138. echo.                              %s%
  139. for %%a in (%var%) do set/p=                              ┋%%a┋<nul&echo.
  140. echo.                              %x%
  141. echo.______________________________________________________________________________
  142. echo\
  143. set /p cd=请选择:
  144. if "%cd%" == ":"  goto  zhucebiao
  145. if "%cd%" == "1"  goto  chakanzhucebiao
  146. if "%cd%" == "2"  goto  tianjiazhucebiao
  147. if "%cd%" == "3"  call :cuo  jinyongzhucebiao
  148. if "%cd%" == "4"  call :cuo  qiyongzhucebiao
  149. if /i "%cd%" == "Z"  goto  fmr
  150. call :cuo %cd%
  151. :tianjiazhucebiao
  152. cls
  153. title  添加注册表
  154. color 2f
  155. mode con cols=135 lines=15
  156. :hk
  157. cls
  158. set va1=1 HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
  159. set va2=2 HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
  160. set va3=3 HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run
  161. set va4=4 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVer^
  162. sion\Terminal Server\Install\Software\Microsoft\Windows\CurrentVersion\Run
  163. echo.%va1%&echo.%va2%&echo.%va3%&echo.%va4%
  164. set "p=:"
  165. echo\&echo.添加注册表
  166. set /p p=(1/2/3..):
  167. set "p=%p:"=%"
  168. if "%p%" == ":" goto hk
  169. if "%p%" == "1" goto hkcu
  170. if "%p%" == "2" goto hklm
  171. if "%p%" == "3" goto hku
  172. if "%p%" == "4" goto hklm_
  173. call :cuo %p%
  174. :hklm
  175. title  2 hklm
  176. cls
  177. echo.%va2%
  178. echo\&echo.                                  z 返回
  179. set /p name1=名称:
  180. if /i "%name1%" == "z" goto hk
  181. set /p lujing1=绝对路径:
  182. REG add hklm\Software\Microsoft\Windows\CurrentVersion\Run /v %name1%  /d  %lujing1%  /f
  183. ping 127.1 -n 2 >nul&goto hk
  184. :hklm_
  185. title  4 hklm_
  186. cls
  187. echo.%va4%
  188. echo\&echo.                                  z 返回
  189. set /p name2=名称:
  190. if /i "%name2%" == "z" goto hk
  191. set /p lujing2=绝对路径:
  192. REG add "hklm\SOFTWARE\Microsoft\Windows NT\Current^
  193. Version\Terminal Server\Install\Software\Microsoft\Windows\CurrentVersion\Run" /v %name2%  /d  %lujing2%  /f
  194. ping 127.1 -n 2 >nul&goto hk
  195. :hkcu
  196. title  1 hkcu
  197. cls
  198. echo.%va1%
  199. echo\&echo.                                  z 返回
  200. set /p name3=名称:
  201. if /i "%name3%" == "z" goto hk
  202. echo.
  203. set /p lujing3=绝对路径:
  204. REG add hkcu\Software\Microsoft\Windows\CurrentVersion\Run /v %name3%  /d  %lujing3%  /f
  205. ping 127.1 -n 2 >nul&goto hk
  206. :hku222
  207. title  3 hku222
  208. cls
  209. echo.%va3%
  210. echo\&echo.                                  z 返回
  211. set /p name=名称:
  212. if /i "%name%" == "z" goto hk
  213. set /p lujing=绝对路径:
  214. REG add hku\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run /v %name%  /d  %lujing%  /f
  215. ping 127.1 -n 2 >nul&goto hk
  216. :cuo
  217. echo\&echo.输入的 %1 无效
  218. pause>nul&goto fmr
  219. goto :eof
  220. :chakanzhucebiao
  221. cls
  222. @echo off&setlocal enabledelayedexpansion
  223. title 查看注册表
  224. color 2f
  225. mode con cols=135 lines=15
  226. :ks_
  227. set sum=
  228. title  HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
  229. cls
  230. cd.>reg.txt
  231. echo\&echo. HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
  232. for /f "skip=4 tokens=*" %%a in ('REG QUERY hklm\Software\Microsoft\Windows\CurrentVersion\Run') do (set /a sum+=1
  233. call echo.%%sum%% %%a >>reg.txt
  234. call echo.%%sum%%  %%a
  235. )
  236. set "p=:"
  237. echo\&echo.输入要删除的启动项,按任意键查看下一个启动项
  238. set /p p=(1/2/3..):
  239. set "p=%p:"=%"
  240. if "%p%" == ":" goto hkcu
  241. if %p% LEQ %sum%  for /f "delims=" %%i in ('findstr /i  "%p%" ^<reg.txt ')  do (
  242.         set var=%%i
  243.                  if  "!var:~0,1!" == "%p%" for /f "tokens=1,2,3* delims= " %%a in ("%%i")  do (
  244.             reg delete  hklm\Software\Microsoft\Windows\CurrentVersion\Run  /v %%b /f
  245. ) &&goto wan
  246. )
  247. echo\&echo. 输入 %p%  无效 
  248. echo\&echo.按任意键查看下一个启动项, z 返回选择
  249. set "z=:"
  250. set /p z=
  251. set "z=%z:"=%"
  252. if /i %z% == z  goto ks_
  253. if "%z%" == ":" goto hkcu
  254. :hkcu
  255. set suu=
  256. title  HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
  257. cls
  258. cd.>reg.txt
  259. echo\&echo. HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
  260. for /f "skip=4 tokens=*" %%a in ('REG QUERY hkcu\Software\Microsoft\Windows\CurrentVersion\Run') do (
  261.        set /a suu+=1
  262.           call echo.%%suu%% %%a >>reg.txt
  263.        call echo.%%suu%%  %%a
  264. )
  265. echo\&echo.输入要删除的启动项,按任意键查看下一个启动项
  266. set /p p=(1/2/3..):
  267. set "p=%p:"=%"
  268. if "%p%" == ":" goto hku1_
  269. if %p% LEQ %suu%  for /f "delims=" %%i in ('findstr /i  "%p%" ^<reg.txt ')  do (
  270.            set var=%%i
  271.          if  "!var:~0,1!" == "%p%" for /f "tokens=1,2,3* delims= " %%a in ("%%i")  do (
  272.       reg delete  hkcu\Software\Microsoft\Windows\CurrentVersion\Run  /v %%b /f
  273. ) &&goto wan
  274. )
  275. echo\&echo. 输入 %p%  无效  
  276. echo\&echo.按任意键查看下一个启动项, z 返回选择
  277. set "z=:"
  278. set /p z=
  279. set "z=%z:"=%"
  280. if /i %z% == z  goto hkcu
  281. if "%z%" == ":" goto hku1_
  282. :hku1_
  283. set smm=
  284. title  HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run
  285. cls
  286. cd.>reg.txt
  287. echo\&echo. HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run
  288. for /f "skip=4 tokens=*" %%a in ('REG QUERY hku\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run') do (set /a smm+=1
  289. call echo.%%smm%% %%a >>reg.txt
  290. call echo.%%smm%%  %%a
  291. )
  292. echo\&echo.输入要删除的启动项,按任意键查看下一个启动项
  293. set /p p=(1/2/3..):
  294. set "p=%p:"=%"
  295. if "%p%" == ":" goto hklm_
  296. if %p% LEQ %smm%  for /f "delims=" %%i in ('findstr /i  "%p%" ^<reg.txt ')  do (set var=%%i
  297. if  "!var:~0,1!" == "%p%" for /f "tokens=1,2,3* delims= " %%a in ("%%i")  do (
  298. reg delete  hku\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run  /v %%b /f
  299. ) &&goto wan
  300. )
  301. echo\&echo. 输入 %p%  无效  
  302. echo\&echo.按任意键查看下一个启动项, z 返回选择
  303. set "z=:"
  304. set /p z=
  305. set "z=%z:"=%"
  306. if /i %z% == z  goto hku1_
  307. if "%z%" == ":" goto  hklm_
  308. goto hklm_
  309. :hklm_
  310. set ssm=
  311. title  HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Terminal Server\Install\Software\Microsoft\Windows\CurrentVersion\Run
  312. cls
  313. cd.>reg.txt
  314. echo\&echo. HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Terminal Server\Install\Software\Microsoft\Windows\CurrentVersion\Run
  315. 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
  316. call echo.%%ssm%% %%a >>reg.txt
  317. call echo.%%ssm%%  %%a
  318. )
  319. echo\&echo.输入要删除的启动项,按任意键查看下一个启动项
  320. set /p p=(1/2/3..):
  321. set "p=%p:"=%"
  322. if "%p%" == ":" goto end
  323. if %p% LEQ %ssm%  for /f "delims=" %%i in ('findstr /i  "%p%" ^<reg.txt ')  do (set var=%%i
  324. if  "!var:~0,1!" == "%p%" for /f "tokens=1,2,3* delims= " %%a in ("%%i")  do (
  325. reg delete  "hklm\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Terminal Server\Install\Software\Microsoft\Windows\CurrentVersion\Run"  /v %%b /f
  326. ) &&goto wan
  327. )
  328. echo\&echo. 输入 %p%  无效  
  329. echo\&echo.按任意键查看下一个启动项, z 返回选择
  330. set "z=:"
  331. set /p z=
  332. set "z=%z:"=%"
  333. if /i %z% == z  goto hklm_
  334. if "%z%" == ":" exit
  335. exit
  336. reg delete  %3\Software\Microsoft\Windows\CurrentVersion\Run /v hhre /f
  337. pause
  338. REG add hklm\Software\Microsoft\Windows\CurrentVersion\Run /v sed /d E:\Recycled\bat\set.bat
  339. pause
  340. :wan
  341. echo. wang
  342. pause>nul&exit
  343. :jinyongzhucebiao
  344. cls
  345. :qiyongzhucebiao
  346. cls
  347. :end
  348. exit
  349. :fmr520_
  350. echo.______________________________________________________________________________
  351. echo.
  352. echo.    fmr520     QQ:56059445     E-mail:fu_zejia@hotmail.com
  353. echo.______________________________________________________________________________
  354. goto :eof
复制代码

作者: matching    时间: 2008-5-11 11:16

太好了,好好好研究研究!!!!
作者: lzb85745101    时间: 2008-7-29 00:18

有问题!怎么打不开!全部显示无效!
作者: cxypy    时间: 2011-5-1 15:52

输入要删除的启动项,按任意键查看下一个启动项
作者: 狱渊    时间: 2013-5-1 13:08

厉害啊
你做了多久?
作者: liu888mi    时间: 2013-12-2 21:28

太好了,好好好研究研究!!!!
作者: 海浪风暴    时间: 2014-11-16 21:46

呵呵,我钦佩!




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2