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