批处理之家 - Powered by Discuz! Board

@echo off
setlocal enabledelayedexpansion
title 登录窗口
mode con cols=50 lines=10
set server=D:\ltserver
echo 请输入用户名及密码，如果没有该用户，将根据输入内容注册用户
echo 用户名中不能有数字
:sr
set username=""
set /p username=用户名：
set mima=""
set /p mima=密码：
if exist %server%\users\%username% goto logon
echo %mima%>>%username%
copy .\%username% %server%\users\>>nul
del %username%>>nul
cls
echo %username%用户注册成功，请登录
goto sr
:logon
for /f %%p in (%server%\users\%username%) do set tps=%%p
if "%tps%"=="%mima%" goto success
cls
echo 密码错误，请重新输入
goto sr
:success
echo 登录中
copy %server%\users\%username% %server%\online\
start userlist.cmd %username% %server%
start roomlist.cmd %username% %server%
start suru.cmd %username% %server%
exit

复制代码

@echo off
title 聊天室列表
mode con cols=20 lines=30
set username=%1
set server=%2
:listro
cls
echo 已创建的聊天室：
dir /b %server%\rooms
set roomchoice=""
sleep 5000
goto listro

复制代码

@echo off
title 输入窗口
mode con cols=31 lines=11
set username=%1
set server=%2
:12
set /p roomname=请输入你要进入的聊天室的名称。要创建一个聊天室，输入creatroom。输入tuichu将注销%username%并关闭软件：
if %roomname%==creatroom goto creat
if %roomname%==tuichu goto end
if exist %server%\rooms\%roomname%\ltnr goto enter
cls
echo 没有叫%roomname%的聊天室
goto 12
:enter
start chatroom.cmd %username% %server% %roomname%
goto suruh
:end
del %server%\online\%username%
taskkill /im cmd.exe
taskkill /im cmd.exe
taskkill /im cmd.exe
taskkill /im cmd.exe
taskkill /im cmd.exe
taskkill /im cmd.exe
taskkill /im cmd.exe
exit
:creat
set roomname=""
set /p roomname=给聊天室起个名字（名称中不能有数字）：
md %server%\rooms\%roomname%
echo %username%>>%server%\rooms\%roomname%\creater
attrib +h %server%\rooms\%roomname%\creater
echo %roomname%创建成功，按任意键进入聊天室
pause>>null
start chatroom.cmd %username% %server% %roomname%
:suruh
cls
set hua=""
:tm
cls
set /p hua=输入你要讲的话，输入tuichu将退出该聊天室：
if %hua%==tuichu goto exlt
echo %username%说：>>%server%\rooms\%roomname%\ltnr
echo %hua%>>%server%\rooms\%roomname%\ltnr
goto tm
:exlt
rmdir %server%\rooms\%roomname%\%username%
echo 您已退出聊天室%roomname%，请自行关闭聊天窗口
pause
cls
goto 12

复制代码

@echo off
title 聊天窗口
mode con cols=80 lines=35
set username=%1
set server=%2
set roomname=%3
md %server%\rooms\%roomname%\%username%>>null
for /f %%l in (%server%\rooms\%roomname%\creater) do set leader=%%l
cls
:main
echo 聊天室创建者：%leader%
echo 该聊天室成员：
dir /b %server%\rooms\%roomname%
if exist %server%\rooms\%roomname%\ltnr goto xs
echo.>>%server%\rooms\%roomname%\ltnr
:xs
attrib +h %server%\rooms\%roomname%\ltnr
type %server%\rooms\%roomname%\ltnr
sleep 3000
cls
goto main

复制代码

@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

复制代码