hulianQ

.版本 2

.局部变量 局_匿名, 数_匿名
.局部变量 i, 整数型
.局部变量 群员信息, 数_群成员
.局部变量 群号文本, 文本型, , "0"
.局部变量 群昵称, 文本型

.如果真 (fromQQ = 80000000 且 fromAnonymous ≠ “”)  ' 如果消息来自匿名者
    CQ.其他_转换_文本到匿名 (fromAnonymous, 局_匿名)  ' 将匿名用户信息放到 局_匿名 变量中
.如果真结束
' 本子程序会在酷Q【线程】中被调用,请注意使用对象等需要初始化(CoInitialize,CoUninitialize)。
' 这里处理消息
群号文本 = 取配置节名 (应用目录 + “互联Q群.ini”)
.如果真 (msg ≠ “”)
    CQ.取群成员信息 (fromGroup, fromQQ, 群员信息, )
    .计次循环首 (取数组成员数 (群号文本), i)
        .如果真 (到长整数 (群号文本 [i]) ≠ fromGroup)
            群昵称 = 读配置项 (应用目录 + “互联Q群.ini”, 群号文本 [i], “群昵称”, )
            CQ.发送群消息 (到长整数 (群号文本 [i]), 群员信息.昵称 + “【” + 群昵称 + “】” + msg)
        .如果真结束

    .计次循环尾 ()

.如果真结束
返回 (#消息_忽略)  ' 关于返回值说明, 见“_eventFriendMsg”子程序
View Code

 

 

posted @ 2018-01-17 03:08  acshery  阅读(143)  评论(0编辑  收藏  举报