无需服务端的局域网群聊软件附聊天气泡框模块

易语言 2020-07-25 19:15:44

无需服务端的局域网群聊软件附聊天气泡框模块

.如果真 (当前数据 [1] = “聊天信息”)
时间判断 ()
当前序号 = 查询列表 (当前数据 [2])
.如果真 (当前序号 = 0)
数据报_通讯.发送数据 (当前数据 [2], 通讯端口, “重新连接|” + 本地IP + “|” + 到文本 (头像序号) + “|” + 聊天昵称)
返回 ()
.如果真结束
.如果真 (当前数据 [3] = “验证是否连接=假”)
返回 ()
.如果真结束
头像句柄 = 气泡聊天框_添加头像 (获取头像 (通讯列表 [当前序号].头像标号))
气泡聊天框.添加文本项目 (通讯列表 [当前序号].聊天名称, 头像句柄, 当前数据 [3], , , )
气泡聊天框.滚动到尾部 ()
返回 ()
.如果真结束

.如果真 (当前数据 [1] = “请求连接”)
.如果真 (查询列表 (当前数据 [2]) = 0)
当前连接.IP地址 = 当前数据 [2]
当前连接.头像标号 = 到整数 (当前数据 [3])
当前连接.聊天名称 = 当前数据 [4]
加入成员 (通讯列表, 当前连接)
数据报_通讯.发送数据 (当前数据 [2], 通讯端口, “请求连接|” + 本地IP + “|” + 到文本 (头像序号) + “|” + 聊天昵称)
气泡聊天框.添加通知项目 (当前数据 [4] + “加入了群聊”, )
气泡聊天框.滚动到尾部 ()
.如果真结束
数据报_通讯.发送数据 (当前数据 [2], 通讯端口, “聊天信息|” + 本地IP + “|验证是否连接=假”)