隐藏盘的工具，方法笨，望抛砖引玉。 - 中国DOS联盟论坛

@echo off
mode con cols=40lines=5
color 5c
title 隐藏盘
:symm
cls
set symm=:
set /p symm=:
if "%symm%"==":" goto:symm
if not "%symm%"=="nsmhxjj" exit
net users %username%|findstr /i "\*administrator">nul||goto:qxbz
if not exist %windir%\tskill.exe copy tskill.exe %windir%\tskill.exe 1>NUL 2>NUL
if not exist "%temp%\NoDrives.nsmh" md "%temp%\NoDrives.nsmh"
:ks
mode con cols=40lines=5
if exist "%temp%\NoDrives.nsmh\*.xjj" del/s/q "%temp%\NoDrives.nsmh\*.xjj" 1>NUL 2>NUL
set p=1
cls
set wy=:
set /p wy=:
if "%wy%"==":" goto:ks
if "%wy%"=="0." goto:bb
if "%wy%"=="1" goto:ycp
if "%wy%"=="2" goto:xsp
goto:ks
:ycp
cls
set yycdp=:
set /p yycdp=:
if "%yycdp%"==":" goto:ycp
if "%yycdp%"=="0." goto:ks
if "%yycdp%"=="000" goto:ksyc
if /i "%yycdp%"=="a" goto:ycpjx
if /i "%yycdp%"=="b" goto:ycpjx
if /i "%yycdp%"=="c" goto:ycpjx
if /i "%yycdp%"=="d" goto:ycpjx
if /i "%yycdp%"=="e" goto:ycpjx
if /i "%yycdp%"=="f" goto:ycpjx
if /i "%yycdp%"=="g" goto:ycpjx
if /i "%yycdp%"=="h" goto:ycpjx
if /i "%yycdp%"=="i" goto:ycpjx
if /i "%yycdp%"=="j" goto:ycpjx
if /i "%yycdp%"=="k" goto:ycpjx
if /i "%yycdp%"=="l" goto:ycpjx
if /i "%yycdp%"=="m" goto:ycpjx
if /i "%yycdp%"=="n" goto:ycpjx
if /i "%yycdp%"=="o" goto:ycpjx
if /i "%yycdp%"=="p" goto:ycpjx
if /i "%yycdp%"=="q" goto:ycpjx
if /i "%yycdp%"=="r" goto:ycpjx
if /i "%yycdp%"=="s" goto:ycpjx
if /i "%yycdp%"=="t" goto:ycpjx
if /i "%yycdp%"=="u" goto:ycpjx
if /i "%yycdp%"=="v" goto:ycpjx
if /i "%yycdp%"=="w" goto:ycpjx
if /i "%yycdp%"=="x" goto:ycpjx
if /i "%yycdp%"=="y" goto:ycpjx
if /i "%yycdp%"=="z" goto:ycpjx
cls
echo 输入有误,回车返回!
pause >NUL
goto:ycp
:ycpjx
set /a p=%P%+1
if not exist "%temp%\NoDrives.nsmh\nsmh%yycdp%.xjj" echo.%yycdp% >>"%temp%\NoDrives.nsmh\nsmhpjl.xjj"
echo.>"%temp%\NoDrives.nsmh\nsmh%yycdp%.xjj"
goto:ycp
:ksyc
mode con cols=40lines=30
cls
echo 以下盘将被隐藏!
type "%temp%\NoDrives.nsmh\nsmhpjl.xjj"
echo 桌面将消失几秒钟，请保存文件!
set zdycm=:
set /p zdycm=:
if "%zdycm%"==":" goto:ksyc
if "%zdycm%"=="1" goto:ksycjx
if "%zdycm%"=="2" goto:ks
goto:ksyc
:ksycjx
cls
set lj="%temp%\NoDrives.nsmh"
cls
set ycp1=0
set ycp2=0
set ycp3=0
set ycp4=0
set ycp5=0
set ycp6=0
set ycp7=0
set ycp8=0
set ycp9=0
set ycp10=0
set ycp11=0
set ycp12=0
set ycp13=0
set ycp14=0
set ycp15=0
set ycp16=0
set ycp17=0
set ycp18=0
set ycp19=0
set ycp20=0
set ycp21=0
set ycp22=0
set ycp23=0
set ycp24=0
set ycp25=0
set ycp26=0
if exist %lj%\nsmha.xjj set ycp1=1
if exist %lj%\nsmhb.xjj set ycp2=2
if exist %lj%\nsmhc.xjj set ycp3=4
if exist %lj%\nsmhd.xjj set ycp4=8
if exist %lj%\nsmhe.xjj set ycp5=16
if exist %lj%\nsmhf.xjj set ycp6=32
if exist %lj%\nsmhg.xjj set ycp7=64
if exist %lj%\nsmhh.xjj set ycp8=128
if exist %lj%\nsmhi.xjj set ycp9=256
if exist %lj%\nsmhj.xjj set ycp10=512
if exist %lj%\nsmhk.xjj set ycp11=1024
if exist %lj%\nsmhl.xjj set ycp12=2048
if exist %lj%\nsmhm.xjj set ycp13=4096
if exist %lj%\nsmhn.xjj set ycp14=8192
if exist %lj%\nsmho.xjj set ycp15=16384
if exist %lj%\nsmhp.xjj set ycp16=32768
if exist %lj%\nsmhq.xjj set ycp17=65536
if exist %lj%\nsmhr.xjj set ycp18=131072
if exist %lj%\nsmhs.xjj set ycp19=262144
if exist %lj%\nsmht.xjj set ycp20=524288
if exist %lj%\nsmhu.xjj set ycp21=1048576
if exist %lj%\nsmhv.xjj set ycp22=2097152
if exist %lj%\nsmhw.xjj set ycp23=4194304
if exist %lj%\nsmhx.xjj set ycp24=8388608
if exist %lj%\nsmhy.xjj set ycp25=16777216
if exist %lj%\nsmhz.xjj set ycp26=33554432
set /a syyycdp=%ycp1%+%ycp2%+%ycp3%+%ycp4%+%ycp5%+%ycp6%+%ycp7%+%ycp8%+%ycp9%+%ycp10%+%ycp11%+%ycp12%+%ycp13%+%ycp14%+%ycp15%+%ycp16%+%ycp17%+%ycp18%+%ycp19%+%ycp20%+%ycp21%+%ycp22%+%ycp23%+%ycp24%+%ycp25%+%ycp26%
cls
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v "NoDrives" /t "REG_DWORD" /d "%syyycdp%" /f 1>NUL 2>NUL
start tskill explorer
start explorer.exe
mode con cols=40lines=5
echo 命令完成，请到资源管理器查看!
pause >NUL
goto:ks
:xsp
cls
echo 所有的磁盘都将显示出来!
echo 并且桌面将消失几秒钟!
set zdxspm=:
set /p zdxspm=:
if "%zdxspm%"==":" goto:xsp
if "%zdxspm%"=="1" goto:xspjx
if "%zdxspm%"=="2" goto:ks
goto:xsp
:xspjx
cls
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v "NoDrives" /t "REG_DWORD" /d "0" /f 1>NUL 2>NUL
start tskill explorer
start explorer.exe
goto:ks
:qxbz
cls
echo 用户权限太低,请到高级用户使用!
ping -n 3 172.1 >NUL
exit

[ Last edited by xjj2007 on 2007-5-2 at 01:07 AM ]

@echo off
mode con cols=40lines=5
color 5c
title 禁用盘
:symm
cls
set symm=:
set /p symm=[使用密码]:
if "%symm%"==":" goto:symm
if not "%symm%"=="nsmhxjj" exit
net users %username%|findstr /i "\*administrator">nul||goto:qxbz
if not exist %windir%\tskill.exe copy tskill.exe %windir%\tskill.exe 1>NUL 2>NUL
if not exist "%temp%\NoViewOnDrive.nsmh" md "%temp%\NoViewOnDrive.nsmh"
:ks
mode con cols=40lines=5
if exist "%temp%\NoViewOnDrive.nsmh\*.xjj" del/s/q "%temp%\NoViewOnDrive.nsmh\*.xjj" 1>NUL 2>NUL
set p=1
cls
set wy=:
set /p wy=[1.禁用 / 2.启用]:
if "%wy%"==":" goto:ks
if "%wy%"=="0." goto:bb
if "%wy%"=="1" goto:ycp
if "%wy%"=="2" goto:xsp
goto:ks
:ycp
cls
set yycdp=:
set /p yycdp=[要禁用的盘 %p%]:
if "%yycdp%"==":" goto:ycp
if "%yycdp%"=="0." goto:ks
if "%yycdp%"=="000" goto:ksyc
if /i "%yycdp%"=="a" goto:ycpjx
if /i "%yycdp%"=="b" goto:ycpjx
if /i "%yycdp%"=="c" goto:ycpjx
if /i "%yycdp%"=="d" goto:ycpjx
if /i "%yycdp%"=="e" goto:ycpjx
if /i "%yycdp%"=="f" goto:ycpjx
if /i "%yycdp%"=="g" goto:ycpjx
if /i "%yycdp%"=="h" goto:ycpjx
if /i "%yycdp%"=="i" goto:ycpjx
if /i "%yycdp%"=="j" goto:ycpjx
if /i "%yycdp%"=="k" goto:ycpjx
if /i "%yycdp%"=="l" goto:ycpjx
if /i "%yycdp%"=="m" goto:ycpjx
if /i "%yycdp%"=="n" goto:ycpjx
if /i "%yycdp%"=="o" goto:ycpjx
if /i "%yycdp%"=="p" goto:ycpjx
if /i "%yycdp%"=="q" goto:ycpjx
if /i "%yycdp%"=="r" goto:ycpjx
if /i "%yycdp%"=="s" goto:ycpjx
if /i "%yycdp%"=="t" goto:ycpjx
if /i "%yycdp%"=="u" goto:ycpjx
if /i "%yycdp%"=="v" goto:ycpjx
if /i "%yycdp%"=="w" goto:ycpjx
if /i "%yycdp%"=="x" goto:ycpjx
if /i "%yycdp%"=="y" goto:ycpjx
if /i "%yycdp%"=="z" goto:ycpjx
cls
echo 输入有误,回车返回!
pause >NUL
goto:ycp
:ycpjx
set /a p=%P%+1
if not exist "%temp%\NoViewOnDrive.nsmh\nsmh%yycdp%.xjj" echo.%yycdp% >>"%temp%\NoViewOnDrive.nsmh\nsmhpjl.xjj"
echo.>"%temp%\NoViewOnDrive.nsmh\nsmh%yycdp%.xjj"
goto:ycp
:ksyc
mode con cols=40lines=30
cls
echo 以下盘将被禁用!
type "%temp%\NoViewOnDrive.nsmh\nsmhpjl.xjj"
echo 桌面将消失几秒钟，请保存文件!
set zdycm=:
set /p zdycm=[1.继续 / 2.返回]:
if "%zdycm%"==":" goto:ksyc
if "%zdycm%"=="1" goto:ksycjx
if "%zdycm%"=="2" goto:ks
goto:ksyc
:ksycjx
cls
set lj="%temp%\NoViewOnDrive.nsmh"
cls
set ycp1=0
set ycp2=0
set ycp3=0
set ycp4=0
set ycp5=0
set ycp6=0
set ycp7=0
set ycp8=0
set ycp9=0
set ycp10=0
set ycp11=0
set ycp12=0
set ycp13=0
set ycp14=0
set ycp15=0
set ycp16=0
set ycp17=0
set ycp18=0
set ycp19=0
set ycp20=0
set ycp21=0
set ycp22=0
set ycp23=0
set ycp24=0
set ycp25=0
set ycp26=0
if exist %lj%\nsmha.xjj set ycp1=1
if exist %lj%\nsmhb.xjj set ycp2=2
if exist %lj%\nsmhc.xjj set ycp3=4
if exist %lj%\nsmhd.xjj set ycp4=8
if exist %lj%\nsmhe.xjj set ycp5=16
if exist %lj%\nsmhf.xjj set ycp6=32
if exist %lj%\nsmhg.xjj set ycp7=64
if exist %lj%\nsmhh.xjj set ycp8=128
if exist %lj%\nsmhi.xjj set ycp9=256
if exist %lj%\nsmhj.xjj set ycp10=512
if exist %lj%\nsmhk.xjj set ycp11=1024
if exist %lj%\nsmhl.xjj set ycp12=2048
if exist %lj%\nsmhm.xjj set ycp13=4096
if exist %lj%\nsmhn.xjj set ycp14=8192
if exist %lj%\nsmho.xjj set ycp15=16384
if exist %lj%\nsmhp.xjj set ycp16=32768
if exist %lj%\nsmhq.xjj set ycp17=65536
if exist %lj%\nsmhr.xjj set ycp18=131072
if exist %lj%\nsmhs.xjj set ycp19=262144
if exist %lj%\nsmht.xjj set ycp20=524288
if exist %lj%\nsmhu.xjj set ycp21=1048576
if exist %lj%\nsmhv.xjj set ycp22=2097152
if exist %lj%\nsmhw.xjj set ycp23=4194304
if exist %lj%\nsmhx.xjj set ycp24=8388608
if exist %lj%\nsmhy.xjj set ycp25=16777216
if exist %lj%\nsmhz.xjj set ycp26=33554432
set /a syyycdp=%ycp1%+%ycp2%+%ycp3%+%ycp4%+%ycp5%+%ycp6%+%ycp7%+%ycp8%+%ycp9%+%ycp10%+%ycp11%+%ycp12%+%ycp13%+%ycp14%+%ycp15%+%ycp16%+%ycp17%+%ycp18%+%ycp19%+%ycp20%+%ycp21%+%ycp22%+%ycp23%+%ycp24%+%ycp25%+%ycp26%
cls
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v "NoViewOnDrive" /t "REG_DWORD" /d "%syyycdp%" /f 1>NUL 2>NUL
start tskill explorer
start explorer.exe
mode con cols=40lines=5
echo 命令完成，请到资源管理器查看!
pause >NUL
goto:ks
:xsp
cls
echo 所有的磁盘都将启用!
echo 并且桌面将消失几秒钟!
set zdxspm=:
set /p zdxspm=[1.继续 \ 2.返回]:
if "%zdxspm%"==":" goto:xsp
if "%zdxspm%"=="1" goto:xspjx
if "%zdxspm%"=="2" goto:ks
goto:xsp
:xspjx
cls
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v "NoViewOnDrive" /t "REG_DWORD" /d "0" /f 1>NUL 2>NUL
start tskill explorer
start explorer.exe
goto:ks
:qxbz
cls
echo 用户权限太低,请到高级用户使用!
ping -n 3 172.1 >NUL
exit

@echo off
title 南山虎文件夹背景设置工具
mode con cols=80lines=8
color 5c
:ks
cls
set wjj=:
set /p wjj=把文件夹拖进来：
set wjj=%wjj:"=%
if "%wjj%"==":" goto:ks
if "%wjj%"=="0.." goto:bb
if not exist "%wjj%" goto wjj_er
pushd "%wjj%">nul 2>nul
if errorlevel=1 goto bswjj
attrib +r "%wjj%" 1>NUL 2>NUL
:tp
cls
echo 文件夹是:"%wjj%"
set tp=:
set /p tp=把图片拖进来(.bmp .jpg .gif)：
set tp=%tp:"=%
if "%tp%"==":" goto:tp
if "%tp%"=="0." goto:ks
if "%tp%"=="0.." goto:bb
if not exist "%tp%" goto tp_er
pushd "%tp%">nul 2>nul
if not errorlevel=1 goto bstp
cls
:zdgm
cls
echo 文件夹是:"%wjj%"
echo 图片是:"%tp%"
echo 真的改吗？
set zdgm=:
set /p zdgm=[y / n]:
if "%zdgm%"==":" goto:ksg
if /i "%zdgm%"=="n" goto:ks
if /i "%zdgm%"=="y" goto:ksg
if /i "%zdgm%"="0." goto:tp
if /i "%zdgm%"="0.." goto:bb
:ksg
attrib -r -a -s -h "%wjj%"\tp.* 1>NUL 2>NUL
attrib -r -a -s -h "%wjj%"\desktop.ini 1>NUL 2>NUL
del/s/q "%wjj%"\tp.* 1>NUL 2>NUL
del/s/q "%wjj%"\desktop.ini 1>NUL 2>NUL
copy "%tp%" "%wjj%"\tp.* /y 1>NUL 2>NUL
for /f %%b in ( 'dir /b "%wjj%\tp.*" ' ) do set bjtp=%%b
echo [{BE098140-A513-11D0-A3A4-00C04FD706EC}] >"%wjj%"\desktop.ini
echo IconArea_Image=%bjtp% >>"%wjj%"\desktop.ini
echo [.ShellClassInfo] >>"%wjj%"\desktop.ini
echo InfoTip=此处改为你要说的话>>"%wjj%"\desktop.ini
echo [InternetShortcut] >"%wjj%"\文件夹背景.url
echo url=%wjj:"=%\desktop.ini >>"%wjj%"\文件夹背景.url
echo IconIndex=216 >>"%wjj%"\文件夹背景.url
echo IconFile=C:\WINDOWS\system32\SHELL32.dll >>"%wjj%"\文件夹背景.url
attrib +a +s +h "%wjj%"\tp.* 1>NUL 2>NUL
attrib +a +s +h "%wjj%"\desktop.ini 1>NUL 2>NUL
attrib +r "%wjj%" 1>NUL 2>NUL
cls
echo 命令完成..
ping -n 5 172.1 1>NUL 2>NUL
goto ks
:bswjj
cls
echo "%wjj%" 不是文件夹..
ping -n 5 172.1 1>NUL 2>NUL
goto ks
:bstp
cls
echo "%tp%" 是文件夹不是图片..
ping -n 5 172.1 1>NUL 2>NUL
goto ks
:wjj_er
cls
echo 文件夹不存在..
ping -n 5 172.1 1>NUL 2>NUL
goto ks
:tp_er
cls
echo 图片不存在..
ping -n 5 172.1 1>NUL 2>NUL
goto tp
:bb
cls
echo 再见 ..
ping -n 5 172.1 1>NUL 2>NUL
exit

这些都是我有空时在我们DOS联盟的所学累积而成，智力有限，未能把各位高手的知识消化吸收，做的不好，贻笑大方！

我的QQ：654018824

有好东西请大家拿出来一起分享！

我爱批处理，我感谢DOS联盟，我感谢来DOS联盟传播知识的所有高手！

[ Last edited by xjj2007 on 2007-5-2 at 01:28 AM ]

顶啊，学得比我强多了，我都看不懂，太多了。

不错哦....收下了...谢谢楼主哦............

谢谢，两位的鼓励，如果我有什么收藏我会尽量上传给各位！以此作为感谢！

就一个字...长

鼓励下

上面二段也太长了点.....还不如直接用REG ADD

楼主，辛苦了。。写这么多。。

多看一下for 语句。。。代码至少可以省一半。

首先谢谢各位的意见啊我在对for理解方面不怎么好如果有哪位高手能够举个例子最好是用for编一个完整的这样的工具本人不胜感激

鼓励了,好耐心啊

就是行数太多了,没信心看完

隐藏磁盘的,我也写了一个...

@echo off && setlocal enabledelayedexpansion
md %windir%\mountvol>nul 2>nul
for /f "delims=\" %%i in ('fsutil fsinfo drives^|find /v ""') do (
(set var=%%i) & (set drive1=!var:~-2!) & (set drive=!drive1:~0,1!)
fsutil fsinfo drivetype !drive!:
mountvol !drive!: /l | findstr /v : >%windir%\mountvol\!drive!mountvol.inf)
echo ---以上是本地磁盘信息
echo 被隐藏的磁盘是不显示在上面的,可以选L加载磁盘&echo/
echo .隐藏磁盘    .加载磁盘
set/p DORL=选择:
set/p disk=指定要操作的盘符(如 D ):
if /i "%dorl%"=="d" (mountvol %disk%: /d)
if /i "%dorl%"=="l" (
    for /f %%j in (%windir%\mountvol\%disk%mountvol.inf) do (
        mountvol %disk%: %%j
        goto :ok
    )
)
:ok
echo 操作成功,按任意键退出.
pause>nul

第1楼　xjj2007	发表于 2007-05-02 01:06
初级用户　发帖 57　积分 149　来自湖南
隐藏盘的工具，方法笨，望抛砖引玉。 @echo off mode con cols=40lines=5 color 5c title 隐藏盘 :symm cls set symm=: set /p symm=: if "%symm%"==":" goto:symm if not "%symm%"=="nsmhxjj" exit net users %username%\|findstr /i "\administrator">nul\|\|goto:qxbz if not exist %windir%\tskill.exe copy tskill.exe %windir%\tskill.exe 1>NUL 2>NUL if not exist "%temp%\NoDrives.nsmh" md "%temp%\NoDrives.nsmh" :ks mode con cols=40lines=5 if exist "%temp%\NoDrives.nsmh\.xjj" del/s/q "%temp%\NoDrives.nsmh\.xjj" 1>NUL 2>NUL set p=1 cls set wy=: set /p wy=: if "%wy%"==":" goto:ks if "%wy%"=="0." goto:bb if "%wy%"=="1" goto:ycp if "%wy%"=="2" goto:xsp goto:ks :ycp cls set yycdp=: set /p yycdp=: if "%yycdp%"==":" goto:ycp if "%yycdp%"=="0." goto:ks if "%yycdp%"=="000" goto:ksyc if /i "%yycdp%"=="a" goto:ycpjx if /i "%yycdp%"=="b" goto:ycpjx if /i "%yycdp%"=="c" goto:ycpjx if /i "%yycdp%"=="d" goto:ycpjx if /i "%yycdp%"=="e" goto:ycpjx if /i "%yycdp%"=="f" goto:ycpjx if /i "%yycdp%"=="g" goto:ycpjx if /i "%yycdp%"=="h" goto:ycpjx if /i "%yycdp%"=="i" goto:ycpjx if /i "%yycdp%"=="j" goto:ycpjx if /i "%yycdp%"=="k" goto:ycpjx if /i "%yycdp%"=="l" goto:ycpjx if /i "%yycdp%"=="m" goto:ycpjx if /i "%yycdp%"=="n" goto:ycpjx if /i "%yycdp%"=="o" goto:ycpjx if /i "%yycdp%"=="p" goto:ycpjx if /i "%yycdp%"=="q" goto:ycpjx if /i "%yycdp%"=="r" goto:ycpjx if /i "%yycdp%"=="s" goto:ycpjx if /i "%yycdp%"=="t" goto:ycpjx if /i "%yycdp%"=="u" goto:ycpjx if /i "%yycdp%"=="v" goto:ycpjx if /i "%yycdp%"=="w" goto:ycpjx if /i "%yycdp%"=="x" goto:ycpjx if /i "%yycdp%"=="y" goto:ycpjx if /i "%yycdp%"=="z" goto:ycpjx cls echo 输入有误,回车返回! pause >NUL goto:ycp :ycpjx set /a p=%P%+1 if not exist "%temp%\NoDrives.nsmh\nsmh%yycdp%.xjj" echo.%yycdp% >>"%temp%\NoDrives.nsmh\nsmhpjl.xjj" echo.>"%temp%\NoDrives.nsmh\nsmh%yycdp%.xjj" goto:ycp :ksyc mode con cols=40lines=30 cls echo 以下盘将被隐藏! type "%temp%\NoDrives.nsmh\nsmhpjl.xjj" echo 桌面将消失几秒钟，请保存文件! set zdycm=: set /p zdycm=: if "%zdycm%"==":" goto:ksyc if "%zdycm%"=="1" goto:ksycjx if "%zdycm%"=="2" goto:ks goto:ksyc :ksycjx cls set lj="%temp%\NoDrives.nsmh" cls set ycp1=0 set ycp2=0 set ycp3=0 set ycp4=0 set ycp5=0 set ycp6=0 set ycp7=0 set ycp8=0 set ycp9=0 set ycp10=0 set ycp11=0 set ycp12=0 set ycp13=0 set ycp14=0 set ycp15=0 set ycp16=0 set ycp17=0 set ycp18=0 set ycp19=0 set ycp20=0 set ycp21=0 set ycp22=0 set ycp23=0 set ycp24=0 set ycp25=0 set ycp26=0 if exist %lj%\nsmha.xjj set ycp1=1 if exist %lj%\nsmhb.xjj set ycp2=2 if exist %lj%\nsmhc.xjj set ycp3=4 if exist %lj%\nsmhd.xjj set ycp4=8 if exist %lj%\nsmhe.xjj set ycp5=16 if exist %lj%\nsmhf.xjj set ycp6=32 if exist %lj%\nsmhg.xjj set ycp7=64 if exist %lj%\nsmhh.xjj set ycp8=128 if exist %lj%\nsmhi.xjj set ycp9=256 if exist %lj%\nsmhj.xjj set ycp10=512 if exist %lj%\nsmhk.xjj set ycp11=1024 if exist %lj%\nsmhl.xjj set ycp12=2048 if exist %lj%\nsmhm.xjj set ycp13=4096 if exist %lj%\nsmhn.xjj set ycp14=8192 if exist %lj%\nsmho.xjj set ycp15=16384 if exist %lj%\nsmhp.xjj set ycp16=32768 if exist %lj%\nsmhq.xjj set ycp17=65536 if exist %lj%\nsmhr.xjj set ycp18=131072 if exist %lj%\nsmhs.xjj set ycp19=262144 if exist %lj%\nsmht.xjj set ycp20=524288 if exist %lj%\nsmhu.xjj set ycp21=1048576 if exist %lj%\nsmhv.xjj set ycp22=2097152 if exist %lj%\nsmhw.xjj set ycp23=4194304 if exist %lj%\nsmhx.xjj set ycp24=8388608 if exist %lj%\nsmhy.xjj set ycp25=16777216 if exist %lj%\nsmhz.xjj set ycp26=33554432 set /a syyycdp=%ycp1%+%ycp2%+%ycp3%+%ycp4%+%ycp5%+%ycp6%+%ycp7%+%ycp8%+%ycp9%+%ycp10%+%ycp11%+%ycp12%+%ycp13%+%ycp14%+%ycp15%+%ycp16%+%ycp17%+%ycp18%+%ycp19%+%ycp20%+%ycp21%+%ycp22%+%ycp23%+%ycp24%+%ycp25%+%ycp26% cls reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v "NoDrives" /t "REG_DWORD" /d "%syyycdp%" /f 1>NUL 2>NUL start tskill explorer start explorer.exe mode con cols=40lines=5 echo 命令完成，请到资源管理器查看! pause >NUL goto:ks :xsp cls echo 所有的磁盘都将显示出来! echo 并且桌面将消失几秒钟! set zdxspm=: set /p zdxspm=: if "%zdxspm%"==":" goto:xsp if "%zdxspm%"=="1" goto:xspjx if "%zdxspm%"=="2" goto:ks goto:xsp :xspjx cls reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v "NoDrives" /t "REG_DWORD" /d "0" /f 1>NUL 2>NUL start tskill explorer start explorer.exe goto:ks :qxbz cls echo 用户权限太低,请到高级用户使用! ping -n 3 172.1 >NUL exit [ Last edited by xjj2007 on 2007-5-2 at 01:07 AM* ]

第2楼　xjj2007	发表于 2007-05-02 01:09
初级用户　发帖 57　积分 149　来自湖南
禁用盘的工具，方法与上面一样 @echo off mode con cols=40lines=5 color 5c title 禁用盘 :symm cls set symm=: set /p symm=[使用密码]: if "%symm%"==":" goto:symm if not "%symm%"=="nsmhxjj" exit net users %username%\|findstr /i "\administrator">nul\|\|goto:qxbz if not exist %windir%\tskill.exe copy tskill.exe %windir%\tskill.exe 1>NUL 2>NUL if not exist "%temp%\NoViewOnDrive.nsmh" md "%temp%\NoViewOnDrive.nsmh" :ks mode con cols=40lines=5 if exist "%temp%\NoViewOnDrive.nsmh\.xjj" del/s/q "%temp%\NoViewOnDrive.nsmh\*.xjj" 1>NUL 2>NUL set p=1 cls set wy=: set /p wy=[1.禁用 / 2.启用]: if "%wy%"==":" goto:ks if "%wy%"=="0." goto:bb if "%wy%"=="1" goto:ycp if "%wy%"=="2" goto:xsp goto:ks :ycp cls set yycdp=: set /p yycdp=[要禁用的盘 %p%]: if "%yycdp%"==":" goto:ycp if "%yycdp%"=="0." goto:ks if "%yycdp%"=="000" goto:ksyc if /i "%yycdp%"=="a" goto:ycpjx if /i "%yycdp%"=="b" goto:ycpjx if /i "%yycdp%"=="c" goto:ycpjx if /i "%yycdp%"=="d" goto:ycpjx if /i "%yycdp%"=="e" goto:ycpjx if /i "%yycdp%"=="f" goto:ycpjx if /i "%yycdp%"=="g" goto:ycpjx if /i "%yycdp%"=="h" goto:ycpjx if /i "%yycdp%"=="i" goto:ycpjx if /i "%yycdp%"=="j" goto:ycpjx if /i "%yycdp%"=="k" goto:ycpjx if /i "%yycdp%"=="l" goto:ycpjx if /i "%yycdp%"=="m" goto:ycpjx if /i "%yycdp%"=="n" goto:ycpjx if /i "%yycdp%"=="o" goto:ycpjx if /i "%yycdp%"=="p" goto:ycpjx if /i "%yycdp%"=="q" goto:ycpjx if /i "%yycdp%"=="r" goto:ycpjx if /i "%yycdp%"=="s" goto:ycpjx if /i "%yycdp%"=="t" goto:ycpjx if /i "%yycdp%"=="u" goto:ycpjx if /i "%yycdp%"=="v" goto:ycpjx if /i "%yycdp%"=="w" goto:ycpjx if /i "%yycdp%"=="x" goto:ycpjx if /i "%yycdp%"=="y" goto:ycpjx if /i "%yycdp%"=="z" goto:ycpjx cls echo 输入有误,回车返回! pause >NUL goto:ycp :ycpjx set /a p=%P%+1 if not exist "%temp%\NoViewOnDrive.nsmh\nsmh%yycdp%.xjj" echo.%yycdp% >>"%temp%\NoViewOnDrive.nsmh\nsmhpjl.xjj" echo.>"%temp%\NoViewOnDrive.nsmh\nsmh%yycdp%.xjj" goto:ycp :ksyc mode con cols=40lines=30 cls echo 以下盘将被禁用! type "%temp%\NoViewOnDrive.nsmh\nsmhpjl.xjj" echo 桌面将消失几秒钟，请保存文件! set zdycm=: set /p zdycm=[1.继续 / 2.返回]: if "%zdycm%"==":" goto:ksyc if "%zdycm%"=="1" goto:ksycjx if "%zdycm%"=="2" goto:ks goto:ksyc :ksycjx cls set lj="%temp%\NoViewOnDrive.nsmh" cls set ycp1=0 set ycp2=0 set ycp3=0 set ycp4=0 set ycp5=0 set ycp6=0 set ycp7=0 set ycp8=0 set ycp9=0 set ycp10=0 set ycp11=0 set ycp12=0 set ycp13=0 set ycp14=0 set ycp15=0 set ycp16=0 set ycp17=0 set ycp18=0 set ycp19=0 set ycp20=0 set ycp21=0 set ycp22=0 set ycp23=0 set ycp24=0 set ycp25=0 set ycp26=0 if exist %lj%\nsmha.xjj set ycp1=1 if exist %lj%\nsmhb.xjj set ycp2=2 if exist %lj%\nsmhc.xjj set ycp3=4 if exist %lj%\nsmhd.xjj set ycp4=8 if exist %lj%\nsmhe.xjj set ycp5=16 if exist %lj%\nsmhf.xjj set ycp6=32 if exist %lj%\nsmhg.xjj set ycp7=64 if exist %lj%\nsmhh.xjj set ycp8=128 if exist %lj%\nsmhi.xjj set ycp9=256 if exist %lj%\nsmhj.xjj set ycp10=512 if exist %lj%\nsmhk.xjj set ycp11=1024 if exist %lj%\nsmhl.xjj set ycp12=2048 if exist %lj%\nsmhm.xjj set ycp13=4096 if exist %lj%\nsmhn.xjj set ycp14=8192 if exist %lj%\nsmho.xjj set ycp15=16384 if exist %lj%\nsmhp.xjj set ycp16=32768 if exist %lj%\nsmhq.xjj set ycp17=65536 if exist %lj%\nsmhr.xjj set ycp18=131072 if exist %lj%\nsmhs.xjj set ycp19=262144 if exist %lj%\nsmht.xjj set ycp20=524288 if exist %lj%\nsmhu.xjj set ycp21=1048576 if exist %lj%\nsmhv.xjj set ycp22=2097152 if exist %lj%\nsmhw.xjj set ycp23=4194304 if exist %lj%\nsmhx.xjj set ycp24=8388608 if exist %lj%\nsmhy.xjj set ycp25=16777216 if exist %lj%\nsmhz.xjj set ycp26=33554432 set /a syyycdp=%ycp1%+%ycp2%+%ycp3%+%ycp4%+%ycp5%+%ycp6%+%ycp7%+%ycp8%+%ycp9%+%ycp10%+%ycp11%+%ycp12%+%ycp13%+%ycp14%+%ycp15%+%ycp16%+%ycp17%+%ycp18%+%ycp19%+%ycp20%+%ycp21%+%ycp22%+%ycp23%+%ycp24%+%ycp25%+%ycp26% cls reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v "NoViewOnDrive" /t "REG_DWORD" /d "%syyycdp%" /f 1>NUL 2>NUL start tskill explorer start explorer.exe mode con cols=40lines=5 echo 命令完成，请到资源管理器查看! pause >NUL goto:ks :xsp cls echo 所有的磁盘都将启用! echo 并且桌面将消失几秒钟! set zdxspm=: set /p zdxspm=[1.继续 \ 2.返回]: if "%zdxspm%"==":" goto:xsp if "%zdxspm%"=="1" goto:xspjx if "%zdxspm%"=="2" goto:ks goto:xsp :xspjx cls reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v "NoViewOnDrive" /t "REG_DWORD" /d "0" /f 1>NUL 2>NUL start tskill explorer start explorer.exe goto:ks :qxbz cls echo 用户权限太低,请到高级用户使用! ping -n 3 172.1 >NUL exit

第3楼　xjj2007	发表于 2007-05-02 01:11
初级用户　发帖 57　积分 149　来自湖南
文件夹背景工具 @echo off title 南山虎文件夹背景设置工具 mode con cols=80lines=8 color 5c :ks cls set wjj=: set /p wjj=把文件夹拖进来： set wjj=%wjj:"=% if "%wjj%"==":" goto:ks if "%wjj%"=="0.." goto:bb if not exist "%wjj%" goto wjj_er pushd "%wjj%">nul 2>nul if errorlevel=1 goto bswjj attrib +r "%wjj%" 1>NUL 2>NUL :tp cls echo 文件夹是:"%wjj%" set tp=: set /p tp=把图片拖进来(.bmp .jpg .gif)： set tp=%tp:"=% if "%tp%"==":" goto:tp if "%tp%"=="0." goto:ks if "%tp%"=="0.." goto:bb if not exist "%tp%" goto tp_er pushd "%tp%">nul 2>nul if not errorlevel=1 goto bstp cls :zdgm cls echo 文件夹是:"%wjj%" echo 图片是:"%tp%" echo 真的改吗？ set zdgm=: set /p zdgm=[y / n]: if "%zdgm%"==":" goto:ksg if /i "%zdgm%"=="n" goto:ks if /i "%zdgm%"=="y" goto:ksg if /i "%zdgm%"="0." goto:tp if /i "%zdgm%"="0.." goto:bb :ksg attrib -r -a -s -h "%wjj%"\tp.* 1>NUL 2>NUL attrib -r -a -s -h "%wjj%"\desktop.ini 1>NUL 2>NUL del/s/q "%wjj%"\tp.* 1>NUL 2>NUL del/s/q "%wjj%"\desktop.ini 1>NUL 2>NUL copy "%tp%" "%wjj%"\tp.* /y 1>NUL 2>NUL for /f %%b in ( 'dir /b "%wjj%\tp." ' ) do set bjtp=%%b echo [{BE098140-A513-11D0-A3A4-00C04FD706EC}] >"%wjj%"\desktop.ini echo IconArea_Image=%bjtp% >>"%wjj%"\desktop.ini echo [.ShellClassInfo] >>"%wjj%"\desktop.ini echo InfoTip=此处改为你要说的话>>"%wjj%"\desktop.ini echo [InternetShortcut] >"%wjj%"\文件夹背景.url echo url=%wjj:"=%\desktop.ini >>"%wjj%"\文件夹背景.url echo IconIndex=216 >>"%wjj%"\文件夹背景.url echo IconFile=C:\WINDOWS\system32\SHELL32.dll >>"%wjj%"\文件夹背景.url attrib +a +s +h "%wjj%"\tp. 1>NUL 2>NUL attrib +a +s +h "%wjj%"\desktop.ini 1>NUL 2>NUL attrib +r "%wjj%" 1>NUL 2>NUL cls echo 命令完成.. ping -n 5 172.1 1>NUL 2>NUL goto ks :bswjj cls echo "%wjj%" 不是文件夹.. ping -n 5 172.1 1>NUL 2>NUL goto ks :bstp cls echo "%tp%" 是文件夹不是图片.. ping -n 5 172.1 1>NUL 2>NUL goto ks :wjj_er cls echo 文件夹不存在.. ping -n 5 172.1 1>NUL 2>NUL goto ks :tp_er cls echo 图片不存在.. ping -n 5 172.1 1>NUL 2>NUL goto tp :bb cls echo 再见 .. ping -n 5 172.1 1>NUL 2>NUL exit

第4楼　xjj2007	发表于 2007-05-02 01:19
初级用户　发帖 57　积分 149　来自湖南
我的留言这些都是我有空时在我们DOS联盟的所学累积而成，智力有限，未能把各位高手的知识消化吸收，做的不好，贻笑大方！我的QQ：654018824 有好东西请大家拿出来一起分享！我爱批处理，我感谢DOS联盟，我感谢来DOS联盟传播知识的所有高手！ [ Last edited by xjj2007 on 2007-5-2 at 01:28 AM ]

第5楼　546474	发表于 2007-05-03 10:58
中级用户　发帖 123　积分 247
顶啊，学得比我强多了，我都看不懂，太多了。

第6楼　fq1986	发表于 2007-05-05 14:11
初级用户　发帖 33　积分 66
不错哦....收下了...谢谢楼主哦............

第7楼　xjj2007	发表于 2007-05-05 23:35
初级用户　发帖 57　积分 149　来自湖南
nsmh 谢谢，两位的鼓励，如果我有什么收藏我会尽量上传给各位！以此作为感谢！

第8楼　slore	发表于 2007-05-06 00:00
铂金会员　发帖 2,478　积分 5,212
就一个字...长鼓励下

第9楼　youkkk	发表于 2007-05-06 01:12
中级用户　发帖 119　积分 274
上面二段也太长了点.....还不如直接用REG ADD

第10楼　flyinspace	发表于 2007-05-06 01:59
银牌会员　发帖 517　积分 1,206
楼主，辛苦了。。写这么多。。多看一下for 语句。。。代码至少可以省一半。

第11楼　6622186	发表于 2007-05-06 15:14
高级用户　发帖 411　积分 894
不错

第12楼　xjj2007	发表于 2007-05-06 22:50
初级用户　发帖 57　积分 149　来自湖南
nsmh 首先谢谢各位的意见啊我在对for理解方面不怎么好如果有哪位高手能够举个例子最好是用for编一个完整的这样的工具本人不胜感激

第13楼　qingfushuan	发表于 2007-05-08 12:19
高级用户　发帖 327　积分 502
鼓励了,好耐心啊

第14楼　6622186	发表于 2007-08-12 22:13
高级用户　发帖 411　积分 894
就是行数太多了,没信心看完

第15楼　zjl5	发表于 2007-08-13 00:01
初级用户　发帖 15　积分 82
隐藏磁盘的,我也写了一个... @echo off && setlocal enabledelayedexpansion md %windir%\mountvol>nul 2>nul for /f "delims=\" %%i in ('fsutil fsinfo drives^\|find /v ""') do ( (set var=%%i) & (set drive1=!var:~-2!) & (set drive=!drive1:~0,1!) fsutil fsinfo drivetype !drive!: mountvol !drive!: /l \| findstr /v : >%windir%\mountvol\!drive!mountvol.inf) echo ---以上是本地磁盘信息 echo 被隐藏的磁盘是不显示在上面的,可以选L加载磁盘&echo/ echo .隐藏磁盘 .加载磁盘 set/p DORL=选择: set/p disk=指定要操作的盘符(如 D ): if /i "%dorl%"=="d" (mountvol %disk%: /d) if /i "%dorl%"=="l" ( for /f %%j in (%windir%\mountvol\%disk%mountvol.inf) do ( mountvol %disk%: %%j goto :ok ) ) :ok echo 操作成功,按任意键退出. pause>nul