.版本 2

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 APPKEY, 文本型
.局部变量 GT, 文本型
.局部变量 CHALLENGE, 文本型
.局部变量 ITEMID, 文本型
.局部变量 REFERER, 文本型
.局部变量 PROXY, 文本型
.局部变量 DEVKEY, 文本型
.局部变量 SDK, 文本型
.局部变量 GIVEN, 文本型
.局部变量 HOST, 文本型
.局部变量 USERAGENT, 文本型
.局部变量 提交返回, 文本型
.局部变量 查询返回, 文本型
.局部变量 提交json, 类_json
.局部变量 查询json, 类_json
.局部变量 RESULTID, 文本型
.局部变量 循环次数, 整数型

APPKEY = "你的appkey"
GT = "你获取到的gt值"
CHALLENGE = ""
ITEMID = "0"
REFERER = ""
PROXY = ""
DEVKEY = ""
SDK = ""
GIVEN = ""
HOST = ""
USERAGENT = ""

.如果真 (APPKEY = "你的appkey")
    输出调试文本 ("[错误] 请先把 APPKEY 改成你自己的密钥")
    返回 (0)
.如果真结束

.如果真 (GT = "你获取到的gt值")
    输出调试文本 ("[错误] 请先填写 GT；如果是四代，这里填写 captcha_id")
    返回 (0)
.如果真结束

.如果真 (ITEMID = "0")
    输出调试文本 ("[错误] 请先填写 ITEMID")
    返回 (0)
.如果真结束

提交返回 = 功能_提交极验 (APPKEY, GT, CHALLENGE, ITEMID, REFERER, PROXY, DEVKEY, SDK, GIVEN, HOST, USERAGENT)
输出调试文本 ("[提交响应]" + #换行符 + 提交返回)

.如果真 (提交json.解析 (提交返回, , ))
    .如果真 (提交json.取通用属性 ("status", ) = "1")
        RESULTID = 到文本 (提交json.取通用属性 ("resultid", ))
        输出调试文本 ("[成功] resultid = " + RESULTID)
    .否则
        输出调试文本 ("[失败] " + 到文本 (提交json.取通用属性 ("msg", )))
        返回 (0)
    .如果真结束
.否则
    输出调试文本 ("[失败] 提交响应 JSON 解析失败")
    返回 (0)
.如果真结束

.计次循环首 (30, 循环次数)
    延时 (2000)
    查询返回 = 功能_查询结果 (APPKEY, RESULTID)
    输出调试文本 ("[第" + 到文本 (循环次数) + "次查询]" + #换行符 + 查询返回)

    .如果真 (查询json.解析 (查询返回, , ))
        .如果真 (查询json.取通用属性 ("status", ) = "1")
            输出调试文本 ("[成功] 耗时：" + 到文本 (查询json.取通用属性 ("time", )) + "ms")
            输出调试文本 ("[识别结果] " + 到文本 (查询json.取通用属性 ("data", )))
            返回 (0)
        .否则
            输出调试文本 ("[等待中] " + 到文本 (查询json.取通用属性 ("msg", )))
        .如果真结束
    .否则
        输出调试文本 ("[失败] 查询响应 JSON 解析失败")
    .如果真结束
.计次循环尾 ()

输出调试文本 ("[超时] 已轮询 30 次，仍未拿到成功结果")
返回 (0)

.子程序 功能_提交极验, 文本型, , 本命令由〖精易网页调试助手〗生成，请配合精易模块使用。
.参数 APPKEY, 文本型
.参数 GT, 文本型
.参数 CHALLENGE, 文本型
.参数 ITEMID, 文本型
.参数 REFERER, 文本型
.参数 PROXY, 文本型
.参数 DEVKEY, 文本型
.参数 SDK, 文本型
.参数 GIVEN, 文本型
.参数 HOST, 文本型
.参数 USERAGENT, 文本型
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 局_提交数据, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型

局_网址 = "http://api.ttocr.com/api/recognize"
局_方式 = 1
局_提交数据 = "appkey=" + 编码_URL编码 (APPKEY, 真, 真)
局_提交数据 = 局_提交数据 + "&gt=" + 编码_URL编码 (GT, 真, 真)
局_提交数据 = 局_提交数据 + "&itemid=" + 编码_URL编码 (ITEMID, 真, 真)

.如果真 (CHALLENGE = "")
.否则
    局_提交数据 = 局_提交数据 + "&challenge=" + 编码_URL编码 (CHALLENGE, 真, 真)
.如果真结束

.如果真 (REFERER = "")
.否则
    局_提交数据 = 局_提交数据 + "&referer=" + 编码_URL编码 (REFERER, 真, 真)
.如果真结束

.如果真 (PROXY = "")
.否则
    局_提交数据 = 局_提交数据 + "&proxy=" + 编码_URL编码 (PROXY, 真, 真)
.如果真结束

.如果真 (DEVKEY = "")
.否则
    局_提交数据 = 局_提交数据 + "&devkey=" + 编码_URL编码 (DEVKEY, 真, 真)
.如果真结束

.如果真 (SDK = "")
.否则
    局_提交数据 = 局_提交数据 + "&sdk=" + 编码_URL编码 (SDK, 真, 真)
.如果真结束

.如果真 (GIVEN = "")
.否则
    局_提交数据 = 局_提交数据 + "&given=" + 编码_URL编码 (GIVEN, 真, 真)
.如果真结束

.如果真 (HOST = "")
.否则
    局_提交数据 = 局_提交数据 + "&host=" + 编码_URL编码 (HOST, 真, 真)
.如果真结束

.如果真 (USERAGENT = "")
.否则
    局_提交数据 = 局_提交数据 + "&userAgent=" + 编码_URL编码 (USERAGENT, 真, 真)
.如果真结束

ADD_协议头.添加 ("Content-Type", "application/x-www-form-urlencoded; charset=UTF-8", )
ADD_协议头.添加 ("Accept", "application/json", )
ADD_协议头.添加 ("User-Agent", "Mozilla/5.0", )
局_提交协议头 = ADD_协议头.获取协议头数据 ()
局_结果 = 网页_访问_对象 (局_网址, 局_方式, 局_提交数据, , , 局_提交协议头, , , , , , , , , , , )
局_返回 = 到文本 (编码_Utf8到Ansi (局_结果))
返回 (局_返回)

.子程序 功能_查询结果, 文本型, , 本命令由〖精易网页调试助手〗生成，请配合精易模块使用。
.参数 APPKEY, 文本型
.参数 RESULTID, 文本型
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 局_提交数据, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型

局_网址 = "http://api.ttocr.com/api/results"
局_方式 = 1
局_提交数据 = "appkey=" + 编码_URL编码 (APPKEY, 真, 真)
局_提交数据 = 局_提交数据 + "&resultid=" + 编码_URL编码 (RESULTID, 真, 真)
ADD_协议头.添加 ("Content-Type", "application/x-www-form-urlencoded; charset=UTF-8", )
ADD_协议头.添加 ("Accept", "application/json", )
ADD_协议头.添加 ("User-Agent", "Mozilla/5.0", )
局_提交协议头 = ADD_协议头.获取协议头数据 ()
局_结果 = 网页_访问_对象 (局_网址, 局_方式, 局_提交数据, , , 局_提交协议头, , , , , , , , , , , )
局_返回 = 到文本 (编码_Utf8到Ansi (局_结果))
返回 (局_返回)