万能本地验证器

啊冲

.版本 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

http://yunpan.cn/QXEJ5kXXWsFfH