易语言写多客户端聊天软件

.版本 2
.支持库 iext
.支持库 EThread

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

.子程序 __启动窗口_创建完毕
.局部变量 a, 整数型
.局部变量 索引, 整数型

读取数据 ＝ 0
序号 ＝ 到整数 (读配置项 (取运行目录 () ＋ “服务器数据.ini”, “序号”, “序号”, ))
.计次循环首 (序号, a)
    索引 ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (索引, 0, 到文本 (读取数据))
    超级列表框1.置标题 (索引, 1, 读配置项 (取运行目录 () ＋ “服务器数据.ini”, 到文本 (读取数据), “QQ号”, ))
    超级列表框1.置标题 (索引, 2, 读配置项 (取运行目录 () ＋ “服务器数据.ini”, 到文本 (读取数据), “昵称”, ))
    超级列表框1.置标题 (索引, 3, “不在线”)
    超级列表框1.置标题 (索引, 4, 读配置项 (取运行目录 () ＋ “服务器数据.ini”, 到文本 (读取数据), “登录IP地址”, ))
    超级列表框1.置标题 (索引, 5, 读配置项 (取运行目录 () ＋ “服务器数据.ini”, 到文本 (读取数据), “权限”, ))
    读取数据 ＝ 读取数据 ＋ 1
.计次循环尾 ()

.子程序 _服务器1_客户进入
.局部变量 a, 整数型
.局部变量 索引, 整数型
.局部变量 验证序号, 文本型

进入客户 ＝ 服务器1.取回客户 ()

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

客户 ＝ 服务器1.取回客户 ()
表项数 ＝ 超级列表框1.取表项数 ()
.计次循环首 (表项数, a)
    .如果真 (超级列表框1.取标题 (a － 1, 4) ＝ 客户)
        超级列表框1.置标题 (a － 1, 3, “不在线”)
        启动线程 (&发送在线信息, , )
        返回 ()
    .如果真结束

.计次循环尾 ()

.子程序 _服务器1_数据到达
.局部变量 数据, 文本型
.局部变量 a, 整数型
.局部变量 客户, 文本型
.局部变量 索引, 整数型
.局部变量 验证序号, 文本型

数据 ＝ 字节集_到文本 (服务器1.取回数据 ())
.如果真 (寻找文本 (到文本 (服务器1.取回数据 ()), “..#登录QQ号”, , 假) ≠ -1)
    验证序号 ＝ 文本_取出中间文本 (到文本 (服务器1.取回数据 ()), “..#登录QQ号:”, “。”)
    .计次循环首 (超级列表框1.取表项数 (), a)  ' 判断用户在服务器有没有数据
        .如果真 (超级列表框1.取标题 (a － 1, 1) ＝ 验证序号)
            超级列表框1.置标题 (a － 1, 3, “在线”)
            超级列表框1.置标题 (索引, 4, 进入客户)
            服务器1.发送数据 (进入客户, “上次登录IP:” ＋ 超级列表框1.取标题 (a － 1, 4) ＋ “--”, )
            服务器1.发送数据 (进入客户, “身份权限..:” ＋ 超级列表框1.取标题 (a － 1, 5) ＋ “--”, )
            启动线程 (&发送在线信息, , )
            返回 ()
        .如果真结束

    .计次循环尾 ()
    服务器1.发送数据 (进入客户, “登录成功，您的序号为:” ＋ 到文本 (序号) ＋ “。”, )
    服务器1.发送数据 (进入客户, “#无昵称。”, )
    索引 ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (索引, 0, 到文本 (序号))
    超级列表框1.置标题 (索引, 3, “在线”)
    超级列表框1.置标题 (索引, 4, 进入客户)
    超级列表框1.置标题 (索引, 5, “普通成员”)
    ' 下面的是记录信息
    写配置项 (取运行目录 () ＋ “服务器数据.ini”, 到文本 (序号), “序号”, 到文本 (序号))
    写配置项 (取运行目录 () ＋ “服务器数据.ini”, 到文本 (序号), “登录IP地址”, 进入客户)
    写配置项 (取运行目录 () ＋ “服务器数据.ini”, 到文本 (序号), “权限”, “普通成员”)
    序号 ＝ 序号 ＋ 1
    写配置项 (取运行目录 () ＋ “服务器数据.ini”, “序号”, “序号”, 到文本 (序号))
.如果真结束
.如果真 (寻找文本 (数据, “#####昵称=:”, , 假) ≠ -1)  ' 设置客户昵称
    昵称 ＝ 文本_取出中间文本 (数据, “#####昵称=:”, “##--------------”)
    账号序号 ＝ 文本_取出中间文本 (数据, “##--------------序号为:”, “。”)
    QQ号 ＝ 文本_取出中间文本 (数据, “#登录QQ号:”, “。”, )
    .计次循环首 (超级列表框1.取表项数 (), a)
        .如果真 (超级列表框1.取标题 (a － 1, 0) ＝ 账号序号)
            超级列表框1.置标题 (a － 1, 2, 昵称)
            超级列表框1.置标题 (a － 1, 1, QQ号)
            写配置项 (取运行目录 () ＋ “服务器数据.ini”, 账号序号, “昵称”, 昵称)
            写配置项 (取运行目录 () ＋ “服务器数据.ini”, 账号序号, “QQ号”, QQ号)
            跳出循环 ()
        .如果真结束

    .计次循环尾 ()
    返回 ()
.如果真结束
.计次循环首 (超级列表框1.取表项数 (), a)
    服务器1.发送数据 (超级列表框1.取标题 (a － 1, 4), 数据, 1)
.计次循环尾 ()

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

.如果真 (编号_编辑框.内容 ＝ “”)
    信息框 (“请输入编号。”, 0, , )
    返回 ()
.如果真结束
.如果真 (单选框1.选中 ＝ 真)
    写配置项 (取运行目录 () ＋ “服务器数据.ini”, 编号_编辑框.内容, “权限”, “最大权限”)
    超级列表框1.置标题 (到整数 (编号_编辑框.内容), 5, “最大权限”)
    服务器1.发送数据 (超级列表框1.取标题 (到整数 (编号_编辑框.内容), 4), “-------权限更改公告:最大权限。”, )
    启动线程 (&发送在线信息, , )
    信息框 (“最大权限设置成功”, 0, , )
.如果真结束
.如果真 (单选框2.选中 ＝ 真)
    写配置项 (取运行目录 () ＋ “服务器数据.ini”, 编号_编辑框.内容, “权限”, “大管理”)
    服务器1.发送数据 (超级列表框1.取标题 (到整数 (编号_编辑框.内容), 4), “-------权限更改公告:大管理。”, )
    启动线程 (&发送在线信息, , )
    超级列表框1.置标题 (到整数 (编号_编辑框.内容), 5, “大管理”)
    信息框 (“最大权限设置成功”, 0, , )
.如果真结束
.如果真 (单选框3.选中 ＝ 真)
    写配置项 (取运行目录 () ＋ “服务器数据.ini”, 编号_编辑框.内容, “权限”, “小管理”)
    超级列表框1.置标题 (到整数 (编号_编辑框.内容), 5, “小管理”)
    服务器1.发送数据 (超级列表框1.取标题 (到整数 (编号_编辑框.内容), 4), “-------权限更改公告:小管理。”, )
    启动线程 (&发送在线信息, , )
    信息框 (“最大权限设置成功”, 0, , )
.如果真结束


.子程序 发送在线信息
.局部变量 编号1, 文本型
.局部变量 QQ号1, 文本型
.局部变量 昵称1, 文本型
.局部变量 身份1, 文本型
.局部变量 a, 整数型

.计次循环首 (超级列表框1.取表项数 (), a)
    .如果真 (超级列表框1.取标题 (a － 1, 3) ＝ “在线”)
        编号1 ＝ 编号1 ＋ 超级列表框1.取标题 (a － 1, 0) ＋ “|”
        QQ号1 ＝ QQ号1 ＋ 超级列表框1.取标题 (a － 1, 1) ＋ “=”
        昵称1 ＝ 昵称1 ＋ 超级列表框1.取标题 (a － 1, 2) ＋ “-----”
        身份1 ＝ 身份1 ＋ 超级列表框1.取标题 (a － 1, 5) ＋ “*”
        服务器1.发送数据 (超级列表框1.取标题 (a － 1, 4), “列表框载入编号:” ＋ 编号1 ＋ “编号” ＋ “QQ号:” ＋ QQ号1 ＋ “QQ号” ＋ “昵称:” ＋ 昵称1 ＋ “昵称” ＋ “身份:” ＋ 身份1 ＋ “身份”, )
    .如果真结束

.计次循环尾 ()

@独木浅航