批处理实现网吧存档
批处理实现网吧存档
发布时间:2016-12-28 来源:查字典编辑
摘要:批处理实现网吧存档复制代码代码如下:@echooffcolor0aclsset路径=game上传$echo.正在检测是否连上保存区...@n...

批处理实现网吧存档

复制代码 代码如下:

@echo off

color 0a

cls

set 路径=game上传$

echo.正在检测是否连上保存区...

@net use J: "%路径%"

if exist J: goto nno

echo 末连接上保存区,请与网管联系.

pause>nul

exit

:nno

@net use /del J: >nul

:koko

cls

echo 请输入你的账号后回车!如果你没有账号请您在下面新建一个后按回车键,帐号建好后请您牢记。以便您下次登陆使用。

echo ---------------------------------------------------

set/p 用户名=用户名:

echo ---------------------------------------------------

if %用户名% geq 1 goto start

echo MSGBox "用户名不能为特殊符号,请重新输入!",48,"错误提示:" >nos.vbs &&call nos.vbs &&del nos.vbs &&goto koko

:start

set 用户名|findstr "<%search%>" >nul

set search=%用户% >nul

echo 正在验证用户『%用户名%』

echo 请稍候........

if exist %路径%%用户名% goto pass >nul

if not exist %路径%%用户名% goto md >nul

:pass

rem 密码验证

set errorlevel=>nul

echo → 『%用户名%』这个用户已经存在,请输入您的密码:

echo ---------------------------------------------------

set/p 密码=密码:

if %密码% geq 1 goto yes

echo MSGBox "不能用特殊符号,请重新输入!",48,"温馨提示:" >nos.vbs &&call nos.vbs &&del nos.vbs &&call %0

:yes

set 密码|findstr "<%pass%>" >nul

set pass=%密码% >nul

if errorlevel=1 cls &&echo MSGBox "密码不能为空哦,请重新输入吧!!^_^",48,"温馨提示:" >kong.vbs &&call kong.vbs &&del kong.vbs &&call %0

if exist %路径%%用户名%pass%密码% goto login >nul

if not exist %路径%%用户名%pass%密码% echo MSGBox "你输入的密码错咯!请重新输入吧!!",48,"温馨提示:" >run.vbs &&call run.vbs &&del run.vbs &&call %0

:login

echo MSGBox "恭喜~!密码验证成功!欢迎您的登录! **请不要上传木马病毒哦 谢谢您的合作!***^_^",48,"温馨提示:" >ys.vbs &&call ys >nul &&del ys.vbs

cls

echo 请稍侯.......

echo 正在为你打开【保存区】

NET USE u: /DELETE /YES >nul

net use u: %路径%%用户名% /YES >nul

@explorer.exe u:

exit

:md

echo 用户名不存在,是否创建新用户?

echo.

echo A: 创建新用户 B: 重新输入

echo.

set /p tw= >nul

if "%tw%"=="a" goto yesok

if "%tw%"=="A" goto yesok

if "%tw%"=="b" goto koko

if "%tw%"=="B" goto koko

:yesok

set errorlevel=>nul

echo 请为你的新用户设置一个密码:

echo ---------------------------------------------------

echo.

set/p 密码=密 码:

if %密码% geq 1 goto oks

echo MSGBox "不能用特殊符号,请重新输入!",48,"温馨提示:" >run.vbs &&call run.vbs &&del run.vbs &&goto yesok

:okss

set /p 密码0=请再次输入:

if "%密码0%"=="%密码%" goto okss

echo MSGBox "您的两次密码不同,请重新输入!",48,"错误提示:">no.vbs &&call no.vbs &&del no.vbs &&goto yesok

goto :yesok

:okss

set 密码|findstr "<%pass%>" >nul

set pass=%密码% >nul

if errorlevel=1 cls &&echo MSGBox " 密码不能为空哦,请重新输入吧!!^_^",48,"温馨提示:" >run.vbs &&call run.vbs &&del run.vbs &&call %0

md %路径%%用户名% >nul

md %路径%%用户名%pass

attrib +h +s %路径%%用户名%pass

attrib +h +s %路径%%用户名%

md %路径%%用户名%pass%密码%

echo MSGBox "恭喜~!你已成为本网吧【保存区】的新用户,赶快把你的资料放进去吧!~*_^",48,"温馨提示:" >run.vbs &&call run.vbs &&del run.vbs >nul

cls

echo 请稍侯.......

echo 正在为你打开【保存区】

NET USE u: /DELETE /YES >nul

net use u: %路径%%用户名% /YES >nul

@explorer.exe u:

exit

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新DOS/BAT学习
热门DOS/BAT学习
脚本专栏子分类