|
xjj2007
初级用户
积分 149
发帖 57
注册 2006-10-26
来自 湖南
状态 离线
|
『楼 主』:
隐藏盘的工具，方法笨，望抛砖引玉。
@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=[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%\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=[1.继续 / 2.返回]:
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=[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 "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 ]
|
|
 2007-5-2 01:06 |
|
|
xjj2007
初级用户
积分 149
发帖 57
注册 2006-10-26
来自 湖南
状态 离线
|
『第
2 楼』:
禁用盘的工具，方法与上面一样
@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
|
|
|
2007-5-2 01:09 |
|
|
xjj2007
初级用户
积分 149
发帖 57
注册 2006-10-26
来自 湖南
状态 离线
|
『第
3 楼』:
文件夹背景工具
@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
|
|
|
2007-5-2 01:11 |
|
|
xjj2007
初级用户
积分 149
发帖 57
注册 2006-10-26
来自 湖南
状态 离线
|
『第
4 楼』:
我的留言
这些都是我有空时在我们DOS联盟的所学累积而成，智力有限，未能把各位高手的知识消化吸收，做的不好，贻笑大方！
我的QQ：654018824
有好东西请大家拿出来一起分享！
我爱批处理，我感谢DOS联盟，我感谢来DOS联盟传播知识的所有高手！
[ Last edited by xjj2007 on 2007-5-2 at 01:28 AM ]
|
|
|
2007-5-2 01:19 |
|
|
546474
中级用户
积分 247
发帖 123
注册 2007-4-17
状态 离线
|
『第
5 楼』:
顶啊，学得比我强多了，我都看不懂，太多了。
|
|
|
2007-5-3 10:58 |
|
|
fq1986
初级用户
积分 66
发帖 33
注册 2007-4-28
状态 离线
|
『第
6 楼』:
不错哦....收下了...谢谢楼主哦............
|
|
|
2007-5-5 14:11 |
|
|
xjj2007
初级用户
积分 149
发帖 57
注册 2006-10-26
来自 湖南
状态 离线
|
『第
7 楼』:
nsmh
谢谢，两位的鼓励，如果我有什么收藏我会尽量上传给各位！以此作为感谢！
|
|
|
2007-5-5 23:35 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
|
|
2007-5-6 00:00 |
|
|
youkkk
中级用户
积分 274
发帖 119
注册 2006-10-17
状态 离线
|
『第
9 楼』:
上面二段也太长了点.....还不如直接用REG ADD
|
|
|
2007-5-6 01:12 |
|
|
flyinspace
银牌会员
积分 1206
发帖 517
注册 2007-3-25
状态 离线
|
『第
10 楼』:
楼主，辛苦了。。写这么多。。
多看一下for 语句。。。代码至少可以省一半。
|
知，不觉多。不知，乃求知 |
|
|
2007-5-6 01:59 |
|
|
6622186
高级用户
积分 894
发帖 411
注册 2007-2-17
状态 离线
|
『第
11 楼』:
不错
|
@set c= 不知则觉多,知则觉少,越知越多,便觉越来越少. --- 知多少.
@for,/l,%%i,in,(1,1,55)do,@call,set/p=%%c:~%%i,1%%<nul&ping/n 1 127.1>nul
|
|
|
2007-5-6 15:14 |
|
|
xjj2007
初级用户
积分 149
发帖 57
注册 2006-10-26
来自 湖南
状态 离线
|
『第
12 楼』:
nsmh
首先谢谢 各位的意见啊 我在对for理解方面不怎么好 如果有哪位高手能够举个例子 最好是用for编一个完整的这样的工具 本人不胜感激
|
|
|
2007-5-6 22:50 |
|
|
qingfushuan
高级用户
积分 502
发帖 327
注册 2006-12-30
状态 离线
|
|
|
2007-5-8 12:19 |
|
|
6622186
高级用户
积分 894
发帖 411
注册 2007-2-17
状态 离线
|
『第
14 楼』:
就是行数太多了,没信心看完
|
@set c= 不知则觉多,知则觉少,越知越多,便觉越来越少. --- 知多少.
@for,/l,%%i,in,(1,1,55)do,@call,set/p=%%c:~%%i,1%%<nul&ping/n 1 127.1>nul
|
|
|
2007-8-12 22:13 |
|
|
zjl5
初级用户
积分 82
发帖 15
注册 2007-5-26
状态 离线
|
『第
15 楼』:
隐藏磁盘的,我也写了一个...
@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 [D].隐藏磁盘 [L].加载磁盘
set/p DORL=选择[D/L]:
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
|
|
|
2007-8-13 00:01 |
|
