类似模拟QQ聊天室带服务器

编辑框变量f ＝ 取标记组件 ((高级选择夹1.现行子夹 ＋ 1) × 10 ＋ 1)
编辑框变量x ＝ 取标记组件 ((高级选择夹1.现行子夹 ＋ 1) × 10)
.判断开始 (编辑框变量f.内容 ＝ “”)
信息框 (“发送信息为空！”, 0, , )
返回 ()
.默认
发送的消息 ＝ “XX&” ＋ _启动窗口.标题 ＋ “@” ＋ 高级选择夹1.取子夹名称 (高级选择夹1.现行子夹) ＋ “@” ＋ 编辑框变量f.内容
.判断结束
' 发送的消息：标志+发送人+接收人+消息
编辑框变量x.加入文本 (“ 我：” ＋ 编辑框变量f.内容 ＋ #换行符)
调试输出 (“发送的消息:”, 发送的消息)
发送结果 ＝ _启动窗口.客户1.发送数据 (发送的消息)
.判断循环首 (发送结果 ＝ 假)
.判断开始 (信息框 (“发送失败！是否重新发送？”, #询问图标 ＋ #是否钮, , ) ＝ #否钮)
返回 ()
.默认
发送结果 ＝ _启动窗口.客户1.发送数据 (发送的消息)
.判断结束

.判断循环尾 ()