自主无模块编写即时通讯软件

数据 ＝ 到文本 (客户1.取回数据 ())
Top6 ＝ 取文本左边 (数据, 6)
.如果 (Top6 ＝ “OnLine”)
List ＝ 分割文本 (数据, “,”, )
.如果 (是否已创建 (OnLine))
OnLine.Load ()
.否则

.如果结束
.否则

.如果结束
延时 (500)
载入 (Main, _启动窗口, 假)
test ＝ 分割文本 (数据, “ ”, )
Main.标题 ＝ “正在和” ＋ test [2] ＋ “聊天中”
Main.超级编辑框1.内容 ＝ Main.超级编辑框1.内容 ＋ 到文本 (客户1.取回数据 ()) ＋ #换行符

端口号 ＝ 取文本右边 (客户, 取文本长度 (客户) － 寻找文本 (客户, “:”, , 假))
超级列表框1.置标题 (index, 1, IP地址)
超级列表框1.置标题 (index, 2, 端口号)
list ＝ “”
.计次循环首 (超级列表框1.取表项数 (), i)
list ＝ list ＋ 超级列表框1.取标题 (i － 1, 1) ＋ “,”
.计次循环尾 ()
.计次循环首 (超级列表框1.取表项数 (), i)
服务器1.发送数据 (超级列表框1.取标题 (i － 1, 1) ＋ “:” ＋ 超级列表框1.取标题 (i － 1, 2), “OnLine,” ＋ 取文本左边 (list, 取文本长度 (list) － 1), )
.计次循环尾 ()

服务器：能够接受新的客户端连接，并将每个客户端发过来的消息发给所有其他的客户端
客户端：能够连接服务器，并向服务器发送消息，同时接收服务器发过来的任何消息
? 这个需求是最简单的聊天室需求，我们目前只实现了群聊，未来大家可以扩展到单独的两个客户端之间的私聊。为了降低学习的难度，突出重点，我们尽量将代码修改的简单，项目中复杂功能都去掉了。