中国DOS联盟

set msg="这里用于显示信息"
set psw=""
set open="d:\a\"
setlocal enabledelayedexpansion
:Main
cls
@echo off
@mode con cols=40 lines=5
if %psw%=="" goto :setset
@echo %msg%
@echo 输入setting能进行设置，setting中不改变的选项请留空。
echo.
echo 请输入密码:
set /p pwdinput=""
if "%pwdinput%"=="setting" goto :checkpsw
for /F %%i in (%psw%) do (if %%i==%pwdinput% (explorer %open%) else (cls&&(echo 密码错误)&&pause>nul&&goto Main))
exit
exit
:checkpsw
cls
set /p nowpwd=请输入密码:
if "%nowpwd%"==%psw% (goto :setset) else (cls&&goto :checkpsw)
:setset
set /p setmsg=设置显示警告的信息:
set /p setpsw=设置密码:
set /p setopen=设置要打开的文件:
if "%setmsg%"=="" set setmsg=%msg%
if "%setpsw%"=="" set setpsw=%psw%
if "%setopen%"=="" set setopen=%open%
echo set msg="%setmsg%">a.cmd
echo set psw="%setpsw%">>a.cmd
echo set open="%setopen%">>a.cmd
for /f "skip=3 delims=" %%a in (%~nx0) do (@echo %%a>>a.cmd)
copy a.cmd %~nx0
del /f /q a.cmd
call %0