聊天室 20个子频道版

divmond

这个还是自己改的，当时迷上官方的一个小例程（易语言的文件夹里的例子），然后自己的团队还有个小服务器，于是我就写了个这

上面的只是一个缩小图，它放大后会有名字设置框

客户Duan正常大小

上面是频道选择栏，名字和消息输入框，连接与断开连接，右下角气球通知，发送按钮还有个版本号
整体就是很简单，然后就是5秒防止刷屏，至于服务端的话.....

服务端

IP列表，可以记录登录IP，并且是各个频道的（自己没弄出来）
踢出时会强制踢出，如果是用的这个版本的，那么会提示你已被踢出服务器
禁言一次5分钟，大佬可以加个调整的也行，自己懒得加了（手抽筋了）
移到黑名单，只能移到里面，方便选择，可以快捷踢出
死机，嗯，对方客户端莫名奇妙就卡住了
单独发送，要先选择IP，然后单独发送（自己也可以）
也可以向所有人发送，并配备了不同的名称框
（服务器，管理员为[]，用户为<>（其实我没设计管理员这个东西））
频道选择，同步下方选择栏，可以选择频道
关闭服务器，就是关闭，并且所以人员都友善下线
至于为什么懒得继续弄了，看下面的服务器发话代码....

  

服务器10.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )
服务器11.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )
服务器12.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )
服务器13.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )
服务器14.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )
服务器15.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )
服务器16.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )
服务器17.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )
服务器18.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )
服务器19.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )
服务器20.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )
服务器21.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )
服务器22.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )
服务器23.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )
服务器24.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )
服务器25.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )
服务器26.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )
服务器27.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )
服务器28.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )
服务器29.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )
服务器30.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )

.版本 2<br /> 服务器10.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )<br /> 服务器11.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )<br /> 服务器12.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )<br /> 服务器13.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )<br /> 服务器14.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )<br /> 服务器15.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )<br /> 服务器16.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )<br /> 服务器17.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )<br /> 服务器18.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )<br /> 服务器19.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )<br /> 服务器20.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )<br /> 服务器21.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )<br /> 服务器22.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )<br /> 服务器23.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )<br /> 服务器24.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )<br /> 服务器25.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )<br /> 服务器26.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )<br /> 服务器27.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )<br /> 服务器28.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )<br /> 服务器29.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )<br /> 服务器30.发送数据 (编辑框1.内容, “[管理员提醒]” ＋ 发送编辑框.内容, )

然后看其中一个收消息代码...

  

子程序名	返回值类型	公开	备 注
_服务器10_数据到达

变量名	类 型	静态	数组	备 注
项目数
变量1
收到数据	字节集

' 将所收到的信息转发给所有在线客户。
如果 (到文本 (服务器10.取回数据 ()) ＝ “#s=people”)
服务器10.发送数据 (服务器10.取回客户 (), LB10.取项目数 (), )
收到数据 ＝ 服务器10.取回数据 ()
项目数 ＝ LB10.取项目数 ()
计次循环首 (项目数, 变量1)
服务器10.发送数据 (LB10.取项目文本 (变量1 － 1), 收到数据, 1)
计次循环尾 ()

.版本 2<br /> <br /> .子程序 _服务器10_数据到达<br /> .局部变量 项目数<br /> .局部变量 变量1<br /> .局部变量 收到数据, 字节集<br /> <br /> ' 将所收到的信息转发给所有在线客户。<br /> .如果 (到文本 (服务器10.取回数据 ()) ＝ “#s=people”)<br />     服务器10.发送数据 (服务器10.取回客户 (), LB10.取项目数 (), )<br /> .否则<br />     收到数据 ＝ 服务器10.取回数据 ()<br />     项目数 ＝ LB10.取项目数 ()<br />     .计次循环首 (项目数, 变量1)<br />         服务器10.发送数据 (LB10.取项目文本 (变量1 － 1), 收到数据, 1)<br />     .计次循环尾 ()

**手不抽筋才怪，一直写客户进入，客户离开，数据到达，然后打那几个一样的字母，写这个贴吧字都比那个少
然后这服务端我还免费开源，不得顶一个
聊天室服务器.e (57.9 KB, 下载次数: 55)

2022-6-25 01:43 上传

点击文件名下载附件
服务端

还有客户端
聊天室客户Duan.e (142.23 KB, 下载次数: 56)

2022-6-25 01:43 上传

点击文件名下载附件
客户Duan

divmond

xuanpeng 发表于 2022-7-24 12:33
可以语音吗https://bbs.125.la/static/image/smiley/tieba/32.png

研究Base64

xuanpeng

可以语音吗https://bbs.125.la/static/image/smiley/tieba/32.png

divmond

DreamHee 发表于 2022-7-23 10:12
emmm问一下为什么一直显示连接失败

如果你开服务器的话，需要开放19700 19710-19730端口，客户Duan的127.0.0.1改成服务器IP

DreamHee

emmm问一下为什么一直显示连接失败

Q2632167561

开源精神必须支持~

灵猫作者

支持开源~！感谢分享

pojiezhe

支持开源~！感谢分享

zhang812

感谢分享

王摇摆

感谢分享

这就是爱情

因为有你，温暖了四季~