本帖最后由 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.置日志发送 (结果, )
- 返回 (结果)
|
变色卡
千斤顶