中国DOS联盟

@echo off 

if not exist bb.txt

for /f "delims=" %%i in (bb.txt) do set passwords=%%i

:begin

cls&set /p password=  请输入密码：

if "%password%"=="%passwords%" goto ok

cls&echo   密码错误&ping /n 2 127.1>nul&goto begin

:set

set select=2

cls&set /p select=  是否更改密码（默认回车为不更改）：(1. 更改 2.不更改)

if %select% equ 1 goto change

if %select% equ 2 goto ok

if %select% neq 1 if %select% neq 2 goto wrong

:change

set /a n=%random%%%38,m+=1

call,set pwd=%pwd%%%code:~%n%,1%%

if %m% lss 16 goto change

echo :: %pwd%>>%~nx0

cls&echo   请保管好你的新密码：%pwd%&pause&goto :eof



:wrong

cls&echo   输入无效，请正确选择输入！&ping /n 2 127.1>nul&goto set

:ok

cls&echo   密码正确！&pause&goto :eof

这是别人写的代码，我的想法是
如果BB.txt文件不存在就提示（如果存在就根据bb.txt就执行密码验证程序）
第一次使用请设置密码：
然后保存到BB.txt文件
下次重新运行程序时

─────────────────　版务记录　─────────────────
执行：HAT
操作：在帖子标题中增加搜索关键字
说明：原标题"大家帮我看下这代码怎么改"不利于论坛搜索
处罚：扣除2点积分
提示：建议阅读以下帖子
{1415}提问的智慧
{7326}论坛新手必读，所有人的基本行为准则
{22703}请不要做浮躁的人
{32667}那些连标题都写不清楚的人们啊，你们醒醒吧
{32825}本版严厉整顿烂帖
─────────────────　版务记录　─────────────────

Last edited by HAT on 2008-12-13 at 22:56 ]

@echo off
if exist bb.txt goto next
set /p password=第一次使用请设置密码:
echo.%password%>bb.txt

:next
for /f "delims=" %%i in (bb.txt) do set passwords=%%i
:begin
cls&set /p password= 请输入密码：
...

:set 到 :wrong 这段有机会执行？

能根据以上的思路写出一个能设置密码,更改密码的代码吗?

将：
if "%password%"=="%passwords%" goto ok
改为：
if "%password%"=="%passwords%" goto set

@echo off



if exist %windir%\bb.txt goto check_pass

set /p password=请设置密码:&echo %password%>%windir%\bb.txt&goto opration_ver

:check_pass 

for /f "delims=" %%i in (%windir%\bb.txt) do set passwords=%%i

cls&set /p password=请输入密码：

if "%password%"=="%passwords%" goto opration_ver

cls&echo   密码错误&ping /n 2 127.1>nul&goto check_pass

大家帮我看下,我以上的代码,设置了密码到bb.txt文件的内容是:ECHO 处于关闭状态。
到底是哪里出问题了

:set_pass

cls&set /p New_pass=请输入新密码:

cls&set /p New_pass1=请再输入新密码:

if %New_pass% equ %New_pass1% echo %New_pass%>bb.txt&echo.设置成功&pause&goto ok

echo.两次输入的密码不一致,请重新设置&pause&goto set_pass

:ok

cls&echo   密码正确！&pause&goto :eof

这是修改密码的代码,大家看下,这样可以吗

@echo off

if exist M.RQM goto bn

rem llts in 0070303schj by qq251485609

@echo 12345678>M.RQM

:bn

@cls

@echo off

@echo.

@echo. 

@echo.

@echo                 为了用户的设置安全，本程序要管理员才能进入操作！ 

@echo.

@echo.

@echo                                输入 T 退出

@echo.

@echo          -------         *         --------         *         --------

@echo.

@echo     初始密码: 12345678

@echo.

SET /P SY=     请输入管理员密码:

FOR /F %%I IN (M.RQM) DO SET syq=%%I

IF "%SY%" == "%syq%" GOTO kyjr

IF "%SY%" == "CK" GOTO ckmm

IF "%SY%" == "T" GOTO :eof

@cls

@echo. 

@echo.

@echo.

@echo               对不起，(密码可能已更改)你不是管理员不能进入操作使用！

pause>nul

@goto  bn

:kyjr

@cls

@echo.

SET /P SYg=   密码正确。按任意键进入程序(如果需要修改密码，请输入XGMM):

IF "%SYg%" == "XGMM" GOTO xg

IF not "%SYg%" == "XGMM" goto  k

:xg  

@cls

SET /P xmm=      请输入新密码:

@cls

SET /P cxmm=    请重新再输入一次:



IF "%cxmm%" == "%xmm%" GOTO gng

@echo 密码不一致！

pause

goto xg

:gng

@echo %xmm%>M.RQM

@echo   密码更改成功！ 请你牢记此密码%xmm%

pause>nul

goto bn

:ckmm

@cls

FOR /F %%I IN (M.RQM) DO SET syq=%%I

@echo %syq%

pause>nul

goto bn

:k

@cls

@echo  进入使用程序

pause>nul

Last edited by ZJHJ on 2008-12-13 at 21:31 ]

谢谢ZJHJ
因为我是想做的效果是，如果M.rqm文件不存在，那提示用户设置密码，如果存在那要通过M.Rqm文件的内容来验证密码，问题我已经解决了，谢谢