|
楼主 |
发表于 2024-10-9 20:41:10
|
显示全部楼层
福建省厦门市
代码如下
.版本 2
.支持库 spec
返回内容 = 到文本 (网页_访问_对象 (“https://galaxy-tntspace.willapps.com/glaxy/trade/directBuy/createTrade.json”, 1, #请求体1, , , #协议头1, 返回协议头, 返回代码))
调试输出 (“返回内容1” + 编码_utf8到gb2312 (返回内容))
调试输出 (“返回协议头1” + 返回协议头)
调试输出 (返回代码)
延时 (100)
延时 (100)
订单编号 = 文本_取出中间文本 (编码_utf8到gb2312 (返回内容), “tradeNo” + #引号 + “:” + #引号, #引号, 1)
替换后请求体 = 文本_替换 (#请求体2, , , , “订单编号”, 订单编号)
延时 (100)
返回内容 = 到文本 (网页_访问_对象 (“https://galaxy-tntspace.willapps.com/glaxy/pay/queryPrePayResult.json”, 1, 替换后请求体, , , #协议头2, 返回协议头, 返回代码))
调试输出 (“返回内容2” + 编码_utf8到gb2312 (返回内容))
调试输出 (“返回协议头2” + 返回协议头)
调试输出 (返回代码)
延时 (100)
返回内容 = 到文本 (网页_访问_对象 (“https://galaxy-tntspace.willapps.com/glaxy/pay/queryPrePayResult.json”, 1, 替换后请求体, , , #协议头2, 返回协议头, 返回代码))
调试输出 (“返回内容2” + 编码_utf8到gb2312 (返回内容))
调试输出 (“返回协议头2” + 返回协议头)
调试输出 (返回代码)
订单编号 = 文本_取出中间文本 (编码_utf8到gb2312 (返回内容), “paySign\” + #引号 + “:\” + #引号, “\” + #引号, 1)
调试输出 (订单编号)
替换后请求体 = 文本_替换 (#请求体uuid, , , , “paySign号”, 订单编号)
订单编号 = 文本_取出中间文本 (编码_utf8到gb2312 (返回内容), “prepay_id=”, “\”, 1)
调试输出 (订单编号)
替换后请求体 = 文本_替换 (替换后请求体, , , , “prepay_id号”, 订单编号)
订单编号 = 文本_取出中间文本 (编码_utf8到gb2312 (返回内容), “nonceStr\” + #引号 + “:\” + #引号, “\”, 1)
调试输出 (订单编号)
替换后请求体 = 文本_替换 (替换后请求体, , , , “nonceStr号”, 订单编号)
调试输出 (“paySign号” + 替换后请求体)
延时 (100)
返回内容 = 到文本 (网页_访问_对象 (“https://open.weixin.qq.com/wxaru ... 3bec58ff09376a833ae ”, 1, 替换后请求体, , , #协议头uuid, 返回协议头, 返回代码))
调试输出 (“返回内容3” + 返回内容)
调试输出 (“返回协议头3” + 返回协议头)
调试输出 (返回代码)
uuid号 = 文本_取出中间文本 (编码_utf8到gb2312 (返回内容), “uuid” + #引号 + “:” + #引号, #引号, 1)
替换后请求体 = 文本_替换 (#请求体6, , , , “uuid号”, uuid号)
调试输出 (“替换后请求体” + 替换后请求体)
延时 (100)
调试输出 (“https://lp.open.weixin.qq.com/wxaruntime/qrconnect?uuid=” + uuid号 + “&last=-1”)
返回内容 = 到文本 (网页_访问_对象 (“https://lp.open.weixin.qq.com/wxaruntime/qrconnect?uuid=” + uuid号 + “&last=-1 ”, 0, , , , #常量2))
调试输出 (“返回内容33” + 返回内容)
调试输出 (“返回协议头33” + 返回协议头)
调试输出 (返回代码)
返回内容1 = 网页_访问_对象 (“https://open.weixin.qq.com/wxaru ... 3bec58ff09376a833ae ”, 1, , , , #协议头6, , , , 到字节集 (替换后请求体))
返回内容编码 = 到文本 (编码_BASE64编码 (返回内容1))
图片框1.图片 = 编码_BASE64解码 (到文本 (返回内容编码))
|
|