聊天室服务器

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

.版本 2

.程序集窗口程序集1

.子程序 _服务器1_客户进入

' 当某客户连接进来时，将其加入在线列表。
列表框1.加入项目 (服务器1.取回客户 (), )

.子程序 _服务器1_客户离开
.局部变量客户, 文本型
.局部变量项目数, 整数型
.局部变量计数, 整数型

' 当某客户断开连接时，将其从在线列表中删除。
客户＝服务器1.取回客户 ()
项目数＝列表框1.取项目数 ()
.计次循环首 (项目数, 计数)
.如果真 (列表框1.取项目文本 (计数－ 1) ＝客户)
列表框1.删除项目 (计数－ 1)
跳出循环 ()
.如果真结束

.计次循环尾 ()

.子程序 _服务器1_数据到达
.局部变量项目数, 整数型
.局部变量计次变量, 整数型
.局部变量收到数据, 字节集

' 将所收到的信息转发给所有在线客户。
收到数据＝服务器1.取回数据 ()
项目数＝列表框1.取项目数 ()
.计次循环首 (项目数, 计次变量)
服务器1.发送数据 (列表框1.取项目文本 (计次变量－ 1), 收到数据, 1)
.计次循环尾 ()

q609457869 · 发表于 2010-8-7 04:14:22

GOOD 啊好

sunyajun · 发表于 2010-8-7 20:07:50

虽然不是很看得懂，但是很不错！

liudi · 发表于 2010-8-7 23:08:43

好东西.{:3_215:}

tx2153024 · 发表于 2010-8-8 19:55:27

好东西 ~~~

adfan · 发表于 2010-8-8 19:59:25

好东西，学习一下

chenchen · 发表于 2011-10-7 15:40:42

{:3_226:}下了

小伟105 · 发表于 2011-10-7 18:58:51

干嘛用的？

讲不出再见 · 发表于 2011-11-12 14:40:26

不知会不会卡。。。。

zqx438 · 发表于 2012-9-1 20:47:09

好东西，学习一下

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

[易语言组件例程] 聊天室服务器

评分