.版本 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 ＋ “身份”, ) .如果真结束 .计次循环尾 ()