[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

本帖最后由 BingjianREMIX 于 2023-5-14 00:00 编辑

就是我写了一个东西要用到模拟注册的(dos之类的不用管,那是程序里面的),有没有大佬造出注册一块(就是:Register),现在的问题是创建了用户没法应用
  1. :users
  2. mode con cols=120 lines=40
  3. color 07
  4. cls
  5. set /p a=Who:
  6. if /I "%a%"=="bingjianremix" goto :host
  7. if /I "%a%"==" " goto :spacew
  8. if /I "%a%"=="  " goto :spacew
  9. if /I "%a%"=="   " goto :spacew
  10. if /I "%a%"=="    " goto :spacew
  11. if /I "%a%"=="     " goto :spacew
  12. if /I "%a%"=="      " goto :spacew
  13. if /I "%a%"=="Administrator" goto :dos
  14. if /I "%a%"=="Register" goto :register
  15. if /I "%a%"=="exit" goto :2c
  16. cls
  17. echo You are logging in as a tourist.
  18. pause>nul
  19. goto :dos2
  20. :register
  21. cd /d %~dp0
  22. md data
  23. set /p name=NEW USER NAME:
  24. set /p password=NEW PASSWORD:
  25. >>"data\urini.ini" echo "USER NAME:%name% PASSWORD:%password%"
  26. goto :users
  27. :spacew
  28. cls
  29. echo Please enter true users name!
  30. pause>nul
  31. goto :users
  32. :host
  33. color 07
  34. cls
  35. echo welcome!Administrator:BingjianREMIX
  36. pause>nul
复制代码
第一次运行,先注册,把用户名和密码保存在urini.ini文件中
运行,输入用户名,提醒输入密码
如果用户名密码都和urini.ini文件中的一致就 goto :dos
前提是密码正确
要有多用户的
模拟!模拟!模拟!和系统用户无关
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
QQ 1980286392

没看懂
runas 行不行?

QQ 20147578

TOP

  1. rem 注册
  2. set /p str1=输入用户名:
  3. set /p str2=输入密码:
  4. >>"urini.ini" echo "用户名:%str1% 密码:%str2%"
  5. rem 判断
  6. set /p str1=输入用户名:
  7. set /p str2=输入密码:
  8. findstr /x "用户名:%str1% 密码:%str2%" "urini.ini" 1>nul && (goto :dos)
复制代码

是不是这个有疑问?
bat小白,请多指教!谢谢!

TOP

本帖最后由 BingjianREMIX 于 2023-5-13 18:26 编辑

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

TOP

本帖最后由 77七 于 2023-5-13 18:58 编辑

回复 4# BingjianREMIX


   确实不对,等我想想
  1. @echo off
  2. rem 注册
  3. set /p str1=输入用户名:
  4. set /p str2=输入密码:
  5. >>"urini.ini" echo 用户名:%str1% 密码:%str2%
  6. rem 判断
  7. set /p str1=输入用户名:
  8. set /p str2=输入密码:
  9. findstr /x /c:"用户名:%str1% 密码:%str2%" "urini.ini" 1>nul && (goto :dos)
  10. pause
复制代码
bat小白,请多指教!谢谢!

TOP

回复 5# 77七


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

TOP

回复 6# buyiyang


   谢谢指点!学习了,正则我是一窍不通。
bat小白,请多指教!谢谢!

TOP

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

TOP

回复 8# BingjianREMIX


   移植到你的代码里,再试试,我试了正常
bat小白,请多指教!谢谢!

TOP

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

TOP

回复  77七
可以看一下截图吗?我这里移植进去之后人畜不分都能进
BingjianREMIX 发表于 2023-5-13 20:11
好像我这里的其它代码对他有影响?
QQ 1980286392

TOP

回复 11# BingjianREMIX


  
  1. @echo off & setlocal enabledelayedexpansion
  2. if not exist urini.ini call :register
  3. :users
  4. set /p a=输入reg注册,log登录:
  5. if /i "%a%" equ "reg" (
  6. call :register
  7. goto :users
  8. ) else if "%a%" equ "log" (
  9. set /p str1=输入用户名:
  10. set /p str2=输入密码:
  11. findstr /x /c:"用户名:!str1! 密码:!str2!" "urini.ini" 1>nul && (
  12. echo 密码正确
  13. goto :dos
  14. ) || (
  15. echo 密码错误
  16. goto :users
  17. )
  18. ) else goto :users
  19. :dos
  20. echo dos
  21. rem ...
  22. pause
  23. exit
  24. :register
  25. set /p str1=输入用户名:
  26. set /p str2=输入密码:
  27. >>"urini.ini" echo 用户名:%str1% 密码:%str2%
  28. exit /b
复制代码
1

评分人数

bat小白,请多指教!谢谢!

TOP

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

TOP

芜湖终于成了!源码是77七的#12,我改了一些东西:
  1. :login
  2. cd /d %~dp0
  3. title MICRODOS LOGIN ^& REGISTER
  4. setlocal enabledelayedexpansion
  5. if not exist urini.ini call :register
  6. cls
  7. :users2
  8. color 07
  9. cls
  10. echo.
  11. echo -------------------------
  12. echo MICRODOS LOGIN ^& REGISTER
  13. echo -------------------------
  14. echo.
  15. echo 1.Login
  16. echo.
  17. echo 2.register
  18. echo.
  19. set /p a=Enter you choose:
  20. if /i "%a%" equ "2" (
  21. call :register
  22. goto :users2
  23. ) else if "%a%" equ "1" (
  24. set /p str1=Enter the USER NAME:
  25. set /p str2=Enter the password:
  26. findstr /x /c:"USER NAME:!str1! PASSWORD:!str2!" "urini.ini" 1>nul && (
  27. cls
  28. color 27
  29. echo TRUE!
  30. echo Please push any key to continue!
  31. pause>nul
  32. goto :dos
  33. ) || (
  34. cls
  35. color 47
  36. echo ERROR!
  37. echo Please push any key to continue!
  38. pause>nul
  39. goto :users2
  40. )
  41. ) else goto :users2
  42. :register
  43. set /p str1=Enter the new user name:
  44. set /p str2=Enter the new password:
  45. >>"urini.ini" echo USER NAME:%str1% PASSWORD:%str2%
  46. goto :users2
复制代码
QQ 1980286392

TOP

芜湖终于成了!源码是77七的#12,我改了一些东西:
BingjianREMIX 发表于 2023-5-13 23:59
一个bug,他注册的时候如果注册名为空,密码为空,那么登录时用户名为空,密码为空也能登录,有无大佬能够解决
QQ 1980286392

TOP

返回列表