贵旅1.6.1更新内容:
1.更新到最新协议
2.优化加密算法
3.多账号多线程计算指纹
4.优化付款算法,付款方式
5.贵旅安心空港黄果树遵行小农均可通用
另外可出算法。
.版本 2
.支持库 spec
.支持库 iext
.计次循环首 (1, 页数计次)
url = “”
tj = “”
url = “https://” + 全局host + “.gzlex.com/api/product/list?”
tj = “appkey=ashlt_rn_7423083aa&branchNo=0&brand=” + 到文本 (331) + “&client=android¤tPage=” + 到文本 (页数计次) + “&deviceId=” + deviceid + “&encrypt=1&fundAccount=” + fundAccount + “&pageCount=4×tamp=” + 时间_取现行时间戳 () + “&token=” + token + “&uid=” + user + “&version=2.1.0”
tj = tj + “&signcode=” + getsign (tj)
url = url + tj
.如果真 (选择框_代理.选中 = 真)
ip = 取个IP ()
.如果真结束
ret = 到文本 (编码_编码转换对象 (网页_访问_对象 (url, 0, , , , 文本_替换 (#常量2, , , , “全局host”, 全局host), , , , , ip)))
调试输出 (ret)
js.解析 (ret)
.计次循环首 (js.成员数 (“data.dataList”), 计次)
索引 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.保证显示 (索引)
商品名 = js.取通用属性 (“data.dataList[” + 到文本 (计次 - 1) + “].name”)
商品价格 = js.取通用属性 (“data.dataList[” + 到文本 (计次 - 1) + “].price”)
商品图片 = js.取通用属性 (“data.dataList[” + 到文本 (计次 - 1) + “].productIcon”)
商品编号 = js.取通用属性 (“data.dataList[” + 到文本 (计次 - 1) + “].erpCode”)
状态 = js.取通用属性 (“data.dataList[” + 到文本 (计次 - 1) + “].status”)
状态 = 文本_替换 (状态, , , , “0”, “售罄”, “1”, “有货”)
.如果真 (状态 = “有货”)
.如果 (选择框1.选中 = 真)
下单参数.下单数量 = 到文本 (匹配数量 (到整数 (商品价格)))
下单参数.商品编号 = 商品编号
下单参数.商品价格 = 商品价格
下单参数.支付密码 = 编辑框_支付密码.内容
下单参 = 下单参数.商品编号 + “|” + 下单参数.商品价格 + “|” + 下单参数.支付密码 + “|” + 下单参数.下单数量
内存长度 = 取字节集长度 (到字节集 (下单参))
内存指针 = 申请内存 (内存长度, 假)
写到内存 (到字节集 (下单参), 内存指针, 内存长度)
线程_启动 (&下单请求, 内存指针)
.否则
.如果真 (选择框_自动刷新.选中 = 真)
下单参数.下单数量 = “1”
下单参数.商品编号 = 商品编号
下单参数.商品价格 = 商品价格
下单参数.支付密码 = 编辑框_支付密码.内容
下单参 = 下单参数.商品编号 + “|” + 下单参数.商品价格 + “|” + 下单参数.支付密码 + “|” + 下单参数.下单数量
内存长度 = 取字节集长度 (到字节集 (下单参))
内存指针 = 申请内存 (内存长度, 假)
写到内存 (到字节集 (下单参), 内存指针, 内存长度)
线程_启动 (&下单请求, 内存指针)
.如果真结束
.如果结束
.如果真结束
超级列表框1.置标题 (索引, 0, 到文本 (索引 + 1))
超级列表框1.置标题 (索引, 1, 商品名)
超级列表框1.置标题 (索引, 2, 商品价格)
超级列表框1.置标题 (索引, 3, 商品图片)
超级列表框1.置标题 (索引, 4, 商品编号)
超级列表框1.置标题 (索引, 5, 状态)
.如果真 (选择框2.选中 = 真)
返回值 = 查询库存 (商品编号)
库存 = 文本_取右边 (返回值, “|”)
商品代号 = 文本_取左边 (返回值, “|”)
.如果真 (到整数 (库存) + 1 > 1)
.如果真 (选择框_提示.选中 = 真)
播放MP3 (1, 取运行目录 () + “\1.mp3”)
.如果真结束
str = 到文本 (读入文件 (取运行目录 () + “\库存日志.ini”))
写到文件 (取运行目录 () + “\库存日志.ini”, 到字节集 (str + 到文本 (取现行时间 ()) + “>>>” + 商品名 + “ 库存:” + 库存 + #换行符))
.如果真结束
超级列表框1.置标题 (索引, 6, 库存)
超级列表框1.置标题 (索引, 7, 商品代号)
.如果真结束
处理事件 ()
.计次循环尾 ()
处理事件 ()
程序_延时 (1000)
.计次循环尾 ()
log (“列表刷新完成”)
.否则
log (“您还没有登录哦!”)
本文转载自: https://blog.csdn.net/m0_74360179/article/details/128852397
版权归原作者 飞扬 所有, 如有侵权,请联系我们删除。
版权归原作者 飞扬 所有, 如有侵权,请联系我们删除。