(酷Q机器人)酷Q超级列表框加载/勾选群数据【配置文件方式，可关闭窗口】完整子程序】

.版本 2
.支持库 iext

.子程序 子程序_读取
.局部变量 群_列表, 数_群, , "0"
.局部变量 i
.局部变量 表项
.局部变量 监控的单群, 文本型, , "0"
.局部变量 监控的群组, 文本型
.局部变量 n, 整数型
.局部变量 表项索引, 整数型

CQ.取群列表 (群_列表)
.如果真 (取数组成员数 (群_列表) ≤ 0)
    返回 ()
.如果真结束
.计次循环首 (取数组成员数 (群_列表), i)
    表项 ＝ 超级列表框_监控群列表.插入表项 (, , , , , )
    超级列表框_监控群列表.置标题 (表项, 0, 到文本 (群_列表 [i].群号))
    超级列表框_监控群列表.置标题 (表项, 1, 群_列表 [i].名称)
.计次循环尾 ()

监控的群组 ＝ 读配置项 (取运行目录 () ＋ “\conf\see.ini”, “监控群”, “监控群”, )
监控的单群 ＝ 分割文本 (监控的群组, “/”, )
.计次循环首 (取数组成员数 (监控的单群), n)
    表项索引 ＝ 超级列表框_监控群列表.查找表项 (监控的单群 [n], 0, 真, )

    超级列表框_监控群列表.置状态图片 (表项索引, 1)

.计次循环尾 ()


.子程序 _监控群配置_将被销毁
.局部变量 n, 整数型
.局部变量 表项数, 整数型
.局部变量 选中的群, 文本型

表项数 ＝ 超级列表框_监控群列表.取表项数 ()
.计次循环首 (表项数, n)
    .如果真 (超级列表框_监控群列表.取当前状态图片 (表项数 － n) ＝ 1)
        选中的群 ＝ 选中的群 ＋ 超级列表框_监控群列表.取标题 (表项数 － n, 0) ＋ “/”
    .如果真结束

.计次循环尾 ()
写配置项 (取运行目录 () ＋ “\conf\see.ini”, “监控群”, “监控群”, 选中的群)

喜欢 (2)赏

[1024853226@qq.com]

分享 (0)