易语言 post请求 解析json 初学者记录 多多进宝

公司要求做爬虫时的个人初学记录
.版本 2

.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 ADD_数据包, 类_POST数据类
.局部变量 局_提交数据, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回协议, 文本型
.局部变量 取中间返回值, 文本型, , “0”
.局部变量 局_返回, 文本型
.局部变量 局_json, 类_json, , , 局返回json
.局部变量 code, 整数型

局_网址 ＝ “https://jinbao.pinduoduo.com/network/api/account/loginPassword”
局_方式 ＝ 1
ADD_数据包.添加 (“mobile”, 账号.内容)
ADD_数据包.添加 (“password”, 密码.内容)

局_提交数据 ＝ ADD_数据包.获取JSON文本 ()

ADD_协议头.添加 (“Cookie”, “api_uid=rBQGw1v49zQ37EHKxVUtAg==”)

ADD_协议头.添加 (“Content-Type”, “application/json;charset=UTF-8”)

局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()

局_结果 ＝ 到字节集 (网页_访问S (局_网址, 局_方式, 局_提交数据, , , 局_提交协议头, 局_返回协议, , , , , , , , , , , ))

局_返回 ＝ 到文本 (局_结果)

局_json.解析 (编码_utf8到gb2312 (局_返回))
code ＝ 到数值 (局_json.取通用属性 (“errorCode”))
.如果 (code ＝ 1000000)
_启动窗口.可视 ＝ 假
文本_取中间_批量 (局_返回协议, “DDJB_PASS_ID=”, “;”, 取中间返回值)
全局变量_多多进宝_cookie ＝ “api_uid=rBQGw1v49zQ37EHKxVUtAg==;DDJB_PASS_ID=” ＋ 取中间返回值 [1]
载入 (订单窗口, , 真)
.否则
登陆提示.标题 ＝ 到文本 (局_json.取通用属性 (“errorMsg”))