[文件操作] [已解决]求BAT代码专门实现模拟注册，登录的

BingjianREMIX

就是我写了一个东西要用到模拟注册的（dos之类的不用管，那是程序里面的），有没有大佬造出注册一块（就是:Register），现在的问题是创建了用户没法应用

:users
mode con cols=120 lines=40
color 07
cls
set /p a=Who:
if /I "%a%"=="bingjianremix" goto :host
if /I "%a%"==" " goto :spacew
if /I "%a%"=="  " goto :spacew
if /I "%a%"=="   " goto :spacew
if /I "%a%"=="    " goto :spacew
if /I "%a%"=="     " goto :spacew
if /I "%a%"=="      " goto :spacew
if /I "%a%"=="Administrator" goto :dos
if /I "%a%"=="Register" goto :register
if /I "%a%"=="exit" goto :2c
cls
echo You are logging in as a tourist.
pause>nul
goto :dos2

:register
cd /d %~dp0
md data
set /p name=NEW USER NAME:
set /p password=NEW PASSWORD:
>>"data\urini.ini" echo "USER NAME:%name% PASSWORD:%password%"
goto :users

:spacew
cls
echo Please enter true users name!
pause>nul
goto :users

:host
color 07
cls
echo welcome!Administrator:BingjianREMIX
pause>nul
复制代码

第一次运行，先注册，把用户名和密码保存在urini.ini文件中
运行，输入用户名，提醒输入密码
如果用户名密码都和urini.ini文件中的一致就 goto :dos
前提是密码正确
要有多用户的
模拟！模拟！模拟！和系统用户无关

BingjianREMIX

芜湖终于成了！源码是77七的#12，我改了一些东西：
BingjianREMIX 发表于 2023-5-13 23:59

一个bug，他注册的时候如果注册名为空，密码为空，那么登录时用户名为空，密码为空也能登录，有无大佬能够解决

BingjianREMIX

芜湖终于成了！源码是77七的#12，我改了一些东西：

:login
cd /d %~dp0
title MICRODOS LOGIN ^& REGISTER
setlocal enabledelayedexpansion
if not exist urini.ini call :register
cls

:users2
color 07
cls
echo.
echo -------------------------
echo MICRODOS LOGIN ^& REGISTER
echo -------------------------
echo.
echo 1.Login
echo.
echo 2.register
echo.
set /p a=Enter you choose:
if /i "%a%" equ "2" (
	call :register
	goto :users2
) else if "%a%" equ "1" (
	set /p str1=Enter the USER NAME:
	set /p str2=Enter the password:
	findstr /x /c:"USER NAME:!str1! PASSWORD:!str2!" "urini.ini" 1>nul && (
		cls
		color 27
		echo TRUE!
		echo Please push any key to continue!
		pause>nul
		goto :dos
	) || (
		cls
		color 47
		echo ERROR!
		echo Please push any key to continue!
		pause>nul
		goto :users2
	)
) else goto :users2

:register
	set /p str1=Enter the new user name:
	set /p str2=Enter the new password:
	>>"urini.ini" echo USER NAME:%str1% PASSWORD:%str2%
	goto :users2
复制代码

BingjianREMIX

还是没有办法判断密码正误

77七

回复 11# BingjianREMIX


  

@echo off & setlocal enabledelayedexpansion

if not exist urini.ini call :register

:users
set /p a=输入reg注册，log登录:
if /i "%a%" equ "reg" (
	call :register
	goto :users
) else if "%a%" equ "log" (
	set /p str1=输入用户名:
	set /p str2=输入密码:
	findstr /x /c:"用户名:!str1! 密码:!str2!" "urini.ini" 1>nul && (
		echo 密码正确
		goto :dos
	) || (
		echo 密码错误
		goto :users
	)
) else goto :users


:dos
echo dos
rem ...
pause
exit


:register
	set /p str1=输入用户名:
	set /p str2=输入密码:
	>>"urini.ini" echo 用户名:%str1% 密码:%str2%
	exit /b
复制代码

BingjianREMIX

回复  77七
可以看一下截图吗？我这里移植进去之后人畜不分都能进
BingjianREMIX 发表于 2023-5-13 20:11

好像我这里的其它代码对他有影响？

BingjianREMIX

回复 9# 77七
可以看一下截图吗？我这里移植进去之后人畜不分都能进

77七

回复 8# BingjianREMIX


   移植到你的代码里，再试试，我试了正常

BingjianREMIX

回复 5# 77七
好像效果还是没有出

77七

回复 6# buyiyang


   谢谢指点！学习了，正则我是一窍不通。

buyiyang

回复 5# 77七


    引号可以用\转义，

findstr /x /c:"\"用户名:%str1% 密码:%str2%\"" "urini.ini" 1>nul && (goto :dos)
复制代码

77七

回复 4# BingjianREMIX


   确实不对，等我想想

@echo off
rem 注册
set /p str1=输入用户名:
set /p str2=输入密码:
>>"urini.ini" echo 用户名:%str1% 密码:%str2%

rem 判断
set /p str1=输入用户名:
set /p str2=输入密码:
findstr /x /c:"用户名:%str1% 密码:%str2%" "urini.ini" 1>nul && (goto :dos)
pause
复制代码

BingjianREMIX

回复 3# 77七 这...没有用啊？
你这..即使密码正确也不会进下环节

77七

rem 注册
set /p str1=输入用户名:
set /p str2=输入密码:
>>"urini.ini" echo "用户名:%str1% 密码:%str2%"

rem 判断
set /p str1=输入用户名:
set /p str2=输入密码:
findstr /x "用户名:%str1% 密码:%str2%" "urini.ini" 1>nul && (goto :dos)
复制代码

是不是这个有疑问？

czjt1234

没看懂
runas 行不行？