111

局域网聊天单文件简易版

@echo off
if exist bbsdata\ goto 2
md bbsdata
echo.>bbsdata\sybbs.txt
echo [.ShellClassInfo]>bbsdata\desktop.ini
echo CLSID={20D04FE0-3AEA-1069-A2D8-08002B30309D}>>bbsdata\desktop.ini
attrib bbsdata\desktop.ini +s +h +r
attrib bbsdata +s +h +r
:2
if exist 共享的文件\ goto 3
md 共享的文件
:3
if exist bbsdata\sybbs.txt goto _max
:_max
mode con: cols=62 lines=4
color f0
title 局域网聊天 V2.0 by：Dr.ma
cls
echo                            登录
echo.
set mz=
set jrw=
set /p jrw=  请输入你的名称后回车:

if '%jrw%'=='' set jrw=游客
if '%jrw%'=='admin' goto _m2

:_m1
set mz=1
title 局域网聊天 V2.0 by：Dr.ma 登录员：%jrw%
mode con: cols=65 lines=11
cls
echo                          欢迎你 %jrw%
echo  ╭═════════════════════════════╮
echo  ║                       1、进入聊天                        ║
echo  ║                         2、注销                          ║
echo  ║                   Esc、退出局域网聊天                    ║
echo  ╰═════════════════════════════╯
set chi=
set /p chi=  请选择操作后回车:

if '%chi%'=='' goto _m1
if /i '%chi%'=='1' goto uu
if /i '%chi%'=='2' goto _max
if /i '%chi%'=='Esc' exit
goto _m1

:gx
set xlw=
set /p xlw=  请将要共享的文件（夹）拖到这里：
if '%xlw%'=='' goto gx
copy %xlw% .\共享的文件\
echo %date% %time:~0,2%点%time:~3,2%分%time:~6,2%秒  %jrw% >> .\bbsdata\sybbs.txt
echo %jrw%发送了共享文件 >> .\bbsdata\sybbs.txt
echo. >> .\bbsdata\sybbs.txt
goto sh

:uu
mode con: cols=62 lines=200
:sh
cls
type .\bbsdata\sybbs.txt
echo ═══════════════════════════════
echo 注：输入“q”返回到控制界面，输入“gx”打开共享文件夹，
echo     输入“fs”发送共享文件。
set shy=
set /p shy=请输入你的话后回车:

if '%shy%'=='' goto sh
if '%shy%'=='q' goto bd
if '%shy%'=='gx' start "" "%cd%\共享的文件"&goto sh
if '%shy%'=='fs' goto gx

echo %date% %time:~0,2%点%time:~3,2%分%time:~6,2%秒  %jrw% >> .\bbsdata\sybbs.txt
echo %shy% >> .\bbsdata\sybbs.txt
echo. >> .\bbsdata\sybbs.txt
goto sh

:bd
if '%mz%'=='1' goto _m1
if '%mz%'=='2' goto gly

:_m2
set jrw=局域网聊天管理员
title 局域网聊天 V2.0 by：Dr.ma 登录员：%jrw%
cls
mode con: cols=65 lines=2
cls
set glm=
set /p glm=  你刚输入的是管理员账号，请输入密码后回车:

if '%glm%'=='2000728' goto gly

echo   密码错误，请重新输入。
goto _m2

:gly
mode con: cols=65 lines=14
set mz=2
title 局域网聊天 V2.0 by：Dr.ma 登录员：%jrw%
cls
echo                      欢迎你局域网聊天管理员
echo  ╭═════════════════════════════╮
echo  ║                        1、进入聊天                       ║
echo  ║                      2、修改聊天记录                     ║
echo  ║                      3、删除聊天记录                     ║
echo  ║                   4、恢复、备份聊天记录                  ║
echo  ║                         5、注销                          ║
echo  ║                    Esc、退出局域网聊天                   ║
echo  ╰═════════════════════════════╯
set chi=
set /p chi=  请选择操作后回车:

if '%chi%'=='' goto gly
if /i '%chi%'=='1' goto uu
if /i '%chi%'=='2' start .\bbsdata\sybbs.txt&goto gly
if /i '%chi%'=='3' goto scb
if /i '%chi%'=='4' goto hbb
if /i '%chi%'=='5' goto _max
if /i '%chi%'=='Esc' exit
goto gly

:gx2
set xlw=
set /p xlw=  请将要共享的文件（夹）拖到这里：
if '%xlw%'=='' goto gx2
copy %xlw% .\共享的文件\
echo %date% %time:~0,2%点%time:~3,2%分%time:~6,2%秒  %jrw% >> .\bbsdata\sybbs.txt
echo %jrw%发送了共享文件 >> .\bbsdata\sybbs.txt
echo. >> .\bbsdata\sybbs.txt
goto sh2

:scb
set byn=
set /p byn=  确定删除聊天的所有记录吗(Y/N):

if '%byn%'=='' goto scb
if /i '%byn%'=='y' echo.>.\bbsdata\sybbs.txt&goto gly
if /i '%byn%'=='n' goto gly
goto scb

:hbb
cls
echo                       恢复、备份聊天记录
echo  ╭═════════════════════════════╮
echo  ║                     1、恢复聊天记录                      ║
echo  ║                      2、备份聊天记录                     ║
echo  ║                    Esc、返回局域网聊天                   ║
echo  ╰═════════════════════════════╯
set hbb=
set /p hbb=  请选择操作后回车:

if '%hbb%'=='' goto hbb
if /i '%hbb%'=='1' copy %windir%\system32\sybbs.txt .\bbsdata\
if /i '%hbb%'=='2' copy .\bbsdata\sybbs.txt %windir%\system32\
if /i '%hbb%'=='Esc' goto gly
goto hbb
复制代码

这个比较简单，只能有一个聊天室