[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
fml520

Rank: 4

帖子
79 
积分
341 
技术
0  
捐助
0  
注册时间
2008-3-14 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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. :: 演示效果

  34. echo IP:%ip%

  35. echo MAC:%mac%

  36. echo DNS:%dns%

  37. echo GATEWAY:%gateway%

  38. echo NETCARD:%netcard%

  39. pause>nul&goto fmr

  40. goto :eof

  41. 

  42. ::**************************************************************

  43. ::              解析ipconfig命令输出通用函数

  44. ::**************************************************************

  45. :select

  46.     for /f "tokens=2 delims=:" %%i in ('ipconfig /all ^| findstr /i /c:%1') do if not "!%~2!" == "" set "%~2=%%i"

  47. goto :eof

  48. :cuo

  49. cls

  50. echo\&echo  你输入的 %fmr% 无效

  51. pause>nul&goto fmr

  52. :fmr

  53. set asd=

  54. cls

  55. @echo off 

  56. title  FMR520 制作 QQ 56059445

  57. mode con COLS=85 lines=25

  58. color 2f

  59. set "fmr="

  60. set "fmr=:"

  61. set s=╔┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉╗

  62. set x=╚┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉╝

  63. 

  64. set aa=01.打开注册表  IE.打开IE设置  12.组策略结集 14.检查Di信息 03.检查Wi版本    

  65.                                                                  

  66. set bb=02.打开组策略  QD:查看启动项  0F.通密码管理  0G.查看IP配置  08.计算机管理

  67.                                                                   

  68. set cc=0C.音量设置 05.设备管理 0E.控制面版 07.日志记录  06.磁盘管理 

  69.                                                       

  70. set dd=04.桌面属性 13.系统医生 15.安全设置 11.组和帐户 0B.卸载程序

  71.                                                 

  72. set ee=10.磁盘整理 0A.服务设置 0E.控制面版 09.Chkd检查 0D.打开帮助

  73.                                            

  74. set ff=17.60s时关机  16.15s时关机  HELP:DOS帮助 NNH.欢迎访问 PC批处理之家

  75. call :fmr520_  

  76. ::http://bbs.bathome.net 制作：fmr520 

  77. echo.%s%                                                              

  78. for %%a in (%aa%) do call :loop  %%a

  79. echo.%x%

  80. echo. 

  81. echo 请输入对应数字回车: 

  82. set /p fmr=请输入: 

  83. set "fmr=%fmr:"=%"

  84. set "fmr=%fmr:;=%"

  85. set "fmr=%fmr:.=%"

  86. set "fmr=%fmr:,=%"

  87. if "%fmr%"==":" goto fmr

  88. if %fmr%==1 call :fmr_  regedit.exe

  89. if %fmr%==2 call :fmr_  gpedit.msc

  90. if %fmr%==3 call :fmr_  winver

  91. if %fmr%==4 goto 4_

  92. if %fmr%==5 call :fmr_  devmgmt.msc

  93. if %fmr%==6 call :fmr_  diskmgmt.msc

  94. if %fmr%==7 call :fmr_  eventvwr.msc

  95. if %fmr%==8 call :fmr_  compmgmt.msc

  96. if %fmr%==9 call :fmr_  chkdsk.exe

  97. if %fmr%==10 call :fmr_ cleanmgr

  98. if %fmr%==11 call :fmr_ lusrmgr.msc

  99. if %fmr%==12 call :fmr_ rsop.msc

  100. if %fmr%==13 call :fmr_ drwtsn32

  101. if %fmr%==14 call :fmr_ dxdiag

  102. if %fmr%==15 call :fmr_ secpol.msc

  103. if %fmr%==16 call :fmr_  rononce -p

  104. if %fmr%==17 call :fmr_ tsshutdn

  105. if /i %fmr%==QD goto QD_

  106. if %fmr%==0 goto 0

  107. if /i %fmr%==a call :fmr_ services.msc

  108. if /i %fmr%==b goto bb

  109. if /i %fmr%==c call :fmr_  sndvol32

  110. if /i %fmr%==d call :fmr_ cmd.exe

  111. if /i %fmr%==e call :fmr_  control.exe

  112. if /i %fmr%==f goto f_ 

  113. if /i %fmr%==g goto g_

  114. if /i %fmr%==help goto hp_

  115. if /i %fmr%==ie call :fmr_  inetcpl.cpl

  116. goto cuo

  117. :fmr_

  118. start "" %1 &goto fmr

  119. goto :eof

  120. :loop

  121. set /a asd+=1

  122. for /f "tokens=%asd%" %%z in ("%bb%") do (

  123. for /f "tokens=%asd%" %%v in ("%cc%") do (

  124. for /f "tokens=%asd%" %%w in ("%dd%") do (

  125. for /f "tokens=%asd%" %%m in ("%ee%") do (

  126. for /f "tokens=%asd%" %%n in ("%ff%") do (

  127. set/p=┋%1 %%z %%v %%w %%m %%n┋<nul&echo.)

  128. ))))

  129. goto :eof

  130. 

  131. :QD_

  132. cls

  133. :zhucebiao

  134. set  "cd=:"

  135. cls

  136. @echo off&setlocal enabledelayedexpansion

  137. color 2f

  138. set s=╔┉┉┉┉┉┉╗

  139. set x=╚┉┉┉┉┉┉╝

  140. set var=1.查看注册表 2.添加注册表 3.禁用注册表 4.启用注册表 Z.返回主菜单

  141. call :fmr520_

  142. echo.                              %s%

  143. for %%a in (%var%) do set/p=                              ┋%%a┋<nul&echo.

  144. echo.                              %x%

  145. echo.______________________________________________________________________________

  146. echo\

  147. set /p cd=请选择:

  148. if "%cd%" == ":"  goto  zhucebiao

  149. if "%cd%" == "1"  goto  chakanzhucebiao

  150. if "%cd%" == "2"  goto  tianjiazhucebiao

  151. if "%cd%" == "3"  call :cuo  jinyongzhucebiao

  152. if "%cd%" == "4"  call :cuo  qiyongzhucebiao

  153. if /i "%cd%" == "Z"  goto  fmr

  154. call :cuo %cd%

  155. :tianjiazhucebiao

  156. cls

  157. title  添加注册表

  158. color 2f

  159. mode con cols=135 lines=15

  160. :hk

  161. cls

  162. set va1=1 HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run 

  163. set va2=2 HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run

  164. set va3=3 HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run

  165. set va4=4 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVer^

  166. sion\Terminal Server\Install\Software\Microsoft\Windows\CurrentVersion\Run

  167. echo.%va1%&echo.%va2%&echo.%va3%&echo.%va4%

  168. set "p=:"

  169. echo\&echo.添加注册表

  170. set /p p=(1/2/3..):

  171. set "p=%p:"=%"

  172. if "%p%" == ":" goto hk

  173. if "%p%" == "1" goto hkcu

  174. if "%p%" == "2" goto hklm

  175. if "%p%" == "3" goto hku

  176. if "%p%" == "4" goto hklm_

  177. call :cuo %p%

  178. :hklm

  179. title  2 hklm

  180. cls

  181. echo.%va2%

  182. echo\&echo.                                  z 返回

  183. set /p name1=名称:

  184. if /i "%name1%" == "z" goto hk

  185. set /p lujing1=绝对路径:

  186. 

  187. REG add hklm\Software\Microsoft\Windows\CurrentVersion\Run /v %name1%  /d  %lujing1%  /f

  188. ping 127.1 -n 2 >nul&goto hk

  189. :hklm_

  190. title  4 hklm_

  191. cls

  192. echo.%va4%

  193. echo\&echo.                                  z 返回

  194. set /p name2=名称:

  195. if /i "%name2%" == "z" goto hk

  196. set /p lujing2=绝对路径:

  197. 

  198. REG add "hklm\SOFTWARE\Microsoft\Windows NT\Current^

  199. Version\Terminal Server\Install\Software\Microsoft\Windows\CurrentVersion\Run" /v %name2%  /d  %lujing2%  /f

  200. ping 127.1 -n 2 >nul&goto hk

  201. :hkcu

  202. title  1 hkcu

  203. cls

  204. echo.%va1%

  205. echo\&echo.                                  z 返回

  206. set /p name3=名称:

  207. if /i "%name3%" == "z" goto hk

  208. echo.

  209. set /p lujing3=绝对路径:

  210. 

  211. REG add hkcu\Software\Microsoft\Windows\CurrentVersion\Run /v %name3%  /d  %lujing3%  /f

  212. ping 127.1 -n 2 >nul&goto hk

  213. :hku222

  214. title  3 hku222

  215. cls

  216. echo.%va3%

  217. echo\&echo.                                  z 返回

  218. set /p name=名称:

  219. if /i "%name%" == "z" goto hk

  220. set /p lujing=绝对路径:

  221. 

  222. REG add hku\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run /v %name%  /d  %lujing%  /f

  223. ping 127.1 -n 2 >nul&goto hk

  224. :cuo

  225. echo\&echo.输入的 %1 无效

  226. pause>nul&goto fmr

  227. goto :eof

  228. :chakanzhucebiao

  229. cls

  230. @echo off&setlocal enabledelayedexpansion

  231. title 查看注册表

  232. color 2f

  233. mode con cols=135 lines=15

  234. :ks_

  235. set sum=

  236. title  HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run

  237. cls

  238. cd.>reg.txt

  239. echo\&echo. HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run

  240. for /f "skip=4 tokens=*" %%a in ('REG QUERY hklm\Software\Microsoft\Windows\CurrentVersion\Run') do (set /a sum+=1

  241. call echo.%%sum%%	%%a >>reg.txt

  242. call echo.%%sum%%  %%a

  243. )

  244. set "p=:"

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

  246. set /p p=(1/2/3..):

  247. set "p=%p:"=%"

  248. if "%p%" == ":" goto hkcu

  249. if %p% LEQ %sum%  for /f "delims=" %%i in ('findstr /i  "%p%" ^<reg.txt ')  do (

  250.         set var=%%i

  251.                  if  "!var:~0,1!" == "%p%" for /f "tokens=1,2,3* delims=	" %%a in ("%%i")  do (

  252.             reg delete  hklm\Software\Microsoft\Windows\CurrentVersion\Run  /v %%b /f

  253. ) &&goto wan

  254. )

  255. echo\&echo. 输入 %p%  无效 

  256. echo\&echo.按任意键查看下一个启动项, z 返回选择

  257. set "z=:"

  258. set /p z=

  259. set "z=%z:"=%"

  260. if /i %z% == z  goto ks_

  261. if "%z%" == ":" goto hkcu

  262. :hkcu

  263. set suu=

  264. title  HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run

  265. cls

  266. cd.>reg.txt

  267. echo\&echo. HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run

  268. 

  269. for /f "skip=4 tokens=*" %%a in ('REG QUERY hkcu\Software\Microsoft\Windows\CurrentVersion\Run') do (

  270.        set /a suu+=1

  271.           call echo.%%suu%%	%%a >>reg.txt

  272.        call echo.%%suu%%  %%a

  273. )

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

  275. set /p p=(1/2/3..):

  276. set "p=%p:"=%"

  277. if "%p%" == ":" goto hku1_

  278. if %p% LEQ %suu%  for /f "delims=" %%i in ('findstr /i  "%p%" ^<reg.txt ')  do (

  279.            set var=%%i

  280.          if  "!var:~0,1!" == "%p%" for /f "tokens=1,2,3* delims=	" %%a in ("%%i")  do (

  281.       reg delete  hkcu\Software\Microsoft\Windows\CurrentVersion\Run  /v %%b /f

  282. ) &&goto wan

  283. )

  284. echo\&echo. 输入 %p%  无效  

  285. echo\&echo.按任意键查看下一个启动项, z 返回选择

  286. set "z=:"

  287. set /p z=

  288. set "z=%z:"=%"

  289. if /i %z% == z  goto hkcu

  290. if "%z%" == ":" goto hku1_

  291. :hku1_

  292. set smm=

  293. title  HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run

  294. cls

  295. cd.>reg.txt

  296. echo\&echo. HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run

  297. for /f "skip=4 tokens=*" %%a in ('REG QUERY hku\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run') do (set /a smm+=1

  298. call echo.%%smm%%	%%a >>reg.txt

  299. call echo.%%smm%%  %%a

  300. )

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

  302. set /p p=(1/2/3..):

  303. set "p=%p:"=%"

  304. if "%p%" == ":" goto hklm_

  305. if %p% LEQ %smm%  for /f "delims=" %%i in ('findstr /i  "%p%" ^<reg.txt ')  do (set var=%%i

  306. if  "!var:~0,1!" == "%p%" for /f "tokens=1,2,3* delims=	" %%a in ("%%i")  do (

  307.  reg delete  hku\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run  /v %%b /f

  308. ) &&goto wan

  309. )

  310. echo\&echo. 输入 %p%  无效  

  311. echo\&echo.按任意键查看下一个启动项, z 返回选择

  312. set "z=:"

  313. set /p z=

  314. set "z=%z:"=%"

  315. if /i %z% == z  goto hku1_

  316. if "%z%" == ":" goto  hklm_

  317. goto hklm_

  318. :hklm_

  319. set ssm=

  320. title  HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Terminal Server\Install\Software\Microsoft\Windows\CurrentVersion\Run

  321. cls

  322. cd.>reg.txt

  323. echo\&echo. HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Terminal Server\Install\Software\Microsoft\Windows\CurrentVersion\Run

  324. 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

  325. call echo.%%ssm%%	%%a >>reg.txt

  326. call echo.%%ssm%%  %%a

  327. )

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

  329. set /p p=(1/2/3..):

  330. set "p=%p:"=%"

  331. if "%p%" == ":" goto end

  332. if %p% LEQ %ssm%  for /f "delims=" %%i in ('findstr /i  "%p%" ^<reg.txt ')  do (set var=%%i

  333. if  "!var:~0,1!" == "%p%" for /f "tokens=1,2,3* delims=	" %%a in ("%%i")  do (

  334.  reg delete  "hklm\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Terminal Server\Install\Software\Microsoft\Windows\CurrentVersion\Run"  /v %%b /f

  335. ) &&goto wan

  336. )

  337. echo\&echo. 输入 %p%  无效  

  338. echo\&echo.按任意键查看下一个启动项, z 返回选择

  339. set "z=:"

  340. set /p z=

  341. set "z=%z:"=%"

  342. if /i %z% == z  goto hklm_

  343. if "%z%" == ":" exit

  344. exit

  345. reg delete  %3\Software\Microsoft\Windows\CurrentVersion\Run /v hhre /f

  346. pause

  347. REG add hklm\Software\Microsoft\Windows\CurrentVersion\Run /v sed /d E:\Recycled\bat\set.bat

  348. pause

  349. :wan

  350. echo. wang

  351. pause>nul&exit

  352. :jinyongzhucebiao

  353. cls

  354. :qiyongzhucebiao

  355. cls

  356. :end

  357. exit

  358. :fmr520_

  359. echo.______________________________________________________________________________

  360. echo.

  361. echo.    fmr520     QQ:56059445     E-mail:fu_zejia@hotmail.com

  362. echo.______________________________________________________________________________

  363. goto :eof
复制代码
收藏 分享
@set,=学无止境
@for /l %%b in (0,1,6) do @call set/p= %%,:~%%b,1%%<nul

matching

Rank: 2

帖子
3 
积分
171 
技术
0  
捐助
0  
注册时间
2008-4-30 
2楼
发表于 2008-5-11 11:16 | 只看该作者
太好了，好好好研究研究！！！！

TOP

lzb85745101

Rank: 2

帖子
3 
积分
175 
技术
0  
捐助
0  
注册时间
2008-4-23 
3楼
发表于 2008-7-29 00:18 | 只看该作者
有问题！怎么打不开！全部显示无效！

TOP

cxypy

Rank: 1

帖子
5 
积分
26 
技术
0  
捐助
0  
注册时间
2010-5-17 
4楼
发表于 2011-5-1 15:52 | 只看该作者
输入要删除的启动项,按任意键查看下一个启动项

TOP

狱渊

Rank: 5Rank: 5

帖子
118 
积分
930 
技术
0  
捐助
0  
注册时间
2013-4-20 
5楼
发表于 2013-5-1 13:08 | 只看该作者
厉害啊
你做了多久？

TOP

liu888mi

Rank: 1

帖子
10 
积分
25 
技术
0  
捐助
0  
注册时间
2013-12-2 
6楼
发表于 2013-12-2 21:28 | 只看该作者
太好了，好好好研究研究！！！！

TOP

海浪风暴

Rank: 1

帖子
2 
积分
13 
技术
0  
捐助
0  
注册时间
2014-11-14 
7楼
发表于 2014-11-16 21:46 | 只看该作者
呵呵，我钦佩！

TOP

返回列表