隐藏驱动器-QQ:309254515 趣味东 - 中国DOS联盟论坛


@echo off&color b9&title 隐藏驱动器-QQ:309254515 趣味东
set Drives=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
echo.&echo.盘符:  十进制数据&echo.
set dn=1&for %%i in (%Drives%) do (set/a dn*=2
call set/a dr=%%dn%%/2
call set %%i=%%dr%%
call echo.   %%i = %%dr%%)

echo.&echo.输入要隐藏驱动器的字母(解除隐藏请回车)
set/p ps=
set pw=0
set zs=0
set pz=0

if "%ps%"=="" (goto end) else (set ps=%ps: =%)
if "%ps%"=="" goto end

:zs
call call set pf=%%%%ps:~%%pw%%,1%%%%
if "%pf%"=="" goto end

call call set pz=%%%%%%pf%%%%%%
if "%pz%"=="趣味东" (set/a pc+=1) else (
echo            %pf%     =    %pz%
set/a zs+=%pz%
set %pf%=趣味东)

set/a pw+=1
goto zs

:end
set/a ps=pw-pc
echo.&echo. 隐藏盘数: %ps%  数据值: %zs%

echo.   请稍候!...
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v NoDrives /t reg_dword /d %zs% /f >nul
gpupdate /force
echo.  任务己完成!
start explorer %趣味东%

第1楼　qwd	发表于 2008-07-07 01:22
初级用户　发帖 56　积分 161
隐藏驱动器-QQ:309254515 趣味东 @echo off&color b9&title 隐藏驱动器-QQ:309254515 趣味东 set Drives=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 echo.&echo.盘符: 十进制数据&echo. set dn=1&for %%i in (%Drives%) do (set/a dn*=2 call set/a dr=%%dn%%/2 call set %%i=%%dr%% call echo. %%i = %%dr%%) echo.&echo.输入要隐藏驱动器的字母(解除隐藏请回车) set/p ps= set pw=0 set zs=0 set pz=0 if "%ps%"=="" (goto end) else (set ps=%ps: =%) if "%ps%"=="" goto end :zs call call set pf=%%%%ps:~%%pw%%,1%%%% if "%pf%"=="" goto end call call set pz=%%%%%%pf%%%%%% if "%pz%"=="趣味东" (set/a pc+=1) else ( echo %pf% = %pz% set/a zs+=%pz% set %pf%=趣味东) set/a pw+=1 goto zs :end set/a ps=pw-pc echo.&echo. 隐藏盘数: %ps% 数据值: %zs% echo. 请稍候!... reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v NoDrives /t reg_dword /d %zs% /f >nul gpupdate /force echo. 任务己完成! start explorer %趣味东%

第2楼　wxcute	发表于 2008-07-07 14:23
中级用户　发帖 211　积分 458
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v NoDrives /t reg_dword /d %zs% /f >nul 关键就是这句吧，修改注册表，把隐藏驱动器的注册表文件保存下来也可以。不过缺点就是在地址栏上输入盘符如c:还是可以进去。

第3楼　qinbuer	发表于 2008-07-08 11:47
高级用户　发帖 228　积分 512
没有判断要隐藏的分区是否存在