易语言post raw数据

.版本 2
.支持库 spec

.子程序 数据抽取
.局部变量 内容, 文本型
.局部变量 局_地址, 文本型
.局部变量 局_提交, 文本型
.局部变量 局_返回, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 token, 类_json
.局部变量 json实体, 类_json
.局部变量 表头, 文本型
.局部变量 i, 整数型
.局部变量 k, 整数型
.局部变量 标记页, 文本型

标记页 ＝ 到文本 (当前页)
局_地址 ＝ “请求地址”
' {"pages": 1,"tableId": 726567}
局_提交 ＝ “{” ＋ #引号 ＋ “pages” ＋ #引号 ＋ “: ” ＋ 标记页 ＋ “,” ＋ #引号 ＋ “tableId” ＋ #引号 ＋ “: 726567}”
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”)
ADD_协议头.添加 (“Content-Type”, “application/json;charset=utf-8”) ’json请求格式
ADD_协议头.添加 (“Authorization”, “Bearer ” ＋ 编辑框1.内容) ’自定义协议头
' 调试输出 (“Bearer ” ＋ 编辑框1.内容)
调试输出 (标记页)
局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()

局_返回 ＝ 编码_Utf8到Ansi (网页_访问_对象 (局_地址, 1, 局_提交, , , 局_提交协议头, , , , , , , , , , , ))
.判断开始 (局_返回 ＝ “[]”)
    返回 ()
.默认

.判断结束
json实体.解析 (局_返回)