中国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