Windows11设置工具箱[转发]

Zap

[原帖]——》pecmd.net/thread-1281.htm（复制粘贴到浏览器查看，我无法加链接 请见谅)

1. @echo off&setlocal enabledelayedexpansion&title Windows系统设置工具箱&color 0B
   
2. :: 综合配置数据源
   
3. set "main_menu=系统核心设置 设备与连接 个性化配置 账户与安全 隐私控制 更新维护 高级工具"
   
4. :: 系统核心设置
   
5. set "menu1=显示设置|display 电源管理|powersleep 存储感知|storagesense 平板模式|tabletmode 系统信息|about 多任务处理|multitasking 声音设置|sound"
   
6. :: 设备与连接
   
7. set "menu2=蓝牙设备|bluetooth 打印机扫描仪|printers 已连接设备|connecteddevices 移动热点|network-mobilehotspot USB管理|usb 输入法设置|regionlanguage-chsime-pinyin"
   
8. :: 个性化配置
   
9. set "menu3=桌面背景|personalization-background 主题管理|themes 锁屏界面|lockscreen 颜色方案|colors 开始菜单|personalization-start 任务栏设置|taskbar"
   
10. :: 账户与安全
    
11. set "menu4=账户信息|yourinfo 登录选项|signinoptions 动态锁|signinoptions-dynamiclock 生物识别|signinoptions-launchfaceenrollment 企业访问|workplace 同步设置|sync"
    
12. :: 隐私控制
    
13. set "menu5=位置权限|privacy-location 摄像头|privacy-webcam 麦克风|privacy-microphone 语音输入|privacy-speechtyping 日历权限|privacy-calendar 联系人权限|privacy-contacts"
    
14. :: 更新维护
    
15. set "menu6=系统更新|windowsupdate 更新选项|windowsupdate-options 激活状态|activation 备份恢复|backup 存储清理|storagepolicies 系统恢复|recovery"
    
16. :: 高级工具
    
17. set "menu7=开发者模式|developers 安全中心|windowsdefender 高级显示|display-advancedgraphics 网络诊断|network-status 代理设置|network-proxy 输入法高级|regionlanguage-chsime-pinyin-udp"
    
18. 
    
19. :MAIN
    
20. call :DrawMenu "main" "Windows 系统设置工具箱" 8 退出
    
21. if "%sel%"=="退出" exit
    
22. 
    
23. :: 动态菜单处理
    
24. set "current_menu=menu%sel%"
    
25. set "content=!%current_menu%!"
    
26. set /a sub_count=0
    
27. for %%i in (!content!)do set /a sub_count+=1
    
28. set /a max_sub=sub_count + 1
    
29. call :DrawMenu "sub" "!content!" !max_sub! 返回
    
30. goto MAIN
    
31. 
    
32. :DrawMenu
    
33. set "type=%~1"
    
34. set "content=%~2"
    
35. set /a max=%~3
    
36. set "exit_cmd=%~4"
    
37. 
    
38. :: 界面生成
    
39. cls
    
40. echo ================================
    
41. echo    %type% 菜单
    
42. echo ================================
    
43. set /a count=0
    
44. 
    
45. if "%type%"=="main" (
    
46.     for %%i in (%main_menu%)do (
    
47.         set /a count+=1
    
48.         echo !count!. %%i
    
49.     )
    
50. ) else (
    
51.     for %%i in (!content!)do (
    
52.         set /a count+=1
    
53.         for /f "tokens=1* delims=|" %%a in ("%%i")do (
    
54.             echo !count!. %%a
    
55.             set "cmd!count!=%%b"
    
56.         )
    
57.     )
    
58. )
    
59. 
    
60. :: 退出项处理
    
61. if %max% gtr 0 (
    
62.     echo %max%. %exit_cmd%
    
63.     set "exit_num=%max%"
    
64. )
    
65. 
    
66. :: 用户输入
    
67. :input
    
68. set "choices="
    
69. for /l %%n in (1 1 %count%)do set "choices=!choices!%%n"
    
70. if defined exit_num set "choices=!choices!!exit_num!"
    
71. echo 可选编号：%choices%
    
72. 
    
73. choice /c %choices% /n /m "请选择操作编号："
    
74. set /a sel=!ERRORLEVEL!
    
75. 
    
76. :: 执行逻辑
    
77. if defined exit_num (
    
78.     if !sel! equ %exit_num% (
    
79.         if "%type%"=="main" (exit)else goto :eof
    
80.     )
    
81. )
    
82. 
    
83. if "%type%"=="main" (
    
84.     goto :eof
    
85. ) else (
    
86.     if defined cmd!sel! (
    
87.         start ms-settings:!cmd%sel%!
    
88.     ) else (
    
89.         echo 错误: 无效选项[!sel!]
    
90.         timeout /t 2 >nul
    
91.     )
    
92. )
    
93. goto input

复制代码

绿光科技

学习了

wang1126

谢谢楼主分享

小灰兔

谢谢楼主分享

lxptyc

好东东谢谢楼主分享

zdlzj

谢谢楼主分享

Changhe

谢谢楼主分享

it323

感谢分享！

hzz0518

感谢分享

lanmeizhuangyua

多谢楼主分享

yc2428

感谢分享

2258572383

楼主辛苦，感谢分享！

youxia1220

谢谢分享

cfq001

感谢分享

guong

感谢分享！

jh198354

谢谢分享！！！

jho

感谢分享

82247888ok

谢谢分享

fegr

感谢分享

Erpf

感谢分享

AcidBurn

谢谢楼主的分享!