百度识图api源码

.版本 2
.支持库 dp1
.支持库 shell

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 s, 文本型
.局部变量 sj, 文本型
.局部变量 im, 文本型
.局部变量 b, 字节集
.局部变量 正确答案, 文本型, , "0"
.局部变量 返回值, 文本型
.局部变量 n, 整数型
.局部变量 a, 文本型

正确答案 ＝ 分割文本 (子文本替换 (编辑框1.内容, “，”, “,”, , , 真), “,”, )
.如果真 (取数组成员数 (正确答案) ＝ 0)
    信息框 (“请至少输入一个可能正确的答案”, 0, , )
    返回 ()
.如果真结束
s ＝ #常量1
sj ＝ 时间_取现行时间戳 ()
im ＝ “86” ＋ 文本_取随机数字 (13)  ' 这个是手机的imei号
s ＝ 子文本替换 (s, “1454074278114”, sj, , , 真)
s ＝ 子文本替换 (s, “1454074278027”, sj, , , 真)
s ＝ 子文本替换 (s, “0f0a27cb589b4703a2e616878b2cae53”, 取数据摘要 (到字节集 (“queryimei” ＋ im ＋ “version51timestamp” ＋ sj ＋ “fromtoreqtextimage” ＋ 取数据摘要 (图片框1.图片) ＋ “e324arrq”)), , , 真)  ' 计算sign
s ＝ 子文本替换 (s, “[[]][[][]”, “pc”, , , 真)  ' 这个PC也可以是app
s ＝ 子文本替换 (s, “imeis”, im, , , 真)
s ＝ 子文本替换 (s, “[][][]”, sj, , , 真)

b ＝ 到字节集 (s)
b ＝ 子字节集替换 (b, 到字节集 (“照片”), 图片框1.图片, , )

返回值 ＝ 编码_usc2到ansi (到文本 (网页_访问 (“http://app.fanyi.baidu.com/transapp//image2trans”, 1, , , , “Content-Type: multipart/form-data; boundary=iYR-a04c1K2-O7lpakqF6cSROakGLz”, , , b)))
.如果 (取文本左边 (返回值, 4) ≠ “成功”)
    信息框 (“图片识别失败”, 0, , )
.否则
    a ＝ “”
    .计次循环首 (取数组成员数 (正确答案), n)
        .如果真 (寻找文本 (返回值, 正确答案 [n], , 假) ≠ -1)
            a ＝ a ＋ “[” ＋ 正确答案 [n] ＋ “]”
        .如果真结束

    .计次循环尾 ()
    .如果 (a ＝ “”)
        信息框 (“给出的答案中没有正确的”, 0, , )
    .否则
        信息框 (“正确答案：” ＋ a, 0, , )
    .如果结束

.如果结束


.子程序 _按钮2_被单击

通用对话框1.过滤器 ＝ “jpg|*.jpg|”
通用对话框1.初始目录 ＝ 取特定目录 (#系统桌面)
.如果真 (通用对话框1.打开 () ＝ 假)
    返回 ()
.如果真结束
图片框1.图片 ＝ 读入文件 (通用对话框1.文件名)

@秦天