|
|
[e]
.版本 2
.支持库 iext
.程序集 窗口程序集1
.程序集变量 新客户, 连接客户
.程序集变量 客户集, 连接客户, , "0"
.程序集变量 客户序号, 整数型
.程序集变量 客户总数, 整数型
.程序集变量 离开客户, 文本型
.程序集变量 数据到达客户, 文本型
.程序集变量 收到数据, 文本型
.子程序 _服务器1_客户进入
新客户.连接客户 ＝ 服务器1.取回客户 ()
客户序号 ＝ 取数组成员数 (客户集) ＋ 1
新客户.客户ID ＝ 客户序号
加入成员 (客户集, 新客户)
客户总数 ＝ 取数组成员数 (客户集)
列表框1.加入项目 (新客户.连接客户, 新客户.客户ID)
标签1.标题 ＝ “当前连接客户数:” ＋ 到文本 (列表框1.取项目数 ())
.子程序 __启动窗口_创建完毕
初始化 ()
.子程序 _服务器1_数据到达
数据到达客户 ＝ 服务器1.取回客户 ()
收到数据 ＝ 到文本 (服务器1.取回数据 ())
编辑框1.加入文本 (“客户信息” ＋ 数据到达客户 ＋ “收到数据:” ＋ #换行符 ＋ 收到数据 ＋ #换行符)
.如果真 (选择框1.选中 ＝ 真)
服务器1.发送数据 (数据到达客户, 编辑框3.内容, 0)
.如果真结束
.子程序 _服务器1_客户离开
.局部变量 计次, 整数型
.局部变量 ID, 整数型
离开客户 ＝ 服务器1.取回客户 ()
计次 ＝ 1
ID ＝ 0
.判断循环首 (ID ＝ 0)
.如果真 (离开客户 ＝ 客户集 [计次].连接客户)
ID ＝ 计次
.如果真结束
计次 ＝ 计次 ＋ 1
.判断循环尾 ()
删除成员 (客户集, ID, 1)
列表框1.删除项目 (ID － 1)
标签1.标题 ＝ “当前连接客户数:” ＋ 到文本 (列表框1.取项目数 ())
.子程序 _按钮1_被单击, , , 断开选中客户
.局部变量 断开ID, 整数型
断开ID ＝ 列表框1.现行选中项
.如果 (断开ID ≠ -1)
断开ID ＝ 断开ID ＋ 1
服务器1.断开客户 (客户集 [断开ID].连接客户)
.否则
标签1.标题 ＝ “请选中要断开的客户!”
.如果结束
.子程序 _按钮3_被单击
保存文件.过滤器 ＝ “文本文件|*.txt”
保存文件.打开 ()
写到文件 (保存文件.文件名, 到字节集 (编辑框1.内容))
.子程序 _按钮2_被单击
服务器1.端口 ＝ 到数值 (编辑框2.内容)
.如果 (到数值 (编辑框2.内容) ＝ 服务器1.端口)
信息框 (“置监听端口成功”, 0, )
.否则
信息框 (“置监听端口失败”, 0, )
.如果结束
.子程序 _按钮4_被单击
.局部变量 欲发送数据, 字节集
.局部变量 欲发送数据ID, 整数型
欲发送数据ID ＝ -1
欲发送数据 ＝ 到字节集 (编辑框3.内容)
欲发送数据ID ＝ 列表框1.现行选中项
.如果 (欲发送数据ID ≠ -1)
欲发送数据ID ＝ 欲发送数据ID ＋ 1
服务器1.发送数据 (客户集 [欲发送数据ID].连接客户, 欲发送数据, 0)
.否则
透明标签1.标题 ＝ “请在左侧选择要发送数据的客户”
.如果结束
.子程序 初始化
数组清零 (客户集)
客户序号 ＝ 0
标签6.标题 ＝ #作者 ＋ #换行符 ＋ #Email ＋ #换行符 ＋ #论坛ID
[/e]
不知道怎么上传源码.e的文件
|
|
楼主: 乃梦花开
[复制链接]
粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173
楼主
发表于 2013-11-2 07:50:10
扫一扫，关注易界动态