酷Q插件 百度识图源码

酷Q插件 百度识图源码

.版本 2
.支持库 spec

.如果 (取文本左边 (msg, 取文本长度 (“识链接”)) ＝ “识链接”)  ' 取文本左边
    msg ＝ 子文本替换 (msg, “识链接”, , , 1, 真)  ' 取文本左边
    返回文本 ＝ 编码_utf8到gb2312 (到文本 (网页_访问 (“http://image.baidu.com/n/pc_search?queryImageUrl=” ＋ msg ＋ “&querySign=&simid=&fm=home&pos=&uptype=paste”)))
    正则.创建 (“<a class=” ＋ #引号 ＋ “source-card-topic-title-link” ＋ #引号 ＋ “ href=” ＋ #引号 ＋ “(.*?)” ＋ #引号 ＋ “ data-word-index=” ＋ #引号 ＋ “d+” ＋ #引号 ＋ “ target=” ＋ #引号 ＋ “_blank” ＋ #引号 ＋ “ >(.*?)</a>”, 返回文本)
    .计次循环首 (正则.取匹配数量 (), n)
        a ＝ a ＋ 正则.取子匹配文本 (n, 1) ＋ #换行符 ＋ 正则.取子匹配文本 (n, 2) ＋ #换行符
    .计次循环尾 ()
    调试输出 (a)
    CQ.发送群消息 (fromGroup, a)
    .如果 (a ＝ “”)
        CQ.发送群消息 (fromGroup, “没有找到与图片相关的内容。”)
    .否则

    .如果结束
    返回 (#消息_忽略)
.否则

.如果结束

.如果 (取文本左边 (msg, 取文本长度 (“识图”)) ＝ “识图”)  ' 取文本左边
    msg ＝ 子文本替换 (msg, “识图”, , , 1, 真)  ' 取文本左边
    uir ＝ 读配置项 (取运行目录 () ＋ “data\image\” ＋ 文本_取出中间文本 (msg, “[CQ:image,file=”, “]”) ＋ “.cqimg”, “image”, “url”, )

    返回文本 ＝ 编码_utf8到gb2312 (到文本 (网页_访问 (“http://image.baidu.com/n/pc_search?queryImageUrl=” ＋ uir ＋ “&querySign=&simid=&fm=home&pos=upload&uptype=upload_pc”)))
    正则.创建 (“<a class=” ＋ #引号 ＋ “source-card-topic-title-link” ＋ #引号 ＋ “ href=” ＋ #引号 ＋ “(.*?)” ＋ #引号 ＋ “ data-word-index=” ＋ #引号 ＋ “d+” ＋ #引号 ＋ “ target=” ＋ #引号 ＋ “_blank” ＋ #引号 ＋ “ >(.*?)</a>”, 返回文本)
    .计次循环首 (正则.取匹配数量 (), n)
        a ＝ a ＋ 正则.取子匹配文本 (n, 1) ＋ #换行符 ＋ 正则.取子匹配文本 (n, 2) ＋ #换行符
    .计次循环尾 ()
    调试输出 (a)
    CQ.发送群消息 (fromGroup, a)
    .如果 (a ＝ “”)
        CQ.发送群消息 (fromGroup, “没有找到与图片相关的内容。”)
    .否则

    .如果结束

.否则

.如果结束
返回 (#消息_忽略)