[网络连接] [分享]批处理版局域网聊天软件

嘟嘟猪

先选择一台电脑作为服务器，运行一下st.cmd,再将D:\ltserver设为共享
将chat.cmd中D:\ltserver改为\\服务器名\D:\ltserver
第一次先从http://www.namipan.com/d/d0f2ef32a0c523d809330c3392b9f2390bd347d200040000下载sleep程序，再运行chat.cmd；以后可直接运行chat.cmd
chat.cmd代码

@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
复制代码

st.cmd代码

set server=D:\ltserver
md %server%\users
md %server%\online
md %server%\rooms
复制代码

userlist.cmd代码

@echo off
title 用户列表
mode con cols=20 lines=30
set username=%1
set server=%2
:list
cls
echo 当前在线用户：
dir /b %server%\online\
sleep 5000
goto list
pause
复制代码

roomlist.cmd代码

@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
复制代码

suru.cmd代码

@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
复制代码

chatroom.cmd代码

@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
复制代码

pusofalse

能讲下那个com程序吗？~^_^

嘟嘟猪

Sleep可以实现延时功能，sleep 5000表示延时5秒钟

pusofalse

没有测试环境~但依然顶了！~

wxcute

报告楼主，有排版错误。
如下：

st.cmd代码[quote]md %server%\rooms[\code]
userlist.cmd代码
[code]@echo off

[/quote]

嘟嘟猪

谢谢5楼提醒
已更改

wxcute

本机上测试能通过（），不过暂时没有网络环境来测试。
这么多可能还会有错误，直接发附件好些。
（像sleep.exe生成不了，直接发附件就不会有问题了）

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
复制代码

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

teslawq

先mark一下，等有空慢慢啃