.版本 2 .程序集 OcrKing在线识别 .子程序 OcrKing在线识别, 文本型, 公开, 将返回未处理的数据网页，请自行处理 .参数 验证码地址, 文本型, , url原始地址,若使用本地上传也需要填上本参数！ .参数 验证码图片, 字节集, 可空, Bmp,Gif,Png,Jpg,Tif,Pdf,若为空则智能转为url在线识别 .参数 ApiKey, 文本型, , 你的OcrKing授权key，可发送邮件到以 key 为标题任意内容为正文发邮件到 [email protected] 获取.若无，可使用程序内置的#ApiKey常量 .参数 识别类型, 整数型, , 1.长篇内容;2.PDF识别;3.手机号码;4.商城价格;5.纯数字类;6.验证码;7.条形码;8.PDF转图片 .参数 识别语种, 整数型, , 1.英语;2.简体中文;3.繁体中文 .参数 字符集, 整数型, , 0:所有英文字符;1:所有纯数字;2:小写英文字母;3:大写英文字母;4:数字小写字母;5:数字大写字母;6:大写小写字母;7:数字大写小写;8:常用英文字符;9:网址和邮件类;10:$￥商城价格;11:手机电话号类;12:数学公式计算; .局部变量 temp_访问文本, 文本型 .局部变量 temp_识别类型, 文本型, , "0" .局部变量 temp_识别语种, 文本型, , "0" .局部变量 temp_访问字节集, 字节集 temp_识别类型 ＝ 分割文本 (#识别类型, #换行符, ) temp_识别语种 ＝ 分割文本 (#识别语种, #换行符, ) .如果真 (是否为空 (验证码图片) ＝ 真) ' 使用get方法访问 temp_访问文本 ＝ “//lab.ocrking.com/ok.html?url=” .判断开始 (识别语种 ≠ 1) temp_访问文本 ＝ temp_访问文本 ＋ 验证码地址 ＋ “&service=” ＋ temp_识别类型 [识别类型] ＋ “&language=” ＋ temp_识别语种 [识别语种] ＋ “&charset=” ＋ “&apiKey=” ＋ ApiKey ＋ “&type=” .默认 temp_访问文本 ＝ temp_访问文本 ＋ 验证码地址 ＋ “&service=” ＋ temp_识别类型 [识别类型] ＋ “&language=” ＋ temp_识别语种 [识别语种] ＋ “&charset=” ＋ 到文本 (字符集) ＋ “&apiKey=” ＋ ApiKey ＋ “&type=” .判断结束 ' 本源码来自三叶资源网(www.sanye.cx) ' temp_访问文本 ＝ URL编码 (temp_访问文本) 返回 (Utf8转ansi (网页_访问 (temp_访问文本))) .如果真结束 ' 若非在线url识别, 则转为图片识别 temp_访问文本 ＝ #包头 temp_访问字节集 ＝ 到字节集 (temp_访问文本 ＋ #换行符) ＋ 验证码图片 temp_访问文本 ＝ #换行符 ＋ #包尾 temp_访问文本 ＝ 子文本替换 (temp_访问文本, “YOURSERVICE”, temp_识别类型 [识别类型], , , 真) temp_访问文本 ＝ 子文本替换 (temp_访问文本, “YOURLANGS”, temp_识别语种 [识别语种], , , 真) temp_访问文本 ＝ 子文本替换 (temp_访问文本, “YOURURL”, 验证码地址, , , 真) .判断开始 (识别语种 ≠ 1) temp_访问文本 ＝ 子文本替换 (temp_访问文本, “YOURCHARSET”, “”, , , 真) .默认 temp_访问文本 ＝ 子文本替换 (temp_访问文本, “YOURCHARSET”, 到文本 (字符集), , , 真) .判断结束 temp_访问文本 ＝ 子文本替换 (temp_访问文本, “YOURAPIKEY”, ApiKey, , , 真) temp_访问字节集 ＝ temp_访问字节集 ＋ 到字节集 (temp_访问文本) ' 返回 (Utf8转ansi (网页访问 (“//lab.ocrking.com/ok.html”, 1, , , , #请求头, , , temp_访问字节集))) 返回 (Utf8转ansi (网页_访问 (“//lab.ocrking.com/ok.html”, 1, , , , #请求头, , , temp_访问字节集))) ' 本源码来自三叶资源网(www.sanye.cx) .子程序 OcrKing解析结果, 逻辑型, 公开, 是否识别成功 .参数 OcrKing返回结果, 文本型, , OcrKing在线识别返回的结果 .参数 识别结果, 文本型, 参考, 将会返回识别后的结果 .局部变量 Status, 文本型 Status ＝ 文本_取出中间文本 (OcrKing返回结果, “<Status>”, “</Status>”, ) .如果真 (Status ≠ “true”) 返回 (假) .如果真结束 识别结果 ＝ 文本_取出中间文本 (OcrKing返回结果, “<Result>”, “</Result>”) 返回 (真)