易语言编写聊天室例程

易语言编写聊天室例程

@wy0926

.版本 2

.程序集 窗口程序集_启动窗口

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

.如果真 (客户1.连接 (编辑框1.内容, 到整数 (编辑框2.内容)) ＝ 假)
    信息框 (“连接失败”, 0, )
    返回 ()
.如果真结束
按钮2.禁止 ＝ 假
编辑框4.获取焦点 ()



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

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


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

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


.子程序 __启动窗口_创建完毕

编辑框5.内容 ＝ 取主机名 ()
编辑框5.文本颜色 ＝ #红色