批处理实现网吧存档
批处理实现网吧存档
复制代码 代码如下:
@echo off
color 0a
cls
set 路径=\\game\上传$
echo.正在检测是否连上保存区... @net use J: "%路径%"if exist J:\ goto nnoecho 末连接上保存区,请与网管联系.pause>nulexit:nno@net use /del J: >nul:kokoclsecho 请输入你的账号后回车!如果你没有账号请您在下面新建一个后按回车键，帐号建好后请您牢记。以便您下次登陆使用。echo ---------------------------------------------------set/p 用户名=用户名:echo ---------------------------------------------------if %用户名% geq 1 goto startecho MSGBox "用户名不能为特殊符号,请重新输入!",48,"错误提示：" >nos.vbs &&call nos.vbs &&del nos.vbs &&goto koko :startset 用户名|findstr "\<%search%\>" >nulset search=%用户% >nulecho 正在验证用户『%用户名%』echo 请稍候........if exist %路径%\%用户名% goto pass >nulif not exist %路径%\%用户名% goto md >nul:passrem 密码验证set errorlevel=>nulecho → 『%用户名%』这个用户已经存在,请输入您的密码:echo ---------------------------------------------------set/p 密码=密码:if %密码% geq 1 goto yesecho MSGBox "不能用特殊符号,请重新输入!",48,"温馨提示：" >nos.vbs &&call nos.vbs &&del nos.vbs &&call %0:yesset 密码|findstr "\<%pass%\>" >nulset pass=%密码% >nulif errorlevel=1 cls &&echo MSGBox "密码不能为空哦,请重新输入吧！！^_^",48,"温馨提示：" >kong.vbs &&call kong.vbs &&del kong.vbs &&call %0 if exist %路径%\%用户名%\pass\%密码% goto login >nulif not exist %路径%\%用户名%\pass\%密码% echo MSGBox "你输入的密码错咯！请重新输入吧！！",48,"温馨提示:" >run.vbs &&call run.vbs &&del run.vbs &&call %0:loginecho MSGBox "恭喜~！密码验证成功！欢迎您的登录! **请不要上传木马病毒哦 谢谢您的合作！***^_^",48,"温馨提示：" >ys.vbs &&call ys >nul &&del ys.vbsclsecho 请稍侯.......echo 正在为你打开【保存区】NET USE u: /DELETE /YES >nulnet use u: %路径%\%用户名% /YES >nul@explorer.exe u:\ exit:mdecho 用户名不存在，是否创建新用户?echo.echo A: 创建新用户 B: 重新输入echo.set /p tw= >nulif "%tw%"=="a" goto yesokif "%tw%"=="A" goto yesokif "%tw%"=="b" goto kokoif "%tw%"=="B" goto koko:yesokset errorlevel=>nulecho 请为你的新用户设置一个密码:echo ---------------------------------------------------echo.set/p 密码=密 码:if %密码% geq 1 goto oksecho MSGBox "不能用特殊符号,请重新输入!",48,"温馨提示：" >run.vbs &&call run.vbs &&del run.vbs &&goto yesok :okssset /p 密码0=请再次输入:if "%密码0%"=="%密码%" goto okssecho MSGBox "您的两次密码不同,请重新输入!",48,"错误提示：">no.vbs &&call no.vbs &&del no.vbs &&goto yesok goto :yesok:okssset 密码|findstr "\<%pass%\>" >nulset pass=%密码% >nulif errorlevel=1 cls &&echo MSGBox " 密码不能为空哦,请重新输入吧！！^_^",48,"温馨提示：" >run.vbs &&call run.vbs &&del run.vbs &&call %0 md %路径%\%用户名% >nulmd %路径%\%用户名%\passattrib +h +s %路径%\%用户名%\passattrib +h +s %路径%\%用户名%md %路径%\%用户名%\pass\%密码%echo MSGBox "恭喜~！你已成为本网吧【保存区】的新用户，赶快把你的资料放进去吧！~*_^",48,"温馨提示：" >run.vbs &&call run.vbs &&del run.vbs >nulclsecho 请稍侯.......echo 正在为你打开【保存区】NET USE u: /DELETE /YES >nulnet use u: %路径%\%用户名% /YES >nul@explorer.exe u:\ exit