.版本 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, “没有找到与图片相关的内容。”) .否则 .如果结束 .否则 .如果结束 返回 (#消息_忽略)