多方聊天室源码支持大量用户在线

取回数据类型 ＝ 多方客户室.取消息代码 ()
.如果真 (取回数据类型 ＝ 1)
编辑框1.加入文本 (“聊天室断开连接” ＋ #换行符)
.如果真结束
.如果真 (取回数据类型 ＝ 2)
.如果真 (多方客户室.取回数据 (取回数据消息))
数据消息文本 ＝ 到文本 (取回数据消息)
文本位置 ＝ 寻找文本 (数据消息文本, “当前在线人数：”, 1, 假)
.如果真 (文本位置 ＝ -1)
编辑框1.加入文本 (数据消息文本 ＋ #换行符)
返回 ()
.如果真结束
标签1.标题 ＝ “在线用户数：” ＋ 取文本右边 (数据消息文本, 取文本长度 (数据消息文本) － 文本位置 － 13)