中国DOS联盟

@echo off
title 系统启动菜单修改器

:start
color fc
mode con: cols=32 lines=6
c:
cd \
ECHO.
setlocal enabledelayedexpansion
set boot=c:\boot.ini  
for /f "tokens=2 delims==" %%i in ('findstr /C:"timeout" %boot%') do echo        原始启动时间为: %%i

echo.
echo  请输入您想要的启动时间，并回车
set/p times=          修改为：

CLS
if {%times%} equ {} goto error
if {%times%} equ {0} goto ok
set /a a=%times%-1
set /a b=%a%*4
if %B% LSS 0 goto error
if {%times%} equ {-} goto error
if {%times%} equ {~} goto error

:ok
type boot.ini>boot.bak  
attrib -h -r -s boot.ini  
type boot.bak|find "boot loader" /i>boot.ini  
echo timeout=%times% >>boot.ini  
type boot.bak|find "boot loader" /i /v|find "timeout" /i /v>>boot.ini  
attrib +s +r +h boot.ini  
@del boot.bak >>nul
goto exit

:error
cls
echo.
echo.
echo      请输入数字！
echo.
@ping -n 3 127.0.0.1 >>nul
goto start

:exit
cls
echo.
echo.
echo 启动菜单的选择时间修改为 %times% 秒
echo.
@ping -n 3 127.0.0.1 >>nul
exit

@echo off
title 硬盘分区整Ｇ公式计算器 Ｂy ＱＱ195408188
setlocal enabledelayedexpansion
:ok
color f4
mode con: cols=15 lines=3
mode con: cols=19 lines=4
mode con: cols=22 lines=5
mode con: cols=25 lines=6
mode con: cols=28 lines=7
mode con: cols=30 lines=8
mode con: cols=32 lines=9
mode con: cols=38 lines=10
mode con: cols=40 lines=11
mode con: cols=45 lines=12
mode con: cols=48 lines=13
mode con: cols=50 lines=14
mode con: cols=54 lines=15
echo.
echo   我们在进行硬盘分区的时候，往往输入5000 Mb
echo.
echo   但是得出来的分区容量却不是整数 5G
echo.
echo   那是因为系统在计算容量的时候不是按照1000来计算的
echo.
echo   而是按照1024来计算的,所以在分区的时候经常看到4.99G
echo.
echo   不是整数,感觉很不舒服.此工具解决了您的后顾之忧~~
echo.
echo   按照此工具计算出来的数字来分区,保证十全十美 *^^_^^*
echo.

set /p X=  请输入您要分区后得到的整数（单位G）:  
set /a num1=%X%
set /a A=%num1%-1
set /a B=%A%*4
set /a C=%X%*1024
set /a D=%B%+%C%

mode con: cols=54 lines=15
mode con: cols=50 lines=14
mode con: cols=48 lines=13
mode con: cols=45 lines=12
mode con: cols=40 lines=11
mode con: cols=38 lines=10
mode con: cols=32 lines=9
mode con: cols=28 lines=8
mode con: cols=25 lines=7
mode con: cols=22 lines=6
mode con: cols=20 lines=5
mode con: cols=18 lines=4
mode con: cols=15 lines=2


color 4f
mode con: cols=15 lines=1
mode con: cols=25 lines=1
mode con: cols=28 lines=1
mode con: cols=30 lines=1
mode con: cols=32 lines=1
mode con: cols=38 lines=1
mode con: cols=40 lines=2
mode con: cols=45 lines=3
mode con: cols=48 lines=4
mode con: cols=50 lines=5
mode con: cols=54 lines=6
mode con: cols=54 lines=7

if {%D%} equ {} goto :error
if %D% LSS 1024 goto :error1

:jisuan
echo.
echo.
echo   您在分区时，输入 %D% Mb 就可以得到整数 %X% G
echo.
echo   分区的公式是：〖（ X－1）×4＋1024×X＝Y 〗
echo.
echo  （X是你要得到的整数；Y是计算出来应输入的数字）

pause >>NUL
mode con: cols=54 lines=7
echo                     ＢＹＥ～～
mode con: cols=54 lines=6
echo                    ＢＹＥ～～
mode con: cols=50 lines=5
echo                   ＢＹＥ～～
mode con: cols=48 lines=4
echo                 ＢＹＥ～～
mode con: cols=45 lines=3
echo               ＢＹＥ～～
mode con: cols=40 lines=2
mode con: cols=38 lines=1
mode con: cols=32 lines=1
mode con: cols=30 lines=1
mode con: cols=28 lines=1
mode con: cols=25 lines=1
mode con: cols=22 lines=1
mode con: cols=19 lines=1
mode con: cols=15 lines=1
goto :exit

:error
echo.
echo   错误！！
echo.
echo   请输入合法的数字！！
@ping -n 2 127.0.0.1 >>nul
mode con: cols=54 lines=7
mode con: cols=50 lines=6
mode con: cols=48 lines=5
mode con: cols=45 lines=4
mode con: cols=42 lines=3
mode con: cols=38 lines=2
mode con: cols=36 lines=1
mode con: cols=32 lines=1
mode con: cols=28 lines=1
mode con: cols=25 lines=1
mode con: cols=19 lines=1
mode con: cols=15 lines=1
goto :ok

:error1
echo.
echo  系统即将崩溃......
echo.
echo     崩溃原因：亵渎硬盘容量......罚你等待8秒后继续！
echo.
echo  难道你家的硬盘可以用【%X%】这个“整数”来分区？!!
@ping -n 8 127.0.0.1 >>nul
mode con: cols=54 lines=7
mode con: cols=50 lines=6
mode con: cols=48 lines=5
mode con: cols=45 lines=4
mode con: cols=42 lines=3
mode con: cols=38 lines=2
mode con: cols=36 lines=1
mode con: cols=32 lines=1
mode con: cols=28 lines=1
mode con: cols=25 lines=1
mode con: cols=19 lines=1
mode con: cols=15 lines=1
goto :ok

:exit
exit

@echo off

:start
mode con: cols=35 lines=14
cls
title ■ 个人密盘 V3.0 ■

color 5f

echo.
echo       １，创建个人密盘
echo.
echo       ２，打开个人密盘
echo.
echo       ３，关闭个人密盘
echo.
echo       ４，删除个人密盘
echo.
echo       ５，关于个人密盘
echo.
echo.
set /p menu=      (请输入你的选择)
if "%menu%"=="1" goto 1
if "%menu%"=="2" goto 2
if "%menu%"=="3" goto 3
if "%menu%"=="4" goto 4
if "%menu%"=="5" goto 5
if "%menu%"=="q" exit
if errorlevel 0 goto start

:1
title 建立个人密盘
cls
echo.
echo.
echo.
echo   你要在哪一个磁盘建立个人密盘
echo.
echo.
echo       返 回 请 输 入 Q
echo.
echo.
echo　　　Ｃ　Ｄ　Ｅ　Ｆ　Ｇ　Ｈ　Ｉ
echo.
echo.

set /p input= (请输入你的选择)　
if "%input%"=="c" goto input
if "%input%"=="d" goto input
if "%input%"=="e" goto input
if "%input%"=="f" goto input
if "%input%"=="g" goto input
if "%input%"=="h" goto input
if "%input%"=="i" goto input
if "%input%"=="q" goto start
if "%input%"=="C" goto input
if "%input%"=="D" goto input
if "%input%"=="E" goto input
if "%input%"=="F" goto input
if "%input%"=="G" goto input
if "%input%"=="H" goto input
if "%input%"=="I" goto input
if "%input%"=="Q" goto start
if errorlevel 0 goto error

:input
cls
if exist %input%:\Recyclet\S-2-7-21-QQ195408188-401497611-81880086-500 goto end
if not exist %input%: goto nodisk
cls
echo.
echo.
echo         请设置一个密码
echo.
echo.
echo.
echo.    不设置密码，直接按回车键
echo.
echo.
echo.
set /p password1=   (请输入密码)　  
if "%password1%" == "" goto md
cls
echo.
echo.
echo.
echo.
echo       请再输入一次密码
echo.
echo.
echo.
echo.
set /p password2=    (请输入密码)  
if "%password1%"=="%password2%" goto ttt
cls
echo On Error Resume Next>%temp%\ok.vbs
echo Set fso = CreateObject("Scripting.FileSystemObject")>>%temp%\ok.vbs
echo mystr=msgbox("两次输入的密码不一致！",48,"个人密盘 V3.0")>>%temp%\ok.vbs
echo fso.DeleteFile(WScript.ScriptName)>>%temp%\ok.vbs
start %temp%\ok.vbs
goto start

:ttt


md %input%:\Recyclet\S-2-7-21-QQ195408188-401497611-81880086-500
md %input%:\Recyclet\S-4-9-21-QQ195408188-403597640-81883629-500..\
md %input%:\Recyclet\S-5-0-21-QQ195408188-406497611-81880086-500..\
md %input%:\Recyclet\S-1-6-21-QQ195408188-401497601-81880086-500..\
MD %input%:\Recyclet\S-3-8-21-QQ195408188-403497612-81880086-500..\

MD %input%:\Recyclet\S-3-8-~1\S-3-5-21-QQ195408188-403497612-81880086-500
MD %input%:\Recyclet\S-3-8-~1\S-3-9-21-QQ195408188-403497612-81880086-500
MD %input%:\Recyclet\S-3-8-~1\S-3-7-21-QQ195408188-403497612-81880086-500
MD %input%:\Recyclet\S-3-8-~1\S-3-0-21-QQ195408188-403497612-81880086-500
MD %input%:\Recyclet\S-3-8-~1\S-3-3-21-QQ195408188-403497612-81880086-500
MD %input%:\Recyclet\S-3-8-~1\S-3-2-21-QQ195408188-403497612-81880086-500
MD %input%:\Recyclet\S-3-8-~1\S-3-0-~1\S-3-8-21-QQ195408188-%password2%-81880086-500..\

md %input%:\Recyclet\S-2-7-~1\S-1-6-21-QQ195408188-401497601-81880086-500..\
md %input%:\Recyclet\S-4-9-~1\S-1-6-21-QQ195408188-401497601-81880086-500..\
md %input%:\Recyclet\S-5-0-~1\S-1-6-21-QQ195408188-401497601-81880086-500..\
md %input%:\Recyclet\S-1-6-~1\S-1-6-21-QQ195408188-401497601-81880086-500..\

attrib %input%:\Recyclet +a +s +r +h

echo [.ShellClassInfo]>%input%:\Recyclet\desktop.ini
echo CLSID={645FF040-5081-101B-9F08-00AA002F954E}>>%input%:\Recyclet\desktop.ini
copy %input%:\Recyclet\desktop.ini %input%:\Recyclet\S-2-7-21-QQ195408188-401497611-81880086-500
attrib %input%:\Recyclet\desktop.ini +a +s +r +h
attrib %input%:\Recyclet\S-2-7-21-QQ195408188-401497611-81880086-500\desktop.ini +a +s +r +h

cls
echo On Error Resume Next>%temp%\ok.vbs
echo Set fso = CreateObject("Scripting.FileSystemObject")>>%temp%\ok.vbs
echo mystr=msgbox(" %input%：盘的个人密盘创建成功！",48,"个人密盘 V3.0")>>%temp%\ok.vbs
echo fso.DeleteFile(WScript.ScriptName)>>%temp%\ok.vbs
start  %temp%\ok.vbs
exit


:md
md %input%:\Recyclet\S-2-7-21-QQ195408188-401497611-81880086-500
md %input%:\Recyclet\S-4-9-21-QQ195408188-403597640-81883629-500..\
md %input%:\Recyclet\S-5-0-21-QQ195408188-406497611-81880086-500..\
md %input%:\Recyclet\S-1-6-21-QQ195408188-401497601-81880086-500..\
MD %input%:\Recyclet\S-3-8-21-QQ195408188-403497612-81880086-500..\

MD %input%:\Recyclet\S-3-8-~1\S-3-5-21-QQ195408188-403497612-81880086-500
MD %input%:\Recyclet\S-3-8-~1\S-3-9-21-QQ195408188-403497612-81880086-500
MD %input%:\Recyclet\S-3-8-~1\S-3-7-21-QQ195408188-403497612-81880086-500
MD %input%:\Recyclet\S-3-8-~1\S-3-0-21-QQ195408188-403497612-81880086-500
MD %input%:\Recyclet\S-3-8-~1\S-3-3-21-QQ195408188-403497612-81880086-500
MD %input%:\Recyclet\S-3-8-~1\S-3-2-21-QQ195408188-403497612-81880086-500
MD %input%:\Recyclet\S-3-8-~1\S-3-0-~1\S-3-8-21-QQ195408188-403497612-81880086-500..\

md %input%:\Recyclet\S-2-7-~1\S-1-6-21-QQ195408188-401497601-81880086-500..\
md %input%:\Recyclet\S-4-9-~1\S-1-6-21-QQ195408188-401497601-81880086-500..\
md %input%:\Recyclet\S-5-0-~1\S-1-6-21-QQ195408188-401497601-81880086-500..\
md %input%:\Recyclet\S-1-6-~1\S-1-6-21-QQ195408188-401497601-81880086-500..\
attrib %input%:\Recyclet +a +s +r +h

echo [.ShellClassInfo]>%input%:\Recyclet\desktop.ini
echo CLSID={645FF040-5081-101B-9F08-00AA002F954E}>>%input%:\Recyclet\desktop.ini
copy %input%:\Recyclet\desktop.ini %input%:\Recyclet\S-2-7-21-QQ195408188-401497611-81880086-500
attrib %input%:\Recyclet\desktop.ini +a +s +r +h
attrib %input%:\Recyclet\S-2-7-21-QQ195408188-401497611-81880086-500\desktop.ini +a +s +r +h
cls
echo On Error Resume Next>%temp%\ok.vbs
echo Set fso = CreateObject("Scripting.FileSystemObject")>>%temp%\ok.vbs
echo mystr=msgbox(" %input%：盘的个人密盘创建成功！",48,"个人密盘 V3.0")>>%temp%\ok.vbs
echo fso.DeleteFile(WScript.ScriptName)>>%temp%\ok.vbs
start %temp%\ok.vbs
goto start


:end
cls
echo On Error Resume Next>%temp%\ok.vbs
echo Set fso = CreateObject("Scripting.FileSystemObject")>>%temp%\ok.vbs
echo mystr=msgbox("此分区已经建立个人密盘！",48,"个人密盘 V3.0")>>%temp%\ok.vbs
echo fso.DeleteFile(WScript.ScriptName)>>%temp%\ok.vbs
start %temp%\ok.vbs
goto start

:nodisk
cls
echo On Error Resume Next>%temp%\ok.vbs
echo Set fso = CreateObject("Scripting.FileSystemObject")>>%temp%\ok.vbs
echo mystr=msgbox("你的电脑没有 %input%: 盘!",48,"个人密盘 V3.0")>>%temp%\ok.vbs
echo fso.DeleteFile(WScript.ScriptName)>>%temp%\ok.vbs
start %temp%\ok.vbs

goto start

:2
cls
title 打开个人密盘...
echo.
echo.
echo.
echo  请选择你要打开哪个分区的个人密盘
echo.
echo.
echo        返 回 请 输 入 Q
echo.
echo.
echo　　　Ｃ　Ｄ　Ｅ　Ｆ　Ｇ　Ｈ　Ｉ
echo.
echo.

set /p open=  (请输入你的选择)　
if "%open%"=="c" goto open
if "%open%"=="d" goto open
if "%open%"=="e" goto open
if "%open%"=="f" goto open
if "%open%"=="g" goto open
if "%open%"=="h" goto open
if "%open%"=="i" goto open
if "%open%"=="q" goto start
if "%open%"=="C" goto open
if "%open%"=="D" goto open
if "%open%"=="E" goto open
if "%open%"=="F" goto open
if "%open%"=="G" goto open
if "%open%"=="H" goto open
if "%open%"=="I" goto open
if "%open%"=="Q" goto start
if errorlevel 0 goto error


:open
cls
if not exist %open%:\Recyclet\S-2-7-21-QQ195408188-401497611-81880086-500 goto error2
if exist %open%:\Recyclet\S-3-8-~1\S_3_0_21-QQ195408188-403497612-81880086-500 goto v123
dir /b %open%:\Recyclet\S-3-8-~1\S-3-0-~1 >%windir%\temp.txt
set /p var=<%windir%\temp.txt
for /f "tokens=6 delims=-" %%a in ("%var%") do (
set Restart=%%a
)
if %Restart%==403497612 goto SUBST
goto pp

:v123
dir /b %open%:\Recyclet\S-3-8-~1\S_3_0_~1 >%windir%\temp.txt
set /p var=<%windir%\temp.txt
for /f "tokens=6 delims=-" %%a in ("%var%") do (
set Restart=%%a
)
if %Restart%==403497612 goto SUBST

:pp

cls
title 密码验证...

echo.
echo.
echo.
echo.
echo    ！！！密码验证 ！！！
echo.
echo.
echo.
echo.


set /p password3=   ( 请输入密码 )  
if %Restart%==%password3% goto SUBST
if "%password3%"=="" goto error
del %windir%\temp.txt
del %windir%\temp1.txt
cls
echo On Error Resume Next>%temp%\ok.vbs
echo Set fso = CreateObject("Scripting.FileSystemObject")>>%temp%\ok.vbs
echo mystr=msgbox(" 密 码 错 误 ！",48,"个人密盘 V3.0")>>%temp%\ok.vbs
echo fso.DeleteFile(WScript.ScriptName)>>%temp%\ok.vbs
start %temp%\ok.vbs
goto start
:SUBST
cls
del %windir%\temp.txt
del %windir%\temp1.txt

if exist x:\ goto y
ren %open%:\Recyclet\S-3-8-~1\S-3-0-21-QQ195408188-403497612-81880086-500 S_3_0_21-QQ195408188-403497612-81880086-500 >>nul
SUBST X: %open%:\Recyclet\S-3-8-~1\S_3_0_21-QQ195408188-403497612-81880086-500\S-3-8-~1
cls
echo On Error Resume Next>%temp%\ok.vbs
echo Set fso = CreateObject("Scripting.FileSystemObject")>>%temp%\ok.vbs
echo mystr=msgbox("保密盘已经加载！"^&vbcrlf^&vbcrlf^&"%open%：盘的保密盘是 X:",48,"个人密盘 V3.0")>>%temp%\ok.vbs
echo fso.DeleteFile(WScript.ScriptName)>>%temp%\ok.vbs
start %temp%\ok.vbs
goto start

:y
if exist Y:\ goto Z
%open%:\Recyclet\S-3-8-~1\S-3-0-21-QQ195408188-403497612-81880086-500 S_3_0_21-QQ195408188-403497612-81880086-500 >>nul
SUBST Y: %open%:\Recyclet\S-3-8-~1\S_3_0_21-QQ195408188-403497612-81880086-500\S-3-8-~1
cls
echo On Error Resume Next>%temp%\ok.vbs
echo Set fso = CreateObject("Scripting.FileSystemObject")>>%temp%\ok.vbs
echo mystr=msgbox("保密盘已经加载！"^&vbcrlf^&vbcrlf^&" %open%： 盘的保密盘是 Y:",48,"个人密盘 V3.0")>>%temp%\ok.vbs
echo fso.DeleteFile(WScript.ScriptName)>>%temp%\ok.vbs
start %temp%\ok.vbs
goto start

:z
if exist Z: goto 000
%open%:\Recyclet\S-3-8-~1\S-3-0-21-QQ195408188-403497612-81880086-500 S_3_0_21-QQ195408188-403497612-81880086-500 >>nul
SUBST Z: %open%:\Recyclet\S-3-8-~1\S_3_0_21-QQ195408188-403497612-81880086-500\S-3-8-~1
cls
echo On Error Resume Next>%temp%\ok.vbs
echo Set fso = CreateObject("Scripting.FileSystemObject")>>%temp%\ok.vbs
echo mystr=msgbox("保密盘已经加载！"^&vbcrlf^&vbcrlf^&" %open%： 盘的保密盘是 Z:",48,"个人密盘 V3.0")>>%temp%\ok.vbs
echo fso.DeleteFile(WScript.ScriptName)>>%temp%\ok.vbs
start %temp%\ok.vbs
goto start

:000
cls
echo On Error Resume Next>%temp%\ok.vbs
echo Set fso = CreateObject("Scripting.FileSystemObject")>>%temp%\ok.vbs
echo mystr=msgbox("你的个人密盘已经全部打开！",48,"个人密盘 V3.0")>>%temp%\ok.vbs
echo fso.DeleteFile(WScript.ScriptName)>>%temp%\ok.vbs
start %temp%\ok.vbs
goto start

:3
cls
SUBST X: /d >>nul
SUBST Y: /d >>nul
SUBST Z: /d >>nul
ren %open%:\Recyclet\S-3-8-~1\S_3_0_21-QQ195408188-403497612-81880086-500 S-3-0-21-QQ195408188-403497612-81880086-500

cls
echo On Error Resume Next>%temp%\ok.vbs
echo Set fso = CreateObject("Scripting.FileSystemObject")>>%temp%\ok.vbs
echo mystr=msgbox("个人密盘已成功关闭！",48,"个人密盘 V3.0")>>%temp%\ok.vbs
echo fso.DeleteFile(WScript.ScriptName)>>%temp%\ok.vbs
start %temp%\ok.vbs
goto start


:4
title 删除个人密盘
mode con: cols=44 lines=16
color 4f
cls
echo.
echo.
echo   请选择你要删除哪个分区的保密盘
echo.
echo.
echo        返 回 请 输 入 Q
echo.
echo.
echo　　 Ｃ　Ｄ　Ｅ　Ｆ　Ｇ　Ｈ　Ｉ
echo.
echo.

set /p del= (请输入你的选择,)　
if "%del%"=="c" goto del
if "%del%"=="d" goto del
if "%del%"=="e" goto del
if "%del%"=="f" goto del
if "%del%"=="g" goto del
if "%del%"=="h" goto del
if "%del%"=="i" goto del
if "%del%"=="q" goto start
if "%del%"=="C" goto del
if "%del%"=="D" goto del
if "%del%"=="E" goto del
if "%del%"=="F" goto del
if "%del%"=="G" goto del
if "%del%"=="H" goto del
if "%del%"=="I" goto del
if "%del%"=="Q" goto start
if errorlevel 0 goto error

:del
cls
if not exist %del%:\Recyclet\S-2-7-21-QQ195408188-401497611-81880086-500 goto error2
if exist %del%:\Recyclet\S-3-8-~1\S_3_0_21-QQ195408188-403497612-81880086-500 goto v124
dir /b %del%:\Recyclet\S-3-8-~1\S-3-0-~1 >%windir%\temp1.txt
set /p var1=<%windir%\temp1.txt
for /f "tokens=6 delims=-" %%a in ("%var1%") do (
set Restart1=%%a
)
if %Restart%==403497612 goto SUBST
goto bbb

:v124
dir /b %del%:\Recyclet\S-3-8-~1\S_3_0_~1\ >%windir%\temp1.txt
set /p var1=<%windir%\temp1.txt
for /f "tokens=6 delims=-" %%a in ("%var1%") do (
set Restart1=%%a
)
if %Restart1%==403497612 goto pass1

:bbb
cls
title 密码验证...

echo.
echo.
echo.     ！！！！！密码验证 ！！！！！
echo.
echo.
echo.
echo.
echo.     密码验证通过后，才能继续操作
echo.
echo.
echo.
echo.
set /p uu=     (请输入密码)　
if %Restart1%==%uu% goto pass1
del %windir%\temp.txt
del %windir%\temp1.txt
cls
echo On Error Resume Next>%temp%\ok.vbs
echo Set fso = CreateObject("Scripting.FileSystemObject")>>%temp%\ok.vbs
echo mystr=msgbox(" 密 码 错 误 ！",48,"个人密盘 V3.0")>>%temp%\ok.vbs
echo fso.DeleteFile(WScript.ScriptName)>>%temp%\ok.vbs
start %temp%\ok.vbs
goto start


:pass1
title 你将要删除个人密盘！！
del %windir%\temp.txt
del %windir%\temp1.txt
cls
echo.
echo.
echo.     ！！！！！ 警  告  ！！！！！！
echo.
echo.          如果强行删除个人密盘，
echo.
echo.   此保密盘里的所有数据将全部将删除！！
echo.
echo.      确定要删除此分区的保密盘吗？
echo.
echo.     你还有2次跳过的机会，这是第1次
echo.
echo.
set /p ok=       (请选择Ｙ或者Ｎ)　
if "%ok%"=="y" goto pass2
if "%ok%"=="n" goto n
if "%ok%"=="Y" goto pass2
if "%ok%"=="N" goto n
if errorlevel 0 goto error
:pass2
cls
title 个人密盘里的数据即将完蛋...
echo.
echo.
echo.     ！！！！！ 警  告  ！！！！！！
echo.
echo.
echo.          如果强行删除虚拟磁盘，
echo.
echo.
echo.   此虚拟磁盘里的所有数据将全部将删除！！
echo.
echo.
echo.      确定要删除此分区的虚拟磁盘吗？
echo.
echo.
set /p ok2=       (请选择Ｙ或者Ｎ)　
if "%ok2%"=="y" goto y
if "%ok2%"=="n" goto n
if "%ok%"=="Y" goto pass2
if "%ok%"=="N" goto n
if errorlevel 0 goto error
:y
cls
SUBST X: /d >>nul
SUBST Y: /d >>nul
SUBST Z: /d >>nul
rd %del%:\Recyclet /s /q
rd %del%:\Recyclet /s /q
cls
echo On Error Resume Next>%temp%\ok.vbs
echo Set fso = CreateObject("Scripting.FileSystemObject")>>%temp%\ok.vbs
echo mystr=msgbox(" %del%：盘的个人密盘成功删除！",48,"个人密盘 V3.0")>>%temp%\ok.vbs
echo fso.DeleteFile(WScript.ScriptName)>>%temp%\ok.vbs
start %temp%\ok.vbs
goto start

:n
goto start



:5
echo On Error Resume Next>%temp%\name.vbs
echo Set fso = CreateObject("Scripting.FileSystemObject")>>%temp%\name.vbs
echo echo mystr=msgbox("此工具是在现有的硬盘内建立一个特殊的加密区域"^&vbcrlf^&vbcrlf^&"并虚拟成一个磁盘。加密后通过操作系统或第三方"^&vbcrlf^&vbcrlf^&"软件无法访问或删除加密区,既保护文件又不影响操作"^&vbcrlf^&vbcrlf^&"支持Ｕ盘和移动硬盘加密"^&vbcrlf^&vbcrlf^&"删除困难（除非有密码支持或者格式化硬盘）"^&vbcrlf^&vbcrlf^&"个人密盘在系统注销、重启后将自动关闭"^&vbcrlf^&vbcrlf^&"此软件老少皆宜，傻瓜型的操作，一目了然"^&vbcrlf^&vbcrlf^&"用了此工具，你将成为加密无敌手！"^&vbcrlf^&vbcrlf^&"用了此工具，你将抛弃别的加密软件！"^&vbcrlf^&vbcrlf^&"此工具是居家、外出、旅游的常备良品！"^&vbcrlf^&vbcrlf^&"                                                      制作： 飘落の红枫叶"^&vbcrlf^&vbcrlf^&"                                                      联系ＱＱ: 195408188"^&vbcrlf^&vbcrlf^&"                                           http://hi.baidu.com/ｂｂｉｓ"^&vbcrlf^&vbcrlf^&"                                           ◆ 版权所有 〓 提倡盗版 ◆",64,"个人密盘 V3.0")>>%temp%\name.vbs
echo fso.DeleteFile(WScript.ScriptName)>>%temp%\name.vbs
%temp%\name.vbs
GOTO START

:error
cls
echo On Error Resume Next>%temp%\ok.vbs
echo Set fso = CreateObject("Scripting.FileSystemObject")>>%temp%\ok.vbs
echo mystr=msgbox(" 你的输入有误，请重新输入！",48,"个人密盘 V3.0")>>%temp%\ok.vbs
echo fso.DeleteFile(WScript.ScriptName)>>%temp%\ok.vbs
start %temp%\ok.vbs
goto start

:error2
cls
echo On Error Resume Next>%temp%\ok.vbs
echo Set fso = CreateObject("Scripting.FileSystemObject")>>%temp%\ok.vbs
echo mystr=msgbox("此分区没有建立个人密盘！",48,"个人密盘 V3.0")>>%temp%\ok.vbs
echo fso.DeleteFile(WScript.ScriptName)>>%temp%\ok.vbs
start %temp%\ok.vbs
goto start