批处理储存区
@echo off
title 卓盈网吧¤顾客存档
set num=0
set tm1=%time:~0,2%
set tm2=%time:~3,2%
set tm3=%time:~6,2%
title ¤进入时间：%date% %tm1%点%tm2%分%tm3%秒 ========">欢迎进入卓盈网吧存档地带"
mode con lines=28 cols=85
color 74
cls
set 路径=\\movie\客户存档$
title 卓盈网吧¤顾客存档
set num=0
set tm1=%time:~0,2%
set tm2=%time:~3,2%
set tm3=%time:~6,2%
title ¤进入时间：%date% %tm1%点%tm2%分%tm3%秒 ========">欢迎进入卓盈网吧存档地带"
mode con lines=28 cols=85
color 74
cls
set 路径=\\movie\客户存档$
echo.正在检测是否连上保存区...
@net use J: "%路径%"
if exist J:\ goto nno
echo 末连接上保存区,请与网管联系.
pause>nul
exit
:nno
@net use /del J: >nul
:koko
cls
echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
echo ┃ 亲爱的顾客： ┃
echo ┃ ┃
echo ┃ 你好~！ ┃
echo ┃ 你有需要保存的图片、文档、软件,游戏存档....等资料吗？ ┃
echo ┃ ┃
echo ┃ 因我们网吧电脑装有还原系统，你的资料在重启后就会消失掉。 ┃
echo ┃ 请把你需要保存的资料放到本网吧为你准备的【保存区】好吗？ ┃
echo ┃ ┃
echo ┃ 注：【保存区】的资料不会被还原，并且任何一台电脑都可以访问 ┃
echo ┃ 但我们只能帮您保存三个月,超过三个月系统将自动删除,请勿保存┃
echo ┃ 您的重要资料!谢谢! ┃
echo ┃ 卓盈网吧宣!┃
echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
echo.
echo.
echo 请输入你的账号后回车!如果你没有账号请您在下面新建一个后按回车键，帐号建好后请您牢记。以便您下次登陆使用。
echo.
echo.
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 num=0
:loop
>%Temp%\Temp.vbs echo set WshShell = Wscript.CreateObject("Wscript.Shell")
>>%Temp%\Temp.vbs echo set ie=wscript.createobject("internetexplorer.application","event_")
>>%Temp%\Temp.vbs echo ie.menubar=0
>>%Temp%\Temp.vbs echo ie.addressbar=0
>>%Temp%\Temp.vbs echo ie.toolbar=0
>>%Temp%\Temp.vbs echo ie.statusbar=0
>>%Temp%\Temp.vbs echo ie.resizable=0
>>%Temp%\Temp.vbs echo ie.width=270
>>%Temp%\Temp.vbs echo ie.height=200
>>%Temp%\Temp.vbs echo ie.navigate "about:blank"
>>%Temp%\Temp.vbs echo ie.left=fix((ie.document.parentwindow.screen.availwidth-ie.width)/2)
>>%Temp%\Temp.vbs echo ie.top=fix((ie.document.parentwindow.screen.availheight-ie.height)/2)
>>%Temp%\Temp.vbs echo ie.visible=1
@net use J: "%路径%"
if exist J:\ goto nno
echo 末连接上保存区,请与网管联系.
pause>nul
exit
:nno
@net use /del J: >nul
:koko
cls
echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
echo ┃ 亲爱的顾客： ┃
echo ┃ ┃
echo ┃ 你好~！ ┃
echo ┃ 你有需要保存的图片、文档、软件,游戏存档....等资料吗？ ┃
echo ┃ ┃
echo ┃ 因我们网吧电脑装有还原系统，你的资料在重启后就会消失掉。 ┃
echo ┃ 请把你需要保存的资料放到本网吧为你准备的【保存区】好吗？ ┃
echo ┃ ┃
echo ┃ 注：【保存区】的资料不会被还原，并且任何一台电脑都可以访问 ┃
echo ┃ 但我们只能帮您保存三个月,超过三个月系统将自动删除,请勿保存┃
echo ┃ 您的重要资料!谢谢! ┃
echo ┃ 卓盈网吧宣!┃
echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
echo.
echo.
echo 请输入你的账号后回车!如果你没有账号请您在下面新建一个后按回车键，帐号建好后请您牢记。以便您下次登陆使用。
echo.
echo.
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 num=0
:loop
>%Temp%\Temp.vbs echo set WshShell = Wscript.CreateObject("Wscript.Shell")
>>%Temp%\Temp.vbs echo set ie=wscript.createobject("internetexplorer.application","event_")
>>%Temp%\Temp.vbs echo ie.menubar=0
>>%Temp%\Temp.vbs echo ie.addressbar=0
>>%Temp%\Temp.vbs echo ie.toolbar=0
>>%Temp%\Temp.vbs echo ie.statusbar=0
>>%Temp%\Temp.vbs echo ie.resizable=0
>>%Temp%\Temp.vbs echo ie.width=270
>>%Temp%\Temp.vbs echo ie.height=200
>>%Temp%\Temp.vbs echo ie.navigate "about:blank"
>>%Temp%\Temp.vbs echo ie.left=fix((ie.document.parentwindow.screen.availwidth-ie.width)/2)
>>%Temp%\Temp.vbs echo ie.top=fix((ie.document.parentwindow.screen.availheight-ie.height)/2)
>>%Temp%\Temp.vbs echo ie.visible=1
>>%Temp%\Temp.vbs echo with ie.document
>>%Temp%\Temp.vbs echo .write "<html><title>请输入用户口令</title><body bgcolor=#e3e5da scroll=no style='font-family:宋体;font-size:15px;'>"
>>%Temp%\Temp.vbs echo .write "<h3 align=center>请输入用户口令</h3>"
>>%Temp%\Temp.vbs echo .write "<p align=center>"
>>%Temp%\Temp.vbs echo .write " 用户口令: <input id=pass type=password size=10><br><br>"
>>%Temp%\Temp.vbs echo .write "<input id=confirm type=button value=确定> <input id=cancel type=button value=取消>"
>>%Temp%\Temp.vbs echo .write "</body></html>"
>>%Temp%\Temp.vbs echo end with
>>%Temp%\Temp.vbs echo .write "<html><title>请输入用户口令</title><body bgcolor=#e3e5da scroll=no style='font-family:宋体;font-size:15px;'>"
>>%Temp%\Temp.vbs echo .write "<h3 align=center>请输入用户口令</h3>"
>>%Temp%\Temp.vbs echo .write "<p align=center>"
>>%Temp%\Temp.vbs echo .write " 用户口令: <input id=pass type=password size=10><br><br>"
>>%Temp%\Temp.vbs echo .write "<input id=confirm type=button value=确定> <input id=cancel type=button value=取消>"
>>%Temp%\Temp.vbs echo .write "</body></html>"
>>%Temp%\Temp.vbs echo end with
>>%Temp%\Temp.vbs echo dim wmi
>>%Temp%\Temp.vbs echo set wnd=ie.document.parentwindow
>>%Temp%\Temp.vbs echo set id=ie.document.all
>>%Temp%\Temp.vbs echo id.confirm.onclick=getref("confirm")
>>%Temp%\Temp.vbs echo id.cancel.onclick=getref("cancel")
>>%Temp%\Temp.vbs echo set wnd=ie.document.parentwindow
>>%Temp%\Temp.vbs echo set id=ie.document.all
>>%Temp%\Temp.vbs echo id.confirm.onclick=getref("confirm")
>>%Temp%\Temp.vbs echo id.cancel.onclick=getref("cancel")
>>%Temp%\Temp.vbs echo do while true
>>%Temp%\Temp.vbs echo wscript.sleep 500
>>%Temp%\Temp.vbs echo WshShell.AppActivate ("请输入用户口令 - Microsoft Internet Explorer")
>>%Temp%\Temp.vbs echo loop
>>%Temp%\Temp.vbs echo wscript.sleep 500
>>%Temp%\Temp.vbs echo WshShell.AppActivate ("请输入用户口令 - Microsoft Internet Explorer")
>>%Temp%\Temp.vbs echo loop
>>%Temp%\Temp.vbs echo sub event_onquit
>>%Temp%\Temp.vbs echo wscript.quit
>>%Temp%\Temp.vbs echo end sub
>>%Temp%\Temp.vbs echo wscript.quit
>>%Temp%\Temp.vbs echo end sub
>>%Temp%\Temp.vbs echo sub cancel
>>%Temp%\Temp.vbs echo ie.quit
>>%Temp%\Temp.vbs echo end sub
>>%Temp%\Temp.vbs echo ie.quit
>>%Temp%\Temp.vbs echo end sub
>>%Temp%\Temp.vbs echo sub confirm
>>%Temp%\Temp.vbs echo ie.visible=0
>>%Temp%\Temp.vbs echo ie.quit
>>%Temp%\Temp.vbs echo with id
>>%Temp%\Temp.vbs echo Wscript.Echo .pass.value
>>%Temp%\Temp.vbs echo exit sub
>>%Temp%\Temp.vbs echo end with
>>%Temp%\Temp.vbs echo end sub
echo.
echo 请输入用户口令!
set password=
for /f "delims=" %%i in ('"cscript //nologo %Temp%\Temp.vbs"') do (
set "密码=%%i"
)
cls
echo.
echo.
echo.
mode con lines=4 cols=35
echo 验证密码信息中,请稍等...........
ping 192.168.2.248 -n 1 >nul 2>nul
echo.
>>%Temp%\Temp.vbs echo ie.visible=0
>>%Temp%\Temp.vbs echo ie.quit
>>%Temp%\Temp.vbs echo with id
>>%Temp%\Temp.vbs echo Wscript.Echo .pass.value
>>%Temp%\Temp.vbs echo exit sub
>>%Temp%\Temp.vbs echo end with
>>%Temp%\Temp.vbs echo end sub
echo.
echo 请输入用户口令!
set password=
for /f "delims=" %%i in ('"cscript //nologo %Temp%\Temp.vbs"') do (
set "密码=%%i"
)
cls
echo.
echo.
echo.
mode con lines=4 cols=35
echo 验证密码信息中,请稍等...........
ping 192.168.2.248 -n 1 >nul 2>nul
echo.
:................................................................
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
set /a num=%num% + 1
if %num%==3 goto NO
echo.
echo 密码验证失败！
mshta javascript:alert("对不起,密码错误，请重新输入!");window.close();
goto loop
goto end
: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
:oks
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
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
set /a num=%num% + 1
if %num%==3 goto NO
echo.
echo 密码验证失败！
mshta javascript:alert("对不起,密码错误，请重新输入!");window.close();
goto loop
goto end
: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
:oks
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
:NO
mshta javascript:alert("对不起,您三次输入的密码匀错误.请重新建立帐户!");window.close();
mode con lines=28 cols=85
goto md
mshta javascript:alert("对不起,您三次输入的密码匀错误.请重新建立帐户!");window.close();
mode con lines=28 cols=85
goto md