易语言某宝销量和平均数获取

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击

编辑框2.内容 ＝ 取宝贝信息 (编辑框1.内容)

.子程序 取宝贝信息, 文本型
.参数 宝贝ID, 文本型
.局部变量 Code, 文本型
.局部变量 店铺ID, 文本型
.局部变量 Cks, 文本型
.局部变量 返回数据, 文本型

Code ＝ 到文本 (网页_访问 (“https://item.taobao.com/item.htm?id=” ＋ 宝贝ID))
店铺ID ＝ 文本_取出中间文本 (Code, “userid=”, “;”)
Code ＝ 到文本 (网页_访问 (“https://detailskip.taobao.com/service/getData/1/p1/item/detail/sib.htm?itemId=” ＋ 宝贝ID ＋ “&sellerId=” ＋ 店铺ID ＋ “&modules=dynStock,qrcode,viewer,price,contract,duty,xmpPromotion,delivery,sellerDetail,activity,fqg,zjys,coupon,couponActivity,soldQuantity&callback=onSibRequestSuccess”, , , , Cks, 子文本替换 (#常量1, “[id]”, 宝贝ID, , , 真)))
返回数据 ＝ “交易成功：” ＋ 文本_取出中间文本 (Code, “confirmGoodsCount” ＋ #引号 ＋ “:”, “,”)
返回数据 ＝ 返回数据 ＋ “ | 月销量：” ＋ 文本_取出中间文本 (Code, “soldTotalCount” ＋ #引号 ＋ “:”, “}”)
Code ＝ 到文本 (网页_访问 (“https://rate.taobao.com/detailCount.do?_ksTS=” ＋ 时间_取现行时间戳 () ＋ “_97&callback=jsonp98&itemId=” ＋ 宝贝ID, , , , Cks, 子文本替换 (#常量2, “[id]”, 宝贝ID, , , 真)))
返回数据 ＝ 返回数据 ＋ “ | 评价数：” ＋ 文本_取出中间文本 (Code, “count” ＋ #引号 ＋ “:”, “}”)
返回 (返回数据)

@Patek