.版本 2

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 APPKEY, 文本型
.局部变量 返回文本, 文本型
.局部变量 json, 类_json

' =============================================================
'   查询账户点数 Demo (易语言版)
'
'   说明：
'   1. 需要先导入精易模块
'   2. 本示例按精易论坛常见的“网页调试助手生成”写法整理
'   3. 结果默认输出到调试输出窗口，方便直接看接口返回
' =============================================================

APPKEY = "你的appkey"

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

返回文本 = 功能_查询点数 (APPKEY)
输出调试文本 ("[完整响应]" + #换行符 + 返回文本)

.如果真 (json.解析 (返回文本, , ))
    .如果真 (json.取通用属性 ("status", ) = "1")
        输出调试文本 ("[成功] 当前可用点数：" + 到文本 (json.取通用属性 ("points", )))
    .否则
        输出调试文本 ("[失败] " + 到文本 (json.取通用属性 ("msg", )))
    .如果真结束
.否则
    输出调试文本 ("[失败] JSON 解析失败，请检查返回内容")
.如果真结束

返回 (0)

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

局_网址 = "http://api.ttocr.com/api/points?appkey=" + 编码_URL编码 (APPKEY, 真, 真)
局_方式 = 0
ADD_协议头.添加 ("Accept", "application/json", )
ADD_协议头.添加 ("User-Agent", "Mozilla/5.0", )
局_提交协议头 = ADD_协议头.获取协议头数据 ()
局_结果 = 网页_访问_对象 (局_网址, 局_方式, , , , 局_提交协议头, , , , , , , , , , , )
局_返回 = 到文本 (编码_Utf8到Ansi (局_结果))
返回 (局_返回)