批處理實現網吧存檔_DOS/BAT

批處理實現網吧存檔

複製代碼 代碼如下:

@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