echo.正在檢測(cè)是否連上保存區(qū)...
@net use J: "%路徑%"
if exist J:\ goto nno
echo 末連接上保存區(qū),請(qǐng)與網(wǎng)管聯(lián)系.
pause>nul
exit
:nno
@net use /del J: >nul
:koko
cls
echo 請(qǐng)輸入你的賬號(hào)后回車!如果你沒有賬號(hào)請(qǐng)您在下面新建一個(gè)后按回車鍵，帳號(hào)建好后請(qǐng)您牢記。以便您下次登陸使用。
echo ---------------------------------------------------
set/p 用戶名=用戶名:
echo ---------------------------------------------------
if %用戶名% geq 1 goto start
echo MSGBox "用戶名不能為特殊符號(hào),請(qǐng)重新輸入!",48,"錯(cuò)誤提示：" >nos.vbs call nos.vbs del nos.vbs goto koko
:start
set 用戶名|findstr "\%search%\&;" >nul
set search=%用戶% >nul
echo 正在驗(yàn)證用戶『%用戶名%』
echo 請(qǐng)稍候........
if exist %路徑%\%用戶名% goto pass >nul
if not exist %路徑%\%用戶名% goto md >nul
:pass
rem 密碼驗(yàn)證
set errorlevel=>nul
echo → 『%用戶名%』這個(gè)用戶已經(jīng)存在,請(qǐng)輸入您的密碼:
echo ---------------------------------------------------
set/p 密碼=密碼:
if %密碼% geq 1 goto yes
echo MSGBox "不能用特殊符號(hào),請(qǐng)重新輸入!",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 "密碼不能為空哦,請(qǐng)重新輸入吧！！^_^",48,"溫馨提示：" >kong.vbs call kong.vbs  del kong.vbs call %0
if exist %路徑%\%用戶名%\pass\%密碼% goto login >nul
if not exist %路徑%\%用戶名%\pass\%密碼% echo  MSGBox "你輸入的密碼錯(cuò)咯！請(qǐng)重新輸入吧！！",48,"溫馨提示:" >run.vbs call run.vbs  del run.vbs call %0
:login
echo MSGBox "恭喜~！密碼驗(yàn)證成功！歡迎您的登錄! **請(qǐng)不要上傳木馬病毒哦 謝謝您的合作！***^_^",48,"溫馨提示：" >ys.vbs call ys >nul del ys.vbs
cls
echo 請(qǐng)稍侯.......
echo 正在為你打開【保存區(qū)】
NET USE u: /DELETE /YES >nul
net use u: %路徑%\%用戶名% /YES >nul
@explorer.exe u:\
exit
:md
echo     用戶名不存在，是否創(chuàng)建新用戶?
echo.
echo   A: 創(chuàng)建新用戶         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 請(qǐng)為你的新用戶設(shè)置一個(gè)密碼:
echo ---------------------------------------------------
echo.
set/p 密碼=密     碼:
if %密碼% geq 1 goto oks
echo MSGBox "不能用特殊符號(hào),請(qǐng)重新輸入!",48,"溫馨提示：" >run.vbs call run.vbs  del run.vbs goto yesok
:okss
set /p 密碼0=請(qǐng)?jiān)俅屋斎?
if "%密碼0%"=="%密碼%" goto okss
echo MSGBox "您的兩次密碼不同,請(qǐng)重新輸入!",48,"錯(cuò)誤提示：">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 " 密碼不能為空哦,請(qǐng)重新輸入吧！！^_^",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 "恭喜~！你已成為本網(wǎng)吧【保存區(qū)】的新用戶，趕快把你的資料放進(jìn)去吧！~*_^",48,"溫馨提示："  >run.vbs call run.vbs del run.vbs >nul
cls
echo 請(qǐng)稍侯.......
echo 正在為你打開【保存區(qū)】
NET USE u: /DELETE /YES >nul
net use u: %路徑%\%用戶名% /YES >nul
@explorer.exe u:\
exit