ANSL 当前离线
禁止访问
Zhou. 当前离线
列兵
@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复制代码
TOP
@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 findstr "%name%" Data\s.ini if not %errorlevel% equ 0 goto fanc findstr "%name%" Data\User.ini if %errorlevel% equ 0 goto fanc goto back :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 5.删除用户 echo v.0.3 模拟登录注册用户 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 if "%choose%"=="5" goto scuser goto start :scuser if not "%control%"=="Admin" goto start cls echo 删除用户Preview echo 你要删除什么用户？ echo tips:删除的用户信息会保留 echo 且长时间内可再次登录 set /p suser= if "%suser%"=="" goto start echo %suser%>>Data\s.ini goto cuserw :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/20-------v.0.4 echo pause goto start :r if not "%control%"=="Admin" goto start cls echo 确定吗？ echo 任意键重置. 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 echo Admin>Data\User.ini echo Admin>Data\UserAdminControl.ini echo ---->Data\1.txt echo password>Data\UserAdminPassword.ini cls echo 默认管理员为Admin echo 密码password echo 任意键代表您已经阅读密码。 pause>nul goto back :cuser title 创建用户 if not "%control%"=="Admin" goto start 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 恭喜！ echo 用户操作已完成。 echo 重新启动以应用。 pause exit复制代码
@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 findstr "%name%" Data\User.ini if %errorlevel% equ 0 goto fanc goto back :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.2 模拟登录注册用户 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 ------------------------------ pause goto start :r if not "%control%"=="Admin" goto start cls echo 确定吗？ echo 任意键重置. 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 echo Admin>Data\User.ini echo Admin>Data\UserAdminControl.ini echo ---->Data\1.txt echo password>Data\UserAdminPassword.ini cls echo 默认管理员为Admin echo 密码password echo 任意键代表您已经阅读密码。 pause>nul goto back :cuser title 创建用户 if not "%control%"=="Admin" goto start 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 恭喜！ echo 用户创建已完成。 echo 重新启动以应用。 pause exit复制代码
评分人数
@echo off title 模拟用户登录 echo 加载... if not exist "Data" goto ce set ci=100 cls :back title 登入 cls :backcls echo 登入 echo 输入用户名 echo 默认管理员为Admin set /p name= if "%name%"=="" goto back cls set ci=99 :fanc cls echo 读取中...%ci%/1100 set /a ci=%ci%+1 for /f "delims=" %%i in (Data\user%ci%) do set names=%%i for /f "delims=" %%i in (Data\%names%\usercontrol) do set control=%%i set cuo=100 if "%name%"=="%names%" goto next cls if "%ci%"=="1100" echo 查无此人 & goto backcls goto fanc :next for /f "delims=" %%i in (Data\%names%\password) do set namespassword=%%i cls if "%control%"=="Admin" echo 管理员%names%，您好！ if "%control%"=="User" echo 用户%names%，您好！ if "%control%"=="Guide" echo 来宾%names%，您好！ if "%cuo%"=="103" exit echo 密码： echo 默认管理员密码password set /p password= if "%password%"=="%namespassword%" goto start set /a cuo=%cuo%+1 goto next :start title 主界面 cls echo 主界面 echo 1. 1.txt echo 2.管理用户 echo 3.重置 set /p choose= goto jianquan :jianquan cls if "%choose%"=="1" goto c if "%choose%"=="2" goto start if "%choose%"=="3" goto r goto start :r if not "%control%"=="Admin" goto start cls echo 确定吗？ echo 任意键重置. 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 "%control%"=="Guide" for /f "delims=" %%i in (Data\1.txt) do set nc=%%i cls if "%control%"=="Guide" echo %nc% pause del /s /q Data\cache.txt goto start :ce cls md Data md Data\Admin echo Admin>Data\user100 echo Admin>Data\Admin\usercontrol echo ---->Data\1.txt echo password>Data\Admin\password goto back复制代码
发表于 2022-3-31 20:42
| 
下个版本修复
