加密通讯支持库例程

.如果真 (超级列表框1.取表项数 () ＝ 0)
信息框 (“客户列表中无成员”, #错误图标, “警告”)
返回 ()
.如果真结束
.判断开始 (单选框_群发消息.选中 ＝ 真)
.计次循环首 (超级列表框1.取表项数 (), j)
服务器.发送数据 (到整数 (超级列表框1.取标题 (j － 1, 1)), “服务器广播信息： ” ＋ 编辑框_发送数据.内容 ＋ “ ” ＋ 到文本 (取现行时间 ()))
编辑框_发送数据.内容 ＝ “”
.计次循环尾 ()
.判断 (单选框_私密.选中 ＝ 真)
.判断开始 (超级列表框1.现行选中项 ＝ -1)
信息框 (“请先选中一个客户”, #错误图标, “错误”)
返回 ()
.默认
服务器.发送数据 (到整数 (超级列表框1.取标题 (超级列表框1.现行选中项, 1)), “服务器-” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “： ” ＋ 编辑框_发送数据.内容 ＋ “ ” ＋ 到文本 (取现行时间 ()))
编辑框_发送数据.内容 ＝ “”