易语言编写聊天室例程

.版本 2 .程序集 窗口程序集_启动窗口 .子程序 _按钮1_被单击 .如果真 (客户1.连接 (编辑框1.内容, 到整数 (编辑框2.内容)) ＝ 假) 信息框 (“连接失败”, 0, ) 返回 () .如果真结束 按钮2.禁止 ＝ 假 编辑框4.获取焦点 () .子程序 _按钮2_被单击 .如果真 (客户1.发送数据 (编辑框5.内容 ＋ “ 说：” ＋ #换行符 ＋ “&' ” ＋ 编辑框4.内容) ＝ 假) 信息框 (“发送失败”, 0, , ) 返回 () .如果真结束 编辑框4.内容 ＝ “” 编辑框4.获取焦点 () .子程序 _客户1_数据到达 编辑框3.加入文本 (取字节集数据 (客户1.取回数据 (), #文本型, ) ＋ #换行符) .子程序 __启动窗口_创建完毕 编辑框5.内容 ＝ 取主机名 () 编辑框5.文本颜色 ＝ #红色