[ZT]批处理根据用户输入隐藏我的电脑的盘符

Batcher

方法一：

1. @echo off&setlocal enabledelayedexpansion
   
2. title 驱动器隐藏
   
3. :setvar
   
4. set needhidedrv=暂未输入。
   
5. set value=0
   
6. set str=A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
   
7. 
   
8. :HIDEDRV
   
9. cls
   
10. set n=1
    
11. set drv=endinput
    
12. echo 已输入的需要隐藏的驱动器:
    
13. echo ===============================================================================
    
14. echo.
    
15. echo.
    
16. echo                          %needhidedrv%
    
17. echo.
    
18. echo.
    
19. echo ===============================================================================
    
20. echo.
    
21. echo 例如需隐藏C盘，请输入c或C，回车。如果需输入多个盘符就继续输入，如果想完成输入就直接按下回车，输入all为隐藏全部,在初始状态下直接回车则取消隐藏
    
22. echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.
    
23. set /p drv=请输入：
    
24. if "%drv%"=="endinput" goto exec
    
25. if "%drv%"=="all" set value=0X3FFFFFF&goto exec
    
26. if "%needhidedrv%"=="暂未输入。" set needhidedrv=
    
27. for %%i in (%str%) do call set drv=%%drv:%%i=%%i%%
    
28. for %%i in (%needhidedrv%) do (if "%drv%"=="%%i" goto HIDEDRV)
    
29. for %%i in (%str%) do if "%drv%"=="%%i" (goto :next) else (set /a n=n+n)
    
30. if "%needhidedrv%"=="" set needhidedrv=暂未输入。
    
31. goto HIDEDRV
    
32. :next
    
33. set needhidedrv=%needhidedrv%%drv%
    
34. set /a value=%value%+%n%
    
35. goto HIDEDRV
    
36. 
    
37. :exec
    
38. reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /f /v NoDrives /t REG_DWORD /d %value%
    
39. taskkill /f /im explorer.exe >nul & start explorer &cls
    
40. echo 操作完成，按任意键退出
    
41. pause>nul
    
42. exit&exit

复制代码

方法二：

1. @echo off
   
2. 
   
3. :inp
   
4. cls
   
5. set Drv=
   
6. echo 输入数字“0”取消隐藏，输入若干字母隐藏相应的磁盘。
   
7. set/p Drv=输入磁盘(如：EaF)-
   
8. 
   
9. if "%Drv%"=="" goto :inp
   
10. if %Drv%==0 set TT=00&goto :hidrv
    
11. 
    
12. ::小写换大写顺序输出并剔除重复
    
13. set mat=A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
    
14. for %%d in (%mat%) do (
    
15. 　call set _%%d=
    
16. )
    
17. :lp
    
18. if not defined _%Drv:~,1% set "_%Drv:~,1%=1"
    
19. set "Drv=%Drv:~1%"
    
20. if defined Drv goto lp
    
21. set n=1
    
22. set n10=
    
23. set Dnum=
    
24. for %%m in (%mat%) do (
    
25. 　call :setn n
    
26. 　if defined _%%m (
    
27. 　　call :sshow %%m Drv Dnum n2 n10
    
28. 　)
    
29. )
    
30. 
    
31. ::显示
    
32. echo.
    
33. echo 要隐藏的磁盘有%Drv%，共[%Dnum%]个盘。
    
34. 
    
35. ::换成十六进制
    
36. :reg16
    
37. setlocal enableDelayedExpansion
    
38. call :A %n10%
    
39. 
    
40. ::注册表二进制数值表达方式
    
41. ::T3换BIN
    
42. set TT=
    
43. :bi
    
44. set/a x+=1
    
45. set Tn=0%T3:~-2%
    
46. set Tn=!Tn:~-2!
    
47. set T3=%T3:~,-2%
    
48. set TT=!TT!!Tn!
    
49. if not #%T3%==# goto :bi
    
50. 
    
51. ::隐藏磁盘
    
52. ::-=核心代码=-
    
53. :hidrv
    
54. set TT=%TT%000000
    
55. reg add HKCU\SoftWare\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoDrives /t REG_BINARY /d %TT:~,8% /f
    
56. 
    
57. echo 结束explorer进程生效。按任意键结束并打开我的电脑查看
    
58. pause>nul
    
59. taskkill /f /im explorer.exe>nul
    
60. endlocal
    
61. start/min "" explorer "%~dp0"
    
62. start explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}
    
63. 
    
64. ping -n 3 127.1>nul
    
65. goto :eof
    
66. 
    
67. ::调用标签
    
68. :sshow
    
69. 　set %2=%Drv%%1
    
70. 　set/a %3+=1
    
71. 　set/a %4=n/2
    
72. 　set/a %5+=n2
    
73. 　goto :eof
    
74. :setn
    
75. 　set/a %1*=2
    
76. 　goto :eof
    
77. :A
    
78. 　set str=0123456789ABCDEF
    
79. 　set T1=%1
    
80. 　SET T3=
    
81. :B
    
82. 　set/A T2=T1%%16
    
83. 　SET T2=!str:~%t2%,1!
    
84. 　SET/A T1=%T1%/16
    
85. 　SET T3=%T2%%T3%
    
86. 　IF %T1%==0 GOTO :EOF
    
87. 　GOTO B

复制代码

原文地址：http://www.cn-dos.net/forum/viewthread.php?tid=46914

wxcute

加注个我们论坛的链接。

【系统辅助】批处理版注册表法隐藏磁盘（普通隐藏）：2 楼
http://bbs.bathome.net/viewthrea ... amp;page=1#pid11372

还可以更新一下就是用组策略来刷新：gpupdate /force。