|
楼主 |
发表于 2024-10-19 23:04:35
|
显示全部楼层
新疆维吾尔自治区昌吉回族自治州
.版本 2
.子程序 获取pin及aid, 文本型
.参数 参_cookie, 文本型
.参数 参_sku, 文本型
.局部变量 url, 文本型
.局部变量 heard, 文本型
.局部变量 str, 文本型
.局部变量 json, 类_json
.局部变量 _pin, 文本型
.局部变量 _aid, 文本型
.局部变量 Http, WinHttpW
参_sku = “10111540372249”
参_cookie = “pt_pin=%E6%B3%A2130970385901; pt_key=AAJnE24CADDBrEvF6iKMq57IGJ4MgX9kfa7CJQPyr8XLWrd5QOG7eVLtrZwpBe65c3j9nXz6tyM; ”
url = “https://api.m.jd.com/client.action?functionId=getAidInfo&body=” + 编码_URL编码 (“{” + #引号 + “userPin” + #引号 + “:” + #引号 + #引号 + “,” + #引号 + “shopId” + #引号 + “:” + #引号 + #引号 + “,” + #引号 + “venderId” + #引号 + “:” + #引号 + #引号 + “,” + #引号 + “pid” + #引号 + “:” + #引号 + 参_sku + #引号 + “,” + #引号 + “token” + #引号 + “:” + #引号 + #引号 + “,” + #引号 + “aidClientType” + #引号 + “:” + #引号 + “m” + #引号 + “,” + #引号 + “aidClientVersion” + #引号 + “:” + #引号 + “m+-v1.0.0” + #引号 + “,” + #引号 + “appId” + #引号 + “:” + #引号 + “im.customer” + #引号 + “,” + #引号 + “os” + #引号 + “:” + #引号 + “m” + #引号 + “,” + #引号 + “entry” + #引号 + “:” + #引号 + “m_item” + #引号 + “,” + #引号 + “reqSrc” + #引号 + “:” + #引号 + “s_h5” + #引号 + “,” + #引号 + “originReferer” + #引号 + “:” + #引号 + “https%3A%2F%2Fitem.m.jd.com%2Fproduct%2F10065450857798.html” + #引号 + “,” + #引号 + “siteId” + #引号 + “:-1,” + #引号 + “customerAppId” + #引号 + “:” + #引号 + “im.customer” + #引号 + “}”, 真, 真) + “&client=imh5&appid=imh5&t=&clientVersion=1.0.0&h5st=&x-api-eid-token=”
heard = “Host: api.m.jd.com” + #换行符 + “Connection: keep-aliv” + #换行符 + “Connection: keep-alive” + #换行符 + “accept: application/json, text/plain, */*” + #换行符 + “x-rp-client: h5_1.0.0” + #换行符 + “User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/86.0.4240.198 Safari/537.36” + #换行符 + “x-referer-page: https://jdcs.m.jd.com/” + #换行符 + “Origin: https://jdcs.m.jd.com” + #换行符 + “Referer: https://jdcs.m.jd.com/?sku=&entry=m_item&venderId=&sid=entry=m_item&sceneval=2&jxsid=&appCode=ms0ca95114”
.计次循环首 (3, )
' Http.Rest ()
' Http.Auto ()
' Http.AutoCookies ()
' Http.Open (“POST”, url)
' Http.SetRequestHeaders (heard)
' Http.CookieAdd (参_cookie)
' Http.Send ()
' str = URLDecodeUtf8 (Http.GetResponseText ())
str = 编码_Utf8到Ansi (网页_访问 (url, 1, , 参_cookie, , heard))
.如果真 (str ≠ “”)
跳出循环 ()
.如果真结束
.计次循环尾 ()
调试输出 (“获取客户pin及aid返回>>>” + str)
json.解析 (str)
_pin = json.取通用属性 (“pin”)
_aid = json.取通用属性 (“aid”)
' 调试输出 (“客户pin及aid>>>” + _pin + “----” + _aid)
返回 (_pin + “----” + _aid)
|
|