Zhou.

回复 15# ANSL


    有，更新比较慢

Zhou.

0.4

@echo off
title 模拟登录注册用户
echo 加载...
if not exist "Data" goto ce
set ci=100
cls
:back
title 登入
cls
:backcls
echo 登入
echo 输入用户名
set /p name=
if "%name%"=="" goto back
cls
:fanc
set cuo=100
set namespassword=no
:next
for /f "delims=" %%i in (Data\User%name%Control.ini) do set control=%%i
if "%control%"=="Guide " goto start
for /f "delims=" %%i in (Data\User%name%Password.ini) do set namespassword=%%i
if "%cuo%"=="103" goto er
cls
echo 密码：
set /p password=
if "%namespassword%"=="" goto er
if "%password%"=="%namespassword%" goto start
set /a cuo=%cuo%+1
goto next
:er
cls
echo 用户名或密码错误。
pause
exit
:start
title 主界面
cls
echo 模拟登录注册用户
echo 1. 1.txt
echo 2.管理用户（目前只支持创建）
echo 3.重置
echo 4.新增功能与已知问题
echo v.0.4 模拟登录注册用户
set /p choose=
goto jianquan

:jianquan
cls
if "%choose%"=="1" goto c
if "%choose%"=="2" goto cuser
if "%choose%"=="3" goto r
if "%choose%"=="4" goto q
goto start

:q
title 新增功能与已知问题
cls
echo ----------2022/04/15----------v.0.1
echo 基本服务。
echo ----------2022/04/16----------v.0.2
echo 重构用户存储方式。
echo 支持创建用户。
echo bug修复
echo ----------2022/04/18----------v.0.3
echo 支持删除用户
echo ----------2022/04/26----------v.0.4
echo 
echo 删除"删除用户"
echo ---------------------------------
pause
goto start

:r
title Reset
if not "%control%"=="Admin" goto start
cls
echo Sure?
echo pause any key to reset.
pause
rd /s /q Data
exit

:c
cls
if "%control%"=="Admin" start Data\1.txt
if "%control%"=="User" copy Data\1.txt Data\cache.txt
if "%control%"=="User" echo 你输入的更改将不会保存。>>Data\cache.txt
if "%control%"=="User" start Data\cache.txt
if not "%control%"=="Guide " goto start
for /f "delims=" %%i in (Data\1.txt) do set text=%%i
cls
echo %text%
pause
del /s /q Data\cache.txt
goto start

:ce
cls
md Data
set uad=y
set control=Admin
:cuser
title 创建用户
if not "%control%"=="Admin" goto start
if "%uad%"=="y" set qx=管理员
if "%uad%"=="y" goto cusers
cls
echo 创建用户
echo 权限：
echo 1.管理员
echo 2.用户
echo 3.来宾
set /p num=
if "%num%"=="1" set qx=管理员
if "%num%"=="1" goto cusers
if "%num%"=="2" set qx=用户
if "%num%"=="2" goto cusers
if "%num%"=="3" set qx=来宾
if "%num%"=="3" goto cusers
goto cuser
:cusers
cls
echo 创建一个%qx%用户
echo 用户名：
set /p o=
if "%o%"=="" goto cusers
echo %o%>>Data\User.ini
if "%qx%"=="管理员" echo Admin>Data\User%o%Control.ini
if "%qx%"=="用户" echo User>Data\User%o%Control.ini
if "%qx%"=="来宾" echo Guide>Data\User%o%Control.ini & goto cuserw
:cuserp
cls
echo 创建%o%用户的密码
set /p pass=
if "%pass%"=="" goto cuserp
echo %pass%>Data\User%o%Password.ini
:cuserw
cls
echo 恭喜！
if "%uad%"=="y" (echo 初始化已完成。) else (echo 用户操作已完成。)
echo 重新启动以应用。
pause
exit
复制代码