模仿大佬的小小的聊天室

.子程序 _按钮2_被单击

.如果真 (客户1.发送数据 (编辑框5.内容 ＋ “ 说：” ＋ #换行符 ＋ “&' ” ＋ 编辑框4.内容) ＝ 假)
信息框 (“发送失败”, 0, , )
返回 ()
.如果真结束
编辑框4.内容 ＝ “”
编辑框4.获取焦点 ()

.子程序 _客户1_数据到达

编辑框3.加入文本 (取字节集数据 (客户1.取回数据 (), #文本型, ) ＋ #换行符)