聊天室客户端

想学坏的小孩 · 发表于 2010-1-21 16:57:29

.版本 2

.程序集窗口程序集1

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

' 连接服务器
.如果真 (客户1.连接 (地址编辑框.内容, 到数值 (端口编辑框.内容)) ＝假)
信息框 (“连接失败！”, 0, )
返回 ()
.如果真结束
发送按钮.禁止＝假
发送编辑框.获取焦点 ()

.子程序 _发送按钮_被单击

.如果真 (客户1.发送数据 (发送编辑框.内容) ＝假)
信息框 (“发送失败！”, 0, )
.如果真结束
发送编辑框.内容＝ “”
发送编辑框.获取焦点 ()

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

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

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

_按钮1_被单击 ()

想学坏的小孩 · 发表于 2010-1-21 16:59:01

到聊天室服务器那里下载服务器然后两个一起测试没看好就给分开了晕

显示全部楼层 · 发表于 2010-3-15 16:22:45

{:2_134:}ddddddddddddddddd

245271830 · 发表于 2010-7-17 07:03:16

有用的么?速度

bannian · 发表于 2011-8-26 18:57:15

好东西,谢谢分享.

		自动登录	找回密码
密码			注册

[易语言组件例程] 聊天室客户端