.版本 2
.支持库 EThread
.程序集 窗口程序集_启动窗口
.程序集变量 源码, 文本型
.子程序 __启动窗口_创建完毕
' 调试输出 (网页_访问S (“//vip.953ka.cn/Gateway/RequestTo”, 1, “userid=3WT1&bill=&token=&cardNoLength=%E8%AF%B7%E9%87%8D%E6%96%B0%E6%8F%90%E4%BA%A4%E8%AE%A2%E5%8D%95&cardPwdLength=&isagree=true&cateid=978330&goodid=2121695&is_discount=0&coupon_ctype=0&coupon_value=0&paymoney=1.00&danjia=1&quantity=4&kucun=4&contact=111111&email=&couponcode=&paytype=bank&pid=85&cardquantity=1&cardvalue%5B%5D=&cardnum%5B%5D=&cardpwd%5B%5D=”))
.子程序 _按钮1_被单击
源码 = 网页_访问S (编辑框1.内容)
启动线程 (&获取分类, , )
.子程序 获取分类
.局部变量 正则, 正则表达式类
.局部变量 c, 整数型
' 调试输出 (源码)
正则.创建 (#常量1, 源码)
.计次循环首 (正则.取匹配数量 (), c)
组合框1.插入项目 (c - 1, “id:” + 正则.取子匹配文本 (c, 2) + “ ” + 正则.取子匹配文本 (c, 3), )
.计次循环尾 ()
组合框1.现行选中项 = 0
启动线程 (&获取商品, , )
.子程序 获取商品
.局部变量 正则, 正则表达式类
.局部变量 c, 整数型
' 调试输出 (源码)
正则.创建 (#常量2, 源码)
.计次循环首 (正则.取匹配数量 (), c)
组合框2.插入项目 (c - 1, “id:” + 正则.取子匹配文本 (c, 2) + “ ” + 正则.取子匹配文本 (c, 3), )
.计次循环尾 ()
组合框2.现行选中项 = 0
.子程序 _按钮2_被单击
启动线程 (&子程序1, , )
.子程序 子程序1
.局部变量 微信二维码, 文本型
微信二维码 = “//vip.953ka.cn/QRCode/pay?data=” + 文本_取出中间文本 (网页_访问S (“//vip.953ka.cn/Gateway/RequestTo”, 1, “userid=3WT1&bill=&token=&cardNoLength=%E8%AF%B7%E9%87%8D%E6%96%B0%E6%8F%90%E4%BA%A4%E8%AE%A2%E5%8D%95&cardPwdLength=&isagree=true&cateid=” + 文本_取出中间文本 (组合框1.取项目文本 (组合框1.现行选中项), “id:”, “ ”) + “&goodid=” + 文本_取出中间文本 (组合框2.取项目文本 (组合框2.现行选中项), “id:”, “ ”) + “&is_discount=0&coupon_ctype=0&coupon_value=0&paymoney=1.00&danjia=1&quantity=1&kucun=1&contact=111111&email=&couponcode=&paytype=bank&pid=85&cardquantity=1&cardvalue%5B%5D=&cardnum%5B%5D=&cardpwd%5B%5D=”), “//vip.953ka.cn/QRCode/pay?data=”, #常量3)
图片框1.图片 = 网页_访问 (微信二维码)
启动线程 (&子程序2, , )
.子程序 子程序2
.局部变量 支付宝二维码, 文本型
支付宝二维码 = 子文本替换 (“https://tzyee.com/Pay.aspx” + 文本_取出中间文本 (网页_访问S (“//vip.953ka.cn/Gateway/RequestTo”, 1, “userid=3WT1&bill=&token=&cardNoLength=%E8%AF%B7%E9%87%8D%E6%96%B0%E6%8F%90%E4%BA%A4%E8%AE%A2%E5%8D%95&cardPwdLength=&isagree=true&cateid=” + 文本_取出中间文本 (组合框1.取项目文本 (组合框1.现行选中项), “id:”, “ ”) + “&goodid=” + 文本_取出中间文本 (组合框2.取项目文本 (组合框2.现行选中项), “id:”, “ ”) + “&is_discount=0&coupon_ctype=0&coupon_value=0&paymoney=1.00&danjia=1&quantity=1&kucun=4&contact=111111&email=&couponcode=&paytype=bank&pid=96&cardquantity=1&cardvalue%5B%5D=&cardnum%5B%5D=&cardpwd%5B%5D=”), #常量4, #引号), “amp;”, “”, , , 真)
图片框2.图片 = 网页_访问 (“https://pay.swiftpass.cn/pay/qrcode?uuid=” + 文本_取出中间文本 (网页_访问S (支付宝二维码), #常量5, #常量6))