A-A+
网吧客户文件保管箱纯bat版 分享
本人非计算机专业，2007年左右吧，跟同学在网吧上网，没心情打游戏，看网管玩cmd命令行产生了兴趣，然后在网上搜了一下帮助文档，给网吧写了个文件保管箱，算是个局域网的网盘吧，后来他们还用了两年。
原理嘛就是用xp系统自带的局域网共享功能实现网盘文件的读写，cmd命令能新建畸形文件夹的特性做加密，其实就是利用知识壁垒，毕竟当年去网吧上网的人都不懂这么“高深”的技术，自然很安全，其实来个懂的，任何文件都随便拿，所以在启动页的公告里就做了提醒。
服务器端还有个初始化程序，就是开启共享并设置共享目录然后生成个配置文件。
当时无聊的时候就写点功能，导致这个小玩意不合理的完成度过高了。
虽然主界面就是个矩形窗口和文字，操作也全靠键盘输入，但功能却包括按时间段问候、换皮肤（其实就是改背景和字体颜色）、注册、登录、密保、找回密码、账号申诉、公共存储区、账号注销删除等一堆有用没用的。
当时网吧拿去用之后把文件服务器交给我全权使用，然后就看到了几十个用户名命名的文件夹和里面不可名状的奇怪文件（脸红）后来就离开那里了，记得一两年后跟当时的朋友联系，说是还在用。
现在回头看这代码、功能简直不堪入目了，当年是完全不懂编程，想到个想法就去百度找合适的代码，然后复制过来改一下能跑就完，所以根本没技术含量，里面的版权声明也是年少轻狂为了装逼瞎写的（捂脸）Windows xp时代写的，刚在Windows11上试了下，很多报错，排版也乱七八糟，不知道是哪里配置不对还是代码本身有问题，现在已经没兴趣搞了。下面是代码，拉出来公开处刑。
以下是bat代码：
@echo off
mode con cols=20 lines=8
color a
title 客户保管箱 连接服务器...
set 时=%time:~0,2%
set 分=%time:~3,2%
set 秒=%time:~6,2%
if %时% GEQ 0 goto 凌晨
goto 下午
:凌晨
if %时% GEQ 5 goto 上午
set hello=都凌晨%m%%时%点%分%分%秒%秒了，忙了一天，抓紧时间休息吧！
goto check
:上午
if %时% GEQ 10 goto 中午
set hello=现在是上午%m%%时%点%分%分%秒%秒，抓紧大好的时光做些有意义的事情吧！
goto check
:中午
if %时% GEQ 14 goto 下午
set hello=现在是中午%m%%时%点%分%分%秒%秒，吃完饭睡一觉补充一下体力吧！
goto check
:下午
if %时% GEQ 18 goto 晚上
set hello=现在是下午%m%%时%点%分%分%秒%秒，要抓紧时间把今天要做的事情做完哦！
goto check
:晚上
if %时% GTR 23 goto 凌晨
set hello=现在是晚上%m%%时%点%分%分%秒%秒了，把烦恼都丢掉，好好享受一下美丽的城市月光吧！
:check
::if not exist see.exe mshta vbscript:CreateObject("Wscript.Shell").popup("程序文件已损坏，请重新安装！",30,"错误",48)(window.close)&exit
::tasklist|findstr /i "see.exe" &&mshta vbscript:CreateObject("Wscript.Shell").popup("程序已运行！",30,"错误",48)(window.close)&&exit
::start see.exe
::if not exist 客户保管箱.exe mshta vbscript:CreateObject("Wscript.Shell").popup("未找到执行程序：客户保管箱.exe",30,"错误",48)(window.close)&exit
:TOP
cls
if not exist cfg.dat mshta vbscript:CreateObject("Wscript.Shell").popup("第一次运行请先配置程序！",30,"提示",48)(window.close)&goto cfg
goto start
:cfg
mode con cols=20 lines=8
cls
mshta vbscript:CreateObject("Wscript.Shell").popup("如果您不是管理员，请不要更改此处配置！",30,"注意",48)(window.close)
title 配置程序
echo 服务器名或IP地址
set servip=
set /p serv=：
echo 服务器用户名
set servuser=
set /p servuser=：
echo 服务器密码(可留空)
set servpass=
set /p servpass=：
echo 客服QQ
set sQQ=
set /p sQQ=：
echo %sQQ%-%serv%-%servuser%-%servpass%>cfg.dat
:start
for /f "tokens=1 delims=-" %%a in (cfg.dat) do set sQQ=%%a
for /f "tokens=2 delims=-" %%b in (cfg.dat) do set serv=%%b
for /f "tokens=3 delims=-" %%c in (cfg.dat) do set servuser=%%c
for /f "tokens=4 delims=-" %%d in (cfg.dat) do set servpass=%%d
set server=\\%serv%\BOXSERVER$\客户保管箱
set Material=\\%serv%\BOXSERVER$\^&Material^&..
set mibao=\\%serv%\BOXSERVER$\^&mibao^&..
set shensu=\\%serv%\BOXSERVER$\^&shensu^&..
set Agreement=\\%serv%\BOXSERVER$\Agreement\Agreement.bat
title 客户保管箱 连接服务器...
echo 正在连接服务器.....
net use %server% "%servpass%" /user:%servuser%||mshta vbscript:CreateObject("Wscript.Shell").popup("无法连接服务器，请稍候再试！",30,"错误",48)(window.close)&&exit
if exist t:\ net use /delete t: /yes
mode con:cols=82 lines=25
call %Agreement%
:logins
if exist s:\ net use /delete s: /yes
title 客户保管箱公测版 首页
cls
echo S:系统设置 H:帮助 M:显示风格 A:关于 Q:联系客服
echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
echo ┃ 本网吧亲爱的顾客： ┃
echo ┃ ┃
echo ┃ 你好~！ ┃
echo ┃ 你有需要保存的图片、文档、软件,游戏存档....等资料吗？ ┃
echo ┃ ┃
echo ┃ 因我们网吧电脑装有还原系统，你的资料在重启后就会消失掉。 ┃
echo ┃ 请把你需要保存的资料放到本网吧为你准备的【客户保管箱】吧！ ┃
echo ┃ ┃
echo ┃ 注：【客户保管箱】的资料不会被还原，并且任何一台电脑都可以访问 ┃
echo ┃ ┃
echo ┃ 保存到【客户保管箱】的病毒或木马将被自动查杀！！ ┃
echo ┃ ┃
echo ┃ 使用【客户保管箱】必须登陆（1）或注册（2） ┃
echo ┃ ┃
echo ┃ 注意：【客户保管箱】在任何情况下都不接受你输入的空格，敬请注意！！！！ ┃
echo ┃ ┃
echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
echo ┌────────┬────────┬────────┬─────────┐
echo │ 1:用户登陆 │ 2:用户注册 │ 3:找回密码 │ 4:共享区 │
echo └────────┴────────┴────────┴─────────┘
echo.
set log=
set /p log=请输入您的选择：
if /i '%log%'=='' goto logins
if /i '%log%'=='1' goto logname
if /i '%log%'=='2' goto xieyi
if /i '%log%'=='3' goto findpass
if /i '%log%'=='4' goto gongxiangqu
if /i '%log%'=='a' mshta vbscript:CreateObject("Wscript.Shell").popup("版权所有(c) 济南飞渡网吧市中店 2004-2008",30,"关于客户保管箱",0)(window.close)&goto logins
if /i '%log%'=='h' goto help
if /i '%log%'=='q' start tencent://message/?uin=%sqq%&goto logins
if /i '%log%'=='s' goto cfg
if /i '%log%'=='M' goto Style
if /i not '%log%'=='1/2/3/a/q/s' goto logins
:Style
title 更改显示风格
cls
echo.
echo.
echo A:关于 Q:联系客服
echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
echo ┃ 请选择一种显示风格 ┃
echo ┠─────┬─────┬─────┬─────┬─────┬─────┨
echo ┃1.幽蓝夜空│2.夜色朦胧│3.蓝天白云│4.紫蓝宝石│5.洪荒世界│6.春回大地┃
echo ┠─────┼─────┼─────┼─────┼─────┼─────┨
echo ┃待添加... │待添加... │待添加... │待添加... │待添加... │待添加... ┃
echo ┠─────┼─────┼─────┼─────┼─────┼─────┨
echo ┃待添加... │待添加... │待添加... │待添加... │待添加... │待添加... ┃
echo ┠─────┼─────┼─────┼─────┼─────┼─────┨
echo ┃待添加... │待添加... │待添加... │待添加... │待添加... │待添加... ┃
echo ┠─────┼─────┴─────┴─────┴─────┼─────┨
echo ┃+.自定义 │ 本模块为飞渡网吧原创，保留版权。 │-.恢复默认┃
echo ┗━━━━━┷━━━━━━━━━━━━━━━━━━━━━━━┷━━━━━┛
set Style=
set /p Style= 请输入选择：
if /i '%Style%'=='-' color a&goto logins
if /i '%Style%'=='1' color 12&goto logins
if /i '%Style%'=='2' color 19&goto logins
if /i '%Style%'=='3' color 9f&goto logins
if /i '%Style%'=='4' color db&goto logins
if /i '%Style%'=='5' color 46&goto logins
if /i '%Style%'=='6' color 2c&goto logins
if /i '%Style%'=='h' goto help
if /i '%Style%'=='q' start tencent://message/?uin=%sqq%&goto Style
if /i '%Style%'=='a' mshta vbscript:CreateObject("Wscript.Shell").popup("版权所有(c) 济南飞渡网吧市中店 2004-2008",30,"关于客户保管箱",0)(window.close)&goto Style
if /i '%Style%'=='+' goto fStyle
if /i not '%Style%'=='1/2/3/4/5/6/+/-/a/q' mshta vbscript:CreateObject("Wscript.Shell").popup("您输入的风格代码不存在，请重新输入！",30,"错误",48)(window.close)&goto Style
:fStyle
cls
color /?
echo.
echo.
set fStyle=
set /p fStyle=请输入您喜欢的风格（两个字符。第一个为字体颜色，第二个为背景颜色）：
color %fStyle%&goto logins
:logname
title 客户保管箱公测版 用户登陆
cls
echo CTRL+空格键切换中英文输入法！
echo 不可输入符号、特殊字符以及空格！
echo.
echo.
echo.
echo.
echo 请输入用户名
echo.
set name=
set /p name=
if /i '%name%'=='' goto logname
if not exist %server%\^&%name%^&...\ mshta vbscript:CreateObject("Wscript.Shell").popup("『%name%』用户不存在，请重新登陆或注册！",30,"错误",48)(window.close)&goto logins
echo.
echo.
echo 请输入密码
echo.
set password=
set /p password=
if /i '%password%'=='' mshta vbscript:CreateObject("Wscript.Shell").popup("密码不能为空！",30,"错误",48)(window.close)&goto logname
for /f %%a in (%server%\^&%name%^&..\password) do set a=%%a
if %password%==%a% echo 登录时间：%date%%time%>>\\%serv%\BOXSERVER$\userlog\%name%&goto menu
mshta vbscript:CreateObject("Wscript.Shell").popup("密码错误",30,"错误",48)(window.close)&goto logname
:xieyi
title 客户保管箱公测版 用户协议
cls
echo.
echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
echo ┃ 用户协议 ┃
echo ┃ ┃
echo ┃ 本工具仅供xxxx网吧顾客暂存文件之用，本网吧无法为 ┃
echo ┃ ┃
echo ┃ 客户保存的文件做到保密，并无法保证安全性，所以请不要 ┃
echo ┃ ┃
echo ┃ 将您或他人的隐私或带有版权信息以及重要的文件保存在这 ┃
echo ┃ ┃
echo ┃ 里。如发生文件泄密、丢失、损坏以及其他后果，本网吧不 ┃
echo ┃ ┃
echo ┃ 承担责任！此处保存的文件所有权归客户所有，本网吧不承 ┃
echo ┃ ┃
echo ┃ 担可能由文件造成的一切后果！另本网吧有权对已保管的文 ┃
echo ┃ ┃
echo ┃ 件进行删除、转移等操作！您选择同意即表示您接受以上之 ┃
echo ┃ ┃
echo ┃ 协议并自愿承担其后果！否则请选择拒绝！ ┃
echo ┃ ┃
echo ┃ ┃
echo ┃ ┃
echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
if /i '%djs%'=='0' goto YORN
if /i '%djs%'=='' set DJS=8
echo %djs% N:拒绝
sleep 1000
set /a djs=%djs%-1
goto xieyi
:YORN
echo Y:同意 N:拒绝
set YORN=
set /p YORN= 请选择：
if /i '%YORN%'=='' goto xieyi
if /i '%YORN%'=='Y' goto regname
if /i '%YORN%'=='N' exit
if /i not '%YORN%'=='Y/N' goto xieyi
:regname
title 客户保管箱公测版 用户注册
rd /s /q %windir%\temp\savebox
cls
echo CTRL+空格键切换中英文输入法！
echo 不可输入符号、特殊字符以及空格！
echo.
echo 请输入用户名
echo.
set name=
set /p name=
if /i '%name%'=='' goto regname
if exist %server%\^&%name%^&...\ cls&mshta vbscript:CreateObject("Wscript.Shell").popup("『%name%』该用户已存在，请重新输入！",30,"错误",48)(window.close)&goto regname
md %server%\^&%name%^&..\
md %windir%\temp\savebox\%name%
attrib %windir%\temp\savebox +h
echo.
echo 请输入密码
echo.
set password=
set /p password=
if /i '%password%'=='' mshta vbscript:CreateObject("Wscript.Shell").popup("不允许空密码！",30,"错误",48)(window.close)&goto regname
cls
echo 正在创建新用户...
for /l %%i in (1,1,60) do set/p a=^><nul&ping /n 0 127.1>nul
echo 注册时间：%date%%time%>%windir%\temp\savebox\%name%\password
echo %password%>>%windir%\temp\savebox\%name%\password
echo 注册时间：%date%%time%>%windir%\temp\savebox\%name%\%name%
copy /y %windir%\temp\savebox\%name%\password %server%\^&%name%^&..\>nul
copy /y %windir%\temp\savebox\%name%\%name% \\%serv%\BOXSERVER$\userlog>nul&&cls
echo.
mshta vbscript:CreateObject("Wscript.Shell").popup("用户『%name%』创建成功，请牢记您的密码！",30,"恭喜",64)(window.close)
echo ┌─────────────────┬────────────────┐
echo │ 1：填写详细资料 │ 2：进入主菜单 │
echo └─────────────────┴────────────────┘
set goMaterial=
set /p goMaterial=请输入选择：
if /i '%goMaterial%'=='1' goto regMaterial
if /i '%goMaterial%'=='2' goto menu
if /i '%goMaterial%'=='1/2' goto regMaterial
:regMaterial
md %windir%\temp\savebox\Material\%name%\
md \\%serv%\BOXSERVER$\^&Material^&..\%name%
title 客户保管箱公测版 填写详细资料
cls
echo CTRL+空格键切换中英文输入法！
echo 不可输入符号、特殊字符以及空格！
echo.
echo ┌──────────────────────────────────┐
echo │『%name%』请认真填写您的真实身份信息，该信息是证实您身份的唯一证据！│
echo ├─────────────────────┬────────────┤
set yourname=
set /p yourname=│请输入您的真实姓名： │
echo ├─────────────────────┼────────────┤
if /i '%yourname%'=="" goto regMaterial
:regsex
set cSex=
set /p cSex=│请选择您的性别（1：男 2：女 3：保密）： │
if /i '%cSex%'=='' goto regsex
if /i '%cSex%'=='1' goto boy
if /i '%cSex%'=='2' goto girl
if /i '%cSex%'=='3' goto Ssex
if /i not '%cSex%'=='A/B' goto regsex
:boy
set Sex=男
goto regAge
:girl
set Sex=女
goto regAge
:ssex
set Sex=保密
:regAge
echo ├─────────────────────┼────────────┤
set Age=
set /p Age=│请输入您的年龄： │
if /i '%Age%'=='' goto regAge
:regAddress
echo ├─────────────────────┼────────────┤
set Address=
set /p Address=│请输入您的住址： │
if /i '%Address%'=='' goto regAddress
:regqq
echo ├─────────────────────┼────────────┤
set qq=
set /p qq=│请输入您的QQ号码（选填）： │
if /i '%qq%'=='' goto regIDcard
:IDcard
echo ├─────────────────────┼────────────┤
set ID=
set /p ID=│请输入您的身份证号码（选填）： │
echo └─────────────────────┴────────────┘
if /i '%ID%'=='' goto regCOM
:REGCOM
echo 正在上传资料...
echo %yourname%>%windir%\temp\savebox\Material\%name%\yourname
echo %Sex%>%windir%\temp\savebox\Material\%name%\sex
echo %age%>%windir%\temp\savebox\Material\%name%\age
echo %Address%>%windir%\temp\savebox\Material\%name%\Address
echo %qq%>%windir%\temp\savebox\Material\%name%\QQ
echo %ID%>%windir%\temp\savebox\Material\%name%\IDcard
copy /y /z %windir%\temp\savebox\Material\%name%\* \\%serv%\BOXSERVER$\^&Material^&..\%name%&&cls&&echo 资料上传成功！
:xianshi
cls
echo ┌─────┬───────────────────┐
echo │真实姓名：│%yourname%
echo ├─────┼───────────────────┤
echo │性别 ：│%sex%
echo ├─────┼───────────────────┤
echo │年龄 ：│%age%
echo ├─────┼───────────────────┤
echo │住址 ：│%Address%
echo ├─────┼───────────────────┤
echo │QQ号码 ：│%QQ%
echo ├─────┼───────────────────┤
echo │身份证 ：│%Address%
echo └─────┴───────────────────┘
echo 1：填写密码保护 2：修改资料 3：进入主菜单
echo.
set goon=
set /p goon=请选择：
if /i '%goon%'=='' goto xianshi
if /i '%goon%'=='1' goto mibao
if /i '%goon%'=='2' goto regMaterial
if /i '%goon%'=='3' goto menu
if /i not '%goon%'=='1/2/3' goto menu
:mibao
if exist \\%serv%\BOXSERVER$\^&mibao^&...\%name% goto Changemibao
:setmibao
cls
md %windir%\temp\savebox\mibao\%name%
md \\%serv%\BOXSERVER$\^&mibao^&..\%name%
cls
echo CTRL+空格键切换中英文输入法！
echo 不可输入符号、特殊字符以及空格！
echo ┌─────────────────────────┐
echo │请填写您的问题和答案，该问题在您忘记密码的时候显示│
echo │ 给您，如果您的答案正确将显示给您密码！ │
echo ├───────┬─────────────────┤
:mq1
set mq1=
set /p mq1= │请输入问题一：│
if /i '%mq1%'=='' mshta vbscript:CreateObject("Wscript.Shell").popup("不可留空，请重新输入！",30,"错误",48)(window.close)&goto mq1
echo ├───────┼─────────────────┤
:ma1
set ma1=
set /p ma1= │请输入答案一：│
if /i '%ma1%'=='' mshta vbscript:CreateObject("Wscript.Shell").popup("不可留空，请重新输入！",30,"错误",48)(window.close)&goto ma1
echo ├───────┼─────────────────┤
:mq2
set mq2=
set /p mq2= │请输入问题二：│
if /i '%mq2%'=='' mshta vbscript:CreateObject("Wscript.Shell").popup("不可留空，请重新输入！",30,"错误",48)(window.close)&goto mq2
echo ├───────┼─────────────────┤
:ma2
set ma2=
set /p ma2= │请输入答案二：│
if /i '%ma2%'=='' mshta vbscript:CreateObject("Wscript.Shell").popup("不可留空，请重新输入！",30,"错误",48)(window.close)&goto ma2
echo ├───────┼─────────────────┤
:mq3
set mq3=
set /p mq3= │请输入问题三：│
if /i '%mq3%'=='' mshta vbscript:CreateObject("Wscript.Shell").popup("不可留空，请重新输入！",30,"错误",48)(window.close)&goto mq3
echo ├───────┼─────────────────┤
:ma3
set ma3=
set /p ma3= │请输入答案三：│
echo └───────┴─────────────────┘
if /i '%ma3%'=='' mshta vbscript:CreateObject("Wscript.Shell").popup("不可留空，请重新输入！",30,"错误",48)(window.close)&goto ma3
echo 正在上传密码保护资料...
echo %mq1%>%windir%\temp\savebox\mibao\%name%\mq1
echo %ma1%>%windir%\temp\savebox\mibao\%name%\ma1
echo %mq2%>%windir%\temp\savebox\mibao\%name%\mq2
echo %ma2%>%windir%\temp\savebox\mibao\%name%\ma2
echo %mq3%>%windir%\temp\savebox\mibao\%name%\mq3
echo %ma3%>%windir%\temp\savebox\mibao\%name%\ma3
copy /y /z %windir%\temp\savebox\mibao\%name%\* \\%serv%\BOXSERVER$\^&mibao^&..\%name%\&&cls&&echo 上传成功！
echo ┌────┬─────────────────┐
echo │问题一：│%mq1%
echo ├────┼─────────────────┤
echo │答案一：│%ma1%
echo ├────┼─────────────────┤
echo │问题二：│%mq2%
echo ├────┼─────────────────┤
echo │答案二：│%ma2%
echo ├────┼─────────────────┤
echo │问题三：│%mq3%
echo ├────┼─────────────────┤
echo │答案三：│%ma3%
echo └────┴─────────────────┘
echo 请牢记您的密码保护！
echo.
echo 1：进入主菜单 2：修改密码保护
set wancheng=
set /p wancheng=请选择：
if /i '%wancheng%'=='1' goto menu
if /i '%wancheng%'=='2' goto mibao
if /i not '%wancheng%'=='1/2' goto menu
:Changemibao
cls
mshta vbscript:CreateObject("Wscript.Shell").popup("您已申请过密码保护，如需更改，请先输入原密码保护",30,"注意",48)(window.close)
echo ★请☆输★入☆原★密☆码★保☆护★
echo.
echo.
for /f %%e in (\\%serv%\BOXSERVER$\^&mibao^&..\%name%\mq1) do set e=%%e
for /f %%f in (\\%serv%\BOXSERVER$\^&mibao^&..\%name%\ma1) do set f=%%f
for /f %%g in (\\%serv%\BOXSERVER$\^&mibao^&..\%name%\mq2) do set g=%%g
for /f %%h in (\\%serv%\BOXSERVER$\^&mibao^&..\%name%\ma2) do set h=%%h
for /f %%i in (\\%serv%\BOXSERVER$\^&mibao^&..\%name%\mq3) do set i=%%i
for /f %%j in (\\%serv%\BOXSERVER$\^&mibao^&..\%name%\ma3) do set j=%%j
echo 问题一：%e%
echo.
set Answer1=
set /p Answer1= 答案一：
if /i not '%Answer1%'=='%f%' mshta vbscript:CreateObject("Wscript.Shell").popup("答案一输入错误！",30,"错误",48)(window.close)&goto logins
echo.
echo.
echo 问题二：%g%
echo.
set Answer2=
set /p Answer2= 答案二：
if /i not '%Answer2%'=='%h%' mshta vbscript:CreateObject("Wscript.Shell").popup("答案二输入错误！",30,"错误",48)(window.close)&goto logins
echo.
echo.
echo 问题三：%i%
echo.
set Answer3=
set /p Answer3= 答案三：
if /i not '%Answer3%'=='%j%' mshta vbscript:CreateObject("Wscript.Shell").popup("答案三输入错误！",30,"错误",48)(window.close)&goto logins
for /f %%a in (%server%\^&%name%^&..\password) do set password=%%a
mshta vbscript:CreateObject("Wscript.Shell").popup("密码保护输入正确！",30,"恭喜",64)(window.close)&goto setmibao
:findpass
cls
echo A:关于 Q:联系客服
echo ┌──────────────────────────────────────┐
echo │ 请选择您找回密码的方式 │
echo ├──────────┬──────────┬────────┬───────┤
echo │1：通过密码保护找回 │2：通过号码申诉找回 │3：查询申诉结果 │ 4：返回 │
echo └──────────┴──────────┴────────┴───────┘
set findway=
set /p findway=请输入选择：
if /i '%findway%'=='' goto findpass
if /i '%findway%'=='1' goto find1
if /i '%findway%'=='2' goto find2
if /i '%findway%'=='3' goto look
if /i '%findway%'=='4' goto logins
if /i '%findway%'=='a' mshta vbscript:CreateObject("Wscript.Shell").popup("版权所有(c) 济南飞渡网吧市中店 2004-2008",30,"关于客户保管箱",0)(window.close)&goto findpass
if /i '%findway%'=='H' goto help
if /i '%findway%'=='q' start tencent://message/?uin=%sqq%&goto findpass
if /i not '%findway%'=='1/2/3/4/a/h/q' goto logins
:find1
cls
title 客户保管箱公测版 找回密码
echo CTRL+空格键切换中英文输入法！
echo 不可输入符号、特殊字符以及空格！
echo.
echo 通过您帐号密码保护资料的问题和答案找回密码。
echo.
echo 请输入要找回密码的用户名
echo.
set name=
set /p name=
if /i '%name%'=='' goto find1
if not exist \\%serv%\BOXSERVER$\^&mibao^&...\%name% goto nofind
for /f %%e in (\\%serv%\BOXSERVER$\^&mibao^&..\%name%\mq1) do set e=%%e
for /f %%f in (\\%serv%\BOXSERVER$\^&mibao^&..\%name%\ma1) do set f=%%f
for /f %%g in (\\%serv%\BOXSERVER$\^&mibao^&..\%name%\mq2) do set g=%%g
for /f %%h in (\\%serv%\BOXSERVER$\^&mibao^&..\%name%\ma2) do set h=%%h
for /f %%i in (\\%serv%\BOXSERVER$\^&mibao^&..\%name%\mq3) do set i=%%i
for /f %%j in (\\%serv%\BOXSERVER$\^&mibao^&..\%name%\ma3) do set j=%%j
echo.
echo 问题一：%e%
set Answer1=
set /p Answer1= 答案一：
if /i not '%Answer1%'=='%f%' mshta vbscript:CreateObject("Wscript.Shell").popup("答案一输入错误！",30,"错误",48)(window.close)&goto logins
echo.
echo 问题二：%g%
set Answer2=
set /p Answer2= 答案二：
if /i not '%Answer2%'=='%h%' mshta vbscript:CreateObject("Wscript.Shell").popup("答案二输入错误！",30,"错误",48)(window.close)&goto logins
echo.
echo 问题三：%i%
set Answer3=
set /p Answer3= 答案三：
if /i not '%Answer3%'=='%j%' mshta vbscript:CreateObject("Wscript.Shell").popup("答案三输入错误！",30,"错误",48)(window.close)&goto logins
for /f %%a in (%server%\^&%name%^&..\password) do set password=%%a
mshta vbscript:CreateObject("Wscript.Shell").popup("密码保护输入正确，您的密码是%password%",30,"恭喜",64)(window.close)
goto menu
:nofind
mshta vbscript:CreateObject("Wscript.Shell").popup("该用户没有设置密码保护！",30,"错误",48)(window.close)
goto logins
:find2
cls
title 客户保管箱公测版 号码申诉
echo CTRL+空格键切换中英文输入法！
echo 不可输入符号、特殊字符以及空格！
echo ┌───────────────────────────────────────┐
echo │ 通过您帐号的用户资料和其他信息申诉。申诉处理时间不定期。 │
echo │ 如果您设置了密码保护，不建议您用此种方式！ │
echo └───────────────────────────────────────┘
:1
set fname=
set /p fname=请输入要找回密码的用户名：
if /i '%fname%'=='' goto 1
if exist \\%serv%\BOXSERVER$\^&shensu^&...\%fname%.txt mshta vbscript:CreateObject("Wscript.Shell").popup("该用户已提交过申诉，请返回查询进度！",30,"注意",48)(window.close)
:2
set fyourname=
set /p fyourname=请输入您的真实姓名：
if /i '%fyourname%'=='' goto 3
:3
set fsex=
set /p fsex=请输入您的性别：
if /i '%fsex%'=='' goto 4
:4
set fage=
set /p fage=请输入您的年龄：
if /i '%fage%'=='' goto 5
:5
set fdate=
set /p fdate=请输入您申请帐号的大致日期（如2008-1-1）：
if /i '%fdate%'=='' goto 6
:6
set ffiles=
set /p ffiles=请列举您保存的文件名称（一个）：
if /i '%ffiles%'=='' goto 7
:7
set fother=
set /p fother=请列举其他证据：
if /i '%fother%'=='' goto 8
:8
echo.
echo 请输入申诉口令（用于取回密码，务必牢记！）
echo.
set fpass=
set /p fpass=
if /i '%fpass%'=='' goto 8
:9
echo 正在提交申诉...
echo 用户名： %fname%>\\%serv%\BOXSERVER$\^&shensu^&..\%fname%.txt
echo 真实姓名：%fyourname%>>\\%serv%\BOXSERVER$\^&shensu^&..\%fname%.txt
echo 性别： %fsex%>>\\%serv%\BOXSERVER$\^&shensu^&..\%fname%.txt
echo 年龄： %fage%>>\\%serv%\BOXSERVER$\^&shensu^&..\%fname%.txt
echo 申请日期：%fdate%>>\\%serv%\BOXSERVER$\^&shensu^&..\%fname%.txt
echo 文件名： %ffiles%>>\\%serv%\BOXSERVER$\^&shensu^&..\%fname%.txt
echo 其他证据：%fother%>>\\%serv%\BOXSERVER$\^&shensu^&..\%fname%.txt
echo 该申诉项目正在处理.....>>\\%serv%\BOXSERVER$\^&shensu^&..\%fname%.txt
echo %fpass%：申诉口令>>\\%serv%\BOXSERVER$\^&shensu^&..\%fname%.txt&&mshta vbscript:CreateObject("Wscript.Shell").popup("提交完成！可随时查询处理进度！",30,"成功",48)(window.close)&&goto logins
mshta vbscript:CreateObject("Wscript.Shell").popup("提交失败！",30,"失败",48)(window.close)
goto logins
:look
cls
set lname=
set /p lname=请输入要查询的用户名：
if /i '%lname%'=='' goto look
if not exist \\%serv%\BOXSERVER$\^&shensu^&...\%lname%.txt mshta vbscript:CreateObject("Wscript.Shell").popup("该用户没有正在处理的申诉！",30,"错误",48)(window.close)&goto logins
for /f "delims=：" %%s in (\\%serv%\BOXSERVER$\^&shensu^&..\%lname%.txt) do set s=%%s
set lpass=
set /p lpass=请输入该用户申诉口令：
if /i not '%lpass%'=='%s%' mshta vbscript:CreateObject("Wscript.Shell").popup("申诉口令不正确！",30,"错误",48)(window.close)&goto logins
cls
copy /y \\%serv%\BOXSERVER$\^&shensu^&..\%lname%.txt %windir%\temp\%lname%.txt
cls
type %windir%\temp\%lname%.txt|find /v "："&&del /q %windir%\temp\%lname%.txt
echo.
echo 按任意键返回主菜单...
pause>nul
goto logins
:menu
if not exist s: net use s: %server%\^&%name%^&.
attrib s:\password +h +r
cls
title 客户保管箱公测版 用户名：『%name%』
echo 『%name%』您好！
echo %hello%
echo.
echo.
echo.
echo H:帮助 A:关于 Q:联系客服
echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
echo ┃ 欢迎您的光临！ ┃
echo ┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┫
echo ┃ 1:打开客户保管箱 2:注销帐号 3:设置帐号 4:删除帐号 5:安全退出┃
echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
echo.
echo.
echo.
set xuanze=
set /p xuanze= 请输入您的选择：
if /i '%xuanze%'=='' goto menu
if /i '%xuanze%'=='1' goto openfile
if /i '%xuanze%'=='2' goto outname
if /i '%xuanze%'=='3' goto setuser
if /i '%xuanze%'=='4' goto delname
if /i '%xuanze%'=='5' goto safeexit
if /i '%xuanze%'=='a' mshta vbscript:CreateObject("Wscript.Shell").popup("版权所有(c) 济南飞渡网吧市中店 2004-2008",30,"关于客户保管箱",0)(window.close)&goto menu
if /i '%xuanze%'=='q' start tencent://message/?uin=%sqq%&goto menu
if /i '%xuanze%'=='H' goto help
if /i not '%xuanze%'=='1/2/3/4/5/a/h/q' goto menu
:openfile
explorer.exe s:\
goto menu
:outname
net use /delete s: /yes
goto logins
:setuser
cls
echo A:关于 Q:联系客服
echo ┌────────┬────────┬────────┐
echo │ 1：更改密码 │2：更改用户信息 │3：设置密码保护 │
echo └────────┴────────┴────────┘
set suser=
set /p suser=请选择：
if /i '%suser%'=='' goto setuser
if /i '%suser%'=='1' goto setpass
if /i '%suser%'=='2' goto regMaterial
if /i '%suser%'=='3' goto mibao
if /i '%suser%'=='a' mshta vbscript:CreateObject("Wscript.Shell").popup("版权所有(c) 济南xxxx网吧市中店 2004-2008",30,"关于客户保管箱",0)(window.close)&goto setuser
if /i '%suser%'=='q' start tencent://message/?uin=%sqq%&goto setuser
if /i not '%suser%'=='1/2/3/a/q' goto setuser
:setpass
cls
attrib s:\password -h -r
cls
echo CTRL+空格键切换中英文输入法！
echo 不可输入符号、特殊字符以及空格！
echo.
echo 请输入旧密码
set oldpass=
set /p oldpass=
if %oldpass%==%password% goto new
mshta vbscript:CreateObject("Wscript.Shell").popup("旧密码输入错误！",30,"错误",48)(window.close)
goto setpass
:new
echo.
echo 请输入新密码
set newpass=
set /p newpass=
echo %newpass%>>s:\password&&mshta vbscript:CreateObject("Wscript.Shell").popup("密码修改成功，请您重新登陆！",30,"恭喜",0)(window.close)&&goto logins
mshta vbscript:CreateObject("Wscript.Shell").popup("修改失败！",30,"错误",0)(window.close)&goto menu
:delname
mshta vbscript:CreateObject("Wscript.Shell").popup("删除帐户将会删除该帐户下的所有文件和用户信息且无法恢复，请慎重操作！！",30,"警告",48)(window.close)
echo.
echo.
echo 请输入密码
echo.
set /p password1=
if not %password1%==%password% cls&mshta vbscript:CreateObject("Wscript.Shell").popup("密码错误，删除失败",30,"警告",48)(window.close)&goto menu
echo.
echo 密码正确！按任意键开始删除...
echo.
pause>nul
for /l %%i in (1,1,70) do set/p a=^><nul&ping /n 0 127.1>nul
if exist s:\ net use /delete s: /yes
rd /s /q %server%\^&%name%^&..\
rd /s /q %mibao%\%name%
rd /s /q %Material%\%name%
rd /s /q %shensu%\%name%
cls
mshta vbscript:CreateObject("Wscript.Shell").popup("用户『%name%』及其保存的所有文件删除成功！请重新登陆或注册！",30,"提示",48)(window.close)
goto logins
:safeexit
net use /delete s: /yes
net use /delete t: /yes
net use /delete %server% /yes
exit
:gongxiangqu
cls
echo.
echo 使用共享区不需要用户名和密码，任何人都可以在共享区存放、修改、删除文件，
echo.
echo 请不要把您的重要文件保存在此！
echo.
echo.
echo 按任意键打开共享区...
pause>nul
net use T: \\222.173.48.105\Boxserver$\共享区
explorer.exe t:
goto logins
:help
mshta vbscript:CreateObject("Wscript.Shell").popup("此为公测版本，本功能还未开放，请等待程序升级！",30,"抱歉",48)(window.close)
if /i '%name%'=='' goto logins
goto menu服务器端@echo off
mode con cols=25 lines=5
color a
cd\
cd %~d0%~p0
title 服务端安装程序
:top
cls
echo 1：安装客户保管箱服务端 2：卸载客户保管箱服务端
echo.
set choice=
set /p choice=请选择：
if /i '%choice%'=='' goto top
if /i '%choice%'=='1' goto path
if /i '%choice%'=='2' goto unist
if /i not '%choice%'=='1/2' goto top
:path
cls
set serv=
set /p serv=请输入客户保管箱服务端安装路径：
if exist %serv%\客户保管箱服务端\data goto fix
if exist %serv%\客户保管箱服务端\^&Material^&...\ goto fix
if exist %serv%\客户保管箱服务端\^&MIBAO^&...\ goto fix
if exist %serv%\客户保管箱服务端\^&shensu^&...\ goto fix
if exist %serv%\客户保管箱服务端\客户保管箱 goto fix
:setup
cls
md %serv%\客户保管箱服务端\data
md %serv%\客户保管箱服务端\^&Material^&..\
md %serv%\客户保管箱服务端\^&MIBAO^&..\
md %serv%\客户保管箱服务端\^&shensu^&..\
md %serv%\客户保管箱服务端\客户保管箱
md %serv%\客户保管箱服务端\userlog
net share BOXSERVER$=%serv%\客户保管箱服务端
echo %serv%\客户保管箱服务端>%windir%\saveboxsetuplog.log
copy /y Agreement.bat %serv%\客户保管箱服务端\Agreement
echo.
echo.
echo.
echo 成功！
mshta vbscript:CreateObject("Wscript.Shell").popup("客户保管箱服务端安装成功！",30,"恭喜",0)(window.close)&exit
:fix
cls
mshta vbscript:CreateObject("Wscript.Shell").popup("发现客户保管箱服务端已存在，将运行修复程序！",30,"修复",0)(window.close)&goto setup
:unist
cls
if not exist %windir%\saveboxsetuplog.log mshta vbscript:CreateObject("Wscript.Shell").popup("没有找到需要卸载的程序路径！请输入程序所在路径！",30,"卸载失败",48)(window.close)&goto shuru
mshta vbscript:CreateObject("Wscript.Shell").popup("卸载客户保管箱服务端将删除所有客户保管箱的用户以及用户保存的所有文件！",30,"警告！",48)(window.close)
set unist=
set /p unist=是否继续？（Y/N）：
if /i '%unist%'=='' goto unist
if /i '%unist%'=='y' goto end
if /i '%unist%'=='n' goto top
if /i not '%unist%'=='y/n' goto unist
:shuru
cls
set unpath=
set /p unpath=请输入程序所在路径：
if /i '%unpath%'=='' goto shuru
if not exist %unpath%\客户保管箱服务端 mshta vbscript:CreateObject("Wscript.Shell").popup("输入错误！",30,"错误",48)(window.close)&goto shuru
net share BOXSERVER$ /delete
rmdir /s /q %unpath%\客户保管箱服务端&&mshta vbscript:CreateObject("Wscript.Shell").popup("客户保管箱服务端卸载成功！",30,"卸载成功",0)(window.close)
exit
:end
cls
net share BOXSERVER$ /delete
for /f %%a in (%windir%\saveboxsetuplog.log) do set a=%%a
rmdir /s /q %a%&&mshta vbscript:CreateObject("Wscript.Shell").popup("客户保管箱服务端卸载成功！",30,"卸载成功",0)(window.close)
del /q %windir%\saveboxsetuplog.log
exit
