酷Q插件源码QQ群黑名单禁止加入

易语言 2019-10-02 15:44:58

酷Q插件源码QQ群黑名单禁止加入

.子程序 AppInfo, 文本型, 公开, [请填写] 应用的ApiVer、Appid //请不要在本函数添加其他代码
.局部变量 ApiVer, 整数型
.局部变量 AppID, 文本型

ApiVer = 9 ' Api版本号
AppID = “cn.sonui.groupblacklist” ' AppID,规则见 http://d.cqp.cc/Pro/开发/基础信息
' 本函数【禁止】处理其他任何代码,以免发生异常情况。如需执行初始化代码请在Startup事件中执行(Type=1001)。
返回 (到文本 (ApiVer) + “,” + AppID)

.子程序 Initialize, 整数型, 公开, 应用AuthCode接收 //请不要在本函数添加其他代码
.参数 AuthCode, 整数型
.局部变量 AuthRet, 整数型

' 酷Q获取应用信息后,如果接受该应用,将会调用这个函数并传递AuthCode。
AuthRet = CQ.其他_置AuthCode (AuthCode)
.如果真 (AuthRet ≠ 0)
返回 (AuthRet)
.如果真结束
置错误提示管理 (&CQ_错误提示管理) ' 将易语言的错误转向酷Q,便于定位错误应用
' 本函数【禁止】处理其他任何代码,以免发生异常情况。如需执行初始化代码请在Startup事件中执行(Type=1001)。
返回 (0) ' 请固定返回0

.子程序 _eventPrivateMsg, 整数型, 公开, Type=21 私聊消息
.参数 subType, 整数型, , 子类型,11/来自好友 1/来自在线状态 2/来自群 3/来自讨论组
.参数 sendTime, 整数型, , 发送时间(时间戳)
.参数 fromQQ, 长整数型, , 来源QQ
.参数 msg, 文本型, , 消息内容
.参数 font, 整数型, , 字体
.局部变量 句柄, 整数型
.局部变量 正则, 正则表达式类
.局部变量 group, 文本型
.局部变量 qq, 文本型
.局部变量 失败原因, 文本型

.判断开始 (取文本左边 (msg, 8) = “加黑名单”)
进入许可区 (许可证)
正则.创建 (“群(\d*)”, msg, , , , )
group = 正则.取子匹配文本 (1, 1, )
.如果 (是否有权限 (到文本 (fromQQ), group))
正则.创建 (“单(\d*)”, msg, , , , )
qq = 正则.取子匹配文本 (1, 1, )
.判断开始 (加黑名单 (qq, group, 失败原因))
CQ.发送私聊消息 (fromQQ, “添加QQ” + qq + “到群” + group + “黑名单成功”)
.默认
CQ.发送私聊消息 (fromQQ, “添加QQ” + qq + “到群” + group + “黑名单失败,原因:” + #换行符 + 失败原因)
.判断结束

.否则
CQ.发送私聊消息 (fromQQ, “您非此群黑名单管理员,无权限添加”)
.如果结束

.判断 (取文本左边 (msg, 8) = “删黑名单”)
正则.创建 (“群(\d*)”, msg, , , , )
group = 正则.取子匹配文本 (1, 1, )
.如果 (是否有权限 (到文本 (fromQQ), group))
正则.创建 (“单(\d*)”, msg, , , , )
qq = 正则.取子匹配文本 (1, 1, )
.判断开始 (删黑名单 (qq, group, 失败原因))
CQ.发送私聊消息 (fromQQ, “删除QQ” + qq + “在群” + group + “黑名单成功”)
.默认
CQ.发送私聊消息 (fromQQ, “删除QQ” + qq + “在群” + group + “黑名单失败,原因:” + #换行符 + 失败原因)
.判断结束

.否则
CQ.发送私聊消息 (fromQQ, “您非此群黑名单管理员,无权限删除”)
.如果结束
退出许可区 (许可证)
.默认

.判断结束
返回 (#消息_忽略)