隐藏我的电脑的盘符 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛


@echo off&setlocal enabledelayedexpansion
title 驱动器隐藏
:setvar
set needhidedrv=暂未输入。
set value=0
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

:HIDEDRV
cls
set n=1
set drv=endinput
echo 已输入的需要隐藏的驱动器:
echo ===============================================================================
echo.
echo.
echo                          %needhidedrv%
echo.
echo.
echo ===============================================================================
echo.
echo 例如需隐藏C盘，请输入c或C，回车。如果需输入多个盘符就继续输入，如果想完成输入就直接按下回车，输入all为隐藏全部,在初始状态下直接回车则取消隐藏
echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.
set /p drv=请输入：
if "%drv%"=="endinput" goto exec
if "%drv%"=="all" set value=0X3FFFFFF&goto exec
if "%needhidedrv%"=="暂未输入。" set needhidedrv=
for %%i in (%str%) do call set drv=%%drv:%%i=%%i%%
for %%i in (%needhidedrv%) do (if "%drv%"=="%%i" goto HIDEDRV)
for %%i in (%str%) do if "%drv%"=="%%i" (goto :next) else (set /a n=n+n)
if "%needhidedrv%"=="" set needhidedrv=暂未输入。
goto HIDEDRV
:next
set needhidedrv=%needhidedrv%%drv% 
set /a value=%value%+%n%
goto HIDEDRV

:exec
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /f /v NoDrives /t REG_DWORD /d %value%
taskkill /f /im explorer.exe >nul & start explorer &cls
echo 操作完成，按任意键退出
pause>nul
exit&exit

注释一下，核心代码就是3条for语句
第一条用来小写转换为大写
第二条用来判断是否重复输入了
第三条用来为每个盘符赋值的

特别感谢netbenton，和那位给出个示例代码的大哥
非常感谢netbenton你，令我感悟到了新一步
回复用gpupdate那个，我的杀毒软件会警报啊。。。
============版主请看我的跟帖

[ Last edited by darkkid on 2009-4-15 at 22:07 ]

做梦都没想能写这么长的代码

新人发帖，加分鼓励。
建议楼主可以尝试把这个300多行的代码缩短到100行以内。

这样可以省掉多个if ... goto 和多个for ...判断是否已经输入过

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 "
if not "!str: %drv% =!"=="!str!" (
if not "!ain: %drv% =!"=="!ain!" (set "ain=%ain% %drv% "&goto :part%drv%)
)

盘符与数的对应关系为：
a 1
b 2
c 4
d 8
e 16
f 32
g 64
h 128
...

这样可以得到对应数值:
set n=1
for %%a in (%str%) do if "%drv%"=="%%a" (goto :ok) else (set/a n=n+n)
:ok
再想办法转成16进制，可省去多个分支的做法。

用上面的方法，可把代码控制在50行以内
楼主可以试一下

[ Last edited by netbenton on 2009-4-13 at 06:15 ]

回netbenton
明白你的想法了。
现阶段的我对你的代码理解起来有困难，等我慢慢参透一下，

[ Last edited by darkkid on 2009-4-13 at 08:26 ]

N久前收藏的

@echo off

:inp
cls
set Drv=
echo 输入数字“0”取消隐藏，输入若干字母隐藏相应的磁盘。
set/p Drv=输入磁盘(如：EaF)-

if "%Drv%"=="" goto :inp
if %Drv%==0 set TT=00&goto :hidrv

::小写换大写顺序输出并剔除重复
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
for %%d in (%mat%) do (
　call set _%%d=
)
:lp
if not defined _%Drv:~,1% set "_%Drv:~,1%=1"
set "Drv=%Drv:~1%"
if defined Drv goto lp
set n=1
set n10=
set Dnum=
for %%m in (%mat%) do (
　call :setn n
　if defined _%%m (
　　call :sshow %%m Drv Dnum n2 n10
　)
)

::显示
echo.
echo 要隐藏的磁盘有%Drv%，共个盘。

::换成十六进制
:reg16
setlocal enableDelayedExpansion
call :A %n10%

::注册表二进制数值表达方式
::T3换BIN
set TT=
:bi
set/a x+=1
set Tn=0%T3:~-2%
set Tn=!Tn:~-2!
set T3=%T3:~,-2%
set TT=!TT!!Tn!
if not #%T3%==# goto :bi

::隐藏磁盘
::-=核心代码=-
:hidrv
set TT=%TT%000000
reg add HKCU\SoftWare\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoDrives /t REG_BINARY /d %TT:~,8% /f

echo 结束explorer进程生效。按任意键结束并打开我的电脑查看
pause>nul
taskkill /f /im explorer.exe>nul
endlocal
start/min "" explorer "%~dp0"
start explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}

ping -n 3 127.1>nul
goto :eof

::调用标签
:sshow
　set %2=%Drv%%1
　set/a %3+=1
　set/a %4=n/2
　set/a %5+=n2
　goto :eof
:setn
　set/a %1*=2
　goto :eof
:A
　set str=0123456789ABCDEF
　set T1=%1
　SET T3=
:B
　set/A T2=T1%%16
　SET T2=!str:~%t2%,1!
　SET/A T1=%T1%/16
　SET T3=%T2%%T3%
　IF %T1%==0 GOTO :EOF
　GOTO B

回复 zh159：

这个代码居然有人收藏，真是荣幸、荣幸之至。

改得不错，新人，加分，

其实偶也“旧”不了多少。呵呵

大家可以试着把你的系统盘隐藏，，，有很好的效果，，，反正我试过了，，，，
就连开网页都打不开了，，有意向的朋友可以

粗略的看了一遍，提出几个疑问：

:: 说明，本批处理的功能是隐藏在Windows资源管理器中的磁盘盘符，一定程度上保护了个人的隐私。任何人都能通过记事本来编辑这个批处理，使得它的功能更加强大,效率更加高。小民，2009年4月12日,为学习好批处理，在此分享。
@echo off&setlocal enabledelayedexpansion
:setvar
set needhidedrv=暂未输入。
set value=0
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
set n=1

:HIDEDRV
::::::::::::除了echo off前面的那个@，后面还使用了这么多@，是为了过瘾？还是为了别的什么？
@cls
set drv=endinput
@echo 已输入的需要隐藏的驱动器:
@echo ===============================================================================
@echo.
@echo.
@echo %needhidedrv%
@echo.
@echo.
@echo ===============================================================================
@echo.
@echo 例如需隐藏C盘，请输入c或C，回车。如果需输入多个盘符就继续输入，如果想完成输入就直接按下回车，输入all为隐藏全部,直接回车则取消隐藏
@echo.&@echo.&@echo.&@echo.&@echo.&@echo.&@echo.&@echo.&@echo.
set /p drv=请输入：
::::::::::::如果用户输入一个双引号，代码会出现异常。
if "%drv%"=="endinput" goto exec
if "%drv%"=="all" set value=0X3FFFFFF&goto exec
if "%needhidedrv%"=="暂未输入。" set needhidedrv=
for %%i in (%str%) do call set drv=%%drv:%%i=%%i%%
::::::::::::给下面的if加个/i开关即可忽略大小写，上面的for是不是多余的？
for %%i in (%needhidedrv%) do (if "%drv%"=="%%i" goto HIDEDRV)
for %%i in (%str%) do if "%drv%"=="%%i" (goto :next) else (set /a n=n+n)
goto HIDEDRV
:next
set needhidedrv=%needhidedrv%%drv%
set /a value=value+n
goto HIDEDRV

:exec
@cls
reg delete HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /f /v NoDrives
::::::::::::reg add命令采用的是覆盖写入的方法，上面的reg delete是不是多余的？
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /f /v NoDrives /t REG_DWORD /d %value%
taskkill /f /IM explorer.exe >nul
start explorer.exe
@echo 操作完成，按任意键退出
pause>nul
exit&exit

可以用 gpupdate.exe /force 代替重启 explorer.exe 进程。

修正了个小错误，把set n=1放到了：hidedrv之外了，导致隐藏多个盘符时，除第一个盘符外的都赋值错误，也在此谢谢tireless

以下回版主HAT
首先关于@这个符号，我的代码当中可有可没，嫌弃它碍眼就删吧，因为我在第一行已经输入了echo off这句。如果在每句之前加这个@号，其作用等于echo off。

你所谓的输入异常应该是在第一次输入的时候吧,显示为echo 消息为关闭？其实不是大问题，不只：，所有非abcdefg。。。。。。的字符串都会出现的，完全不理会都没问题的，主要是我开始为了显示"暂无输入"的后遗症，当我清空了显示列表后，echo无法显示空字符串而已

我那句转换大小写，首先，嗯，我说我有点新人吧，我不知道if的这个参数，这么好用的东西谢谢版主教导，如果想用这个参数，把我str的大写A B C D。。。。。改为a b c d。。。。。就能运行，只是运行时，没那么好看，显示的都是小写，不改了，我喜欢漂亮一点的。

最后那个无它，也是不知道而已

现在要上学,上网不方便,周末回家再搞

关于用户输入一个双引号的问题，等你以后遇到无法忽略它的情况再回来讨论吧，现在你坚持这样用就这样用吧。

输入双引号起码这里没事,具体问题具体分析,到时再算

第1楼　darkkid	发表于 2009-04-13 06:44
初级用户　发帖 12　积分 34
隐藏我的电脑的盘符 @echo off&setlocal enabledelayedexpansion title 驱动器隐藏 :setvar set needhidedrv=暂未输入。 set value=0 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 :HIDEDRV cls set n=1 set drv=endinput echo 已输入的需要隐藏的驱动器: echo =============================================================================== echo. echo. echo %needhidedrv% echo. echo. echo =============================================================================== echo. echo 例如需隐藏C盘，请输入c或C，回车。如果需输入多个盘符就继续输入，如果想完成输入就直接按下回车，输入all为隐藏全部,在初始状态下直接回车则取消隐藏 echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo. set /p drv=请输入： if "%drv%"=="endinput" goto exec if "%drv%"=="all" set value=0X3FFFFFF&goto exec if "%needhidedrv%"=="暂未输入。" set needhidedrv= for %%i in (%str%) do call set drv=%%drv:%%i=%%i%% for %%i in (%needhidedrv%) do (if "%drv%"=="%%i" goto HIDEDRV) for %%i in (%str%) do if "%drv%"=="%%i" (goto :next) else (set /a n=n+n) if "%needhidedrv%"=="" set needhidedrv=暂未输入。 goto HIDEDRV :next set needhidedrv=%needhidedrv%%drv% set /a value=%value%+%n% goto HIDEDRV :exec reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /f /v NoDrives /t REG_DWORD /d %value% taskkill /f /im explorer.exe >nul & start explorer &cls echo 操作完成，按任意键退出 pause>nul exit&exit 注释一下，核心代码就是3条for语句第一条用来小写转换为大写第二条用来判断是否重复输入了第三条用来为每个盘符赋值的特别感谢netbenton，和那位给出个示例代码的大哥非常感谢netbenton你，令我感悟到了新一步回复用gpupdate那个，我的杀毒软件会警报啊。。。 ============版主请看我的跟帖 [ Last edited by darkkid on 2009-4-15 at 22:07 ]

第2楼　freeants001	发表于 2009-04-13 06:48
中级用户　发帖 244　积分 330　来自湖北
这么长,沙发~

第3楼　yishanju	发表于 2009-04-13 07:19
银牌会员　发帖 1,357　积分 1,488
做梦都没想能写这么长的代码

第4楼　HAT	发表于 2009-04-13 07:32
版主　发帖 5,017　积分 9,023
新人发帖，加分鼓励。建议楼主可以尝试把这个300多行的代码缩短到100行以内。

第5楼　netbenton	发表于 2009-04-13 07:49
银牌会员　发帖 752　积分 1,916　来自广西
这样可以省掉多个if ... goto 和多个for ...判断是否已经输入过 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 " if not "!str: %drv% =!"=="!str!" ( if not "!ain: %drv% =!"=="!ain!" (set "ain=%ain% %drv% "&goto :part%drv%) ) 盘符与数的对应关系为： a 1 b 2 c 4 d 8 e 16 f 32 g 64 h 128 ... 这样可以得到对应数值: set n=1 for %%a in (%str%) do if "%drv%"=="%%a" (goto :ok) else (set/a n=n+n) :ok 再想办法转成16进制，可省去多个分支的做法。用上面的方法，可把代码控制在50行以内楼主可以试一下 [ Last edited by netbenton on 2009-4-13 at 06:15 ]

第6楼　darkkid	发表于 2009-04-13 08:08
初级用户　发帖 12　积分 34
回netbenton 明白你的想法了。现阶段的我对你的代码理解起来有困难，等我慢慢参透一下， [ Last edited by darkkid on 2009-4-13 at 08:26 ]

第7楼　zh159	发表于 2009-04-13 10:26
金牌会员　发帖 1,467　积分 3,687
N久前收藏的 @echo off :inp cls set Drv= echo 输入数字“0”取消隐藏，输入若干字母隐藏相应的磁盘。 set/p Drv=输入磁盘(如：EaF)- if "%Drv%"=="" goto :inp if %Drv%==0 set TT=00&goto :hidrv ::小写换大写顺序输出并剔除重复 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 for %%d in (%mat%) do ( 　call set _%%d= ) :lp if not defined _%Drv:~,1% set "_%Drv:~,1%=1" set "Drv=%Drv:~1%" if defined Drv goto lp set n=1 set n10= set Dnum= for %%m in (%mat%) do ( 　call :setn n 　if defined _%%m ( 　　call :sshow %%m Drv Dnum n2 n10 　) ) ::显示 echo. echo 要隐藏的磁盘有%Drv%，共个盘。 ::换成十六进制 :reg16 setlocal enableDelayedExpansion call :A %n10% ::注册表二进制数值表达方式 ::T3换BIN set TT= :bi set/a x+=1 set Tn=0%T3:~-2% set Tn=!Tn:~-2! set T3=%T3:~,-2% set TT=!TT!!Tn! if not #%T3%==# goto :bi ::隐藏磁盘 ::-=核心代码=- :hidrv set TT=%TT%000000 reg add HKCU\SoftWare\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoDrives /t REG_BINARY /d %TT:~,8% /f echo 结束explorer进程生效。按任意键结束并打开我的电脑查看 pause>nul taskkill /f /im explorer.exe>nul endlocal start/min "" explorer "%~dp0" start explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D} ping -n 3 127.1>nul goto :eof ::调用标签 :sshow 　set %2=%Drv%%1 　set/a %3+=1 　set/a %4=n/2 　set/a %5+=n2 　goto :eof :setn 　set/a %1*=2 　goto :eof :A 　set str=0123456789ABCDEF 　set T1=%1 　SET T3= :B 　set/A T2=T1%%16 　SET T2=!str:~%t2%,1! 　SET/A T1=%T1%/16 　SET T3=%T2%%T3% 　IF %T1%==0 GOTO :EOF 　GOTO B

第8楼　wxcute	发表于 2009-04-13 11:00
中级用户　发帖 211　积分 458
回复 zh159：这个代码居然有人收藏，真是荣幸、荣幸之至。

第9楼　netbenton	发表于 2009-04-13 20:39
银牌会员　发帖 752　积分 1,916　来自广西
改得不错，新人，加分，其实偶也“旧”不了多少。呵呵

第10楼　dnntgmfd	发表于 2009-04-13 23:16
初级用户　发帖 52　积分 85　来自湘乡
大家可以试着把你的系统盘隐藏，，，有很好的效果，，，反正我试过了，，，，就连开网页都打不开了，，有意向的朋友可以

第11楼　HAT	发表于 2009-04-14 00:14
版主　发帖 5,017　积分 9,023
粗略的看了一遍，提出几个疑问： :: 说明，本批处理的功能是隐藏在Windows资源管理器中的磁盘盘符，一定程度上保护了个人的隐私。任何人都能通过记事本来编辑这个批处理，使得它的功能更加强大,效率更加高。小民，2009年4月12日,为学习好批处理，在此分享。 @echo off&setlocal enabledelayedexpansion :setvar set needhidedrv=暂未输入。 set value=0 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 set n=1 :HIDEDRV ::::::::::::除了echo off前面的那个@，后面还使用了这么多@，是为了过瘾？还是为了别的什么？ @cls set drv=endinput @echo 已输入的需要隐藏的驱动器: @echo =============================================================================== @echo. @echo. @echo %needhidedrv% @echo. @echo. @echo =============================================================================== @echo. @echo 例如需隐藏C盘，请输入c或C，回车。如果需输入多个盘符就继续输入，如果想完成输入就直接按下回车，输入all为隐藏全部,直接回车则取消隐藏 @echo.&@echo.&@echo.&@echo.&@echo.&@echo.&@echo.&@echo.&@echo. set /p drv=请输入： ::::::::::::如果用户输入一个双引号，代码会出现异常。 if "%drv%"=="endinput" goto exec if "%drv%"=="all" set value=0X3FFFFFF&goto exec if "%needhidedrv%"=="暂未输入。" set needhidedrv= for %%i in (%str%) do call set drv=%%drv:%%i=%%i%% ::::::::::::给下面的if加个/i开关即可忽略大小写，上面的for是不是多余的？ for %%i in (%needhidedrv%) do (if "%drv%"=="%%i" goto HIDEDRV) for %%i in (%str%) do if "%drv%"=="%%i" (goto :next) else (set /a n=n+n) goto HIDEDRV :next set needhidedrv=%needhidedrv%%drv% set /a value=value+n goto HIDEDRV :exec @cls reg delete HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /f /v NoDrives ::::::::::::reg add命令采用的是覆盖写入的方法，上面的reg delete是不是多余的？ reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /f /v NoDrives /t REG_DWORD /d %value% taskkill /f /IM explorer.exe >nul start explorer.exe @echo 操作完成，按任意键退出 pause>nul exit&exit

第12楼　tireless	发表于 2009-04-14 02:14
银牌会员　发帖 1,122　积分 2,025
可以用 gpupdate.exe /force 代替重启 explorer.exe 进程。

第13楼　darkkid	发表于 2009-04-14 10:23
初级用户　发帖 12　积分 34
修正了个小错误，把set n=1放到了：hidedrv之外了，导致隐藏多个盘符时，除第一个盘符外的都赋值错误，也在此谢谢tireless 以下回版主HAT 首先关于@这个符号，我的代码当中可有可没，嫌弃它碍眼就删吧，因为我在第一行已经输入了echo off这句。如果在每句之前加这个@号，其作用等于echo off。你所谓的输入异常应该是在第一次输入的时候吧,显示为echo 消息为关闭？其实不是大问题，不只：，所有非abcdefg。。。。。。的字符串都会出现的，完全不理会都没问题的，主要是我开始为了显示"暂无输入"的后遗症，当我清空了显示列表后，echo无法显示空字符串而已我那句转换大小写，首先，嗯，我说我有点新人吧，我不知道if的这个参数，这么好用的东西谢谢版主教导，如果想用这个参数，把我str的大写A B C D。。。。。改为a b c d。。。。。就能运行，只是运行时，没那么好看，显示的都是小写，不改了，我喜欢漂亮一点的。最后那个无它，也是不知道而已现在要上学,上网不方便,周末回家再搞

第14楼　HAT	发表于 2009-04-15 02:36
版主　发帖 5,017　积分 9,023
Re 13楼关于用户输入一个双引号的问题，等你以后遇到无法忽略它的情况再回来讨论吧，现在你坚持这样用就这样用吧。

第15楼　darkkid	发表于 2009-04-15 02:52
初级用户　发帖 12　积分 34
输入双引号起码这里没事,具体问题具体分析,到时再算