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

易语言 2020-08-15 17:02:11

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

数据 = 到文本 (客户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), )
.计次循环尾 ()

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