.版本 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 (到文本 (网页_访问 (“//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.文件名)
百度识图的源代码
识图网站源码