8549149@qq.com 发表于 2023-2-25 07:24:29

Q频 云黑查询插件

本帖最后由 8549149@qq.com 于 2023-3-6 18:05 编辑

发上来主要是给萌新参考api请求的写法。
仅供学习。
.版本 2

.判断 (e.取文本 (“event”) = #DR_事件_频道消息)

    ' e.取文本 (“islandId”)' 群号
    ' e.取文本 (“channelId”)' 频道号
    ' e.取文本 (“userId”)' 用户号
    ' e.取文本 (“messageId”)' 消息ID
    消息内容 = e.取文本 (“messageBody”)
    频道号 = e.取文本 (“channelId”)
    回复消息ID = e.取文本 (“messageId”)
    用户号 = e.取文本 (“userId”)

    ' 由于适配了多平台,因此此事件进行了抽象
    ' 对于QQ,群 即 QQ群,频道 即 QQ群,频道消息事件 即 群消息事件,虽然频道号和群号值相同,但是置频道消息发送时也请传频道号,否则应用将无法适配多平台
    ' 对于DoDo,群 即 DoDo群,频道 即 DoDo频道
    ' 对于Q频,群 即 QQ频道,频道 即 QQ子频道

    .如果真 (取文本左边 (消息内容, 2) = “查”)
      ' DR.置日志发送 (“真”, )

      QQ = 文本_取右边 (消息内容, “查”, )
      QQ = 文本_替换 (QQ, , , , “ ”, “”)

      .如果真 (取文本长度 (QQ) < 2)

            发送的内容 = “请核对”
            DR.置频道消息发送 (, 频道号, 发送的内容, 回复消息ID)
            返回 (1)
      .如果真结束

      ' DR.置日志发送 (QQ, )
      发送的内容 = DR.码_艾特 (用户号) + #换行符 + api (到文本 (QQ))
      ' DR.置日志发送 (发送的内容, )
      DR.置频道消息发送 (, 频道号, 发送的内容, 回复消息ID)
      返回 (1)
    .如果真结束

    ' DR.置频道消息发送 (, e.取文本 (“channelId”), e.取文本 (“messageBody”), e.取文本 (“messageId”))
.版本 2

.子程序 api, 文本型
.参数 qq, 文本型
.局部变量 结果, 文本型
.局部变量 网址, 文本型
.局部变量 方式, 整数型
.局部变量 提交数据, 文本型
.局部变量 提交协议头, 文本型

网址 = “https://yhtj.fun/query.php?qq=”
方式 = 0
结果 = 到文本 (编码_Utf8到Ansi (网页_访问_对象 (网址 + qq, 方式, , , , , , , , , , , , , , , , , )))
结果 = 文本_替换 (结果, , , , “<br>”, “\n”, “查询QQ号VX号或游戏UID:”, “”)
' DR.置日志发送 (结果, )
返回 (结果)

rions666 发表于 2023-2-25 07:30:30

0.0

Never 发表于 2023-2-28 18:34:49

对接BlackBE云黑?如果是的话希望能出个支持群的,谢谢大佬!

8549149@qq.com 发表于 2023-3-4 14:17:24

Never 发表于 2023-2-28 18:34
对接BlackBE云黑?如果是的话希望能出个支持群的,谢谢大佬!

搞错了 群也能用··
页: [1]
查看完整版本: Q频 云黑查询插件