易語言 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”))