917发卡网商品购买二维码生成源码

.版本 2
.支持库 EThread

.程序集 窗口程序集_启动窗口
.程序集变量 源码, 文本型

.子程序 __启动窗口_创建完毕

' 调试输出 (网页_访问S (“http://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
.局部变量 微信二维码, 文本型

微信二维码 ＝ “http://vip.953ka.cn/QRCode/pay?data=” ＋ 文本_取出中间文本 (网页_访问S (“http://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=”), “http://vip.953ka.cn/QRCode/pay?data=”, #常量3)
图片框1.图片 ＝ 网页_访问 (微信二维码)
启动线程 (&子程序2, , )

.子程序 子程序2
.局部变量 支付宝二维码, 文本型

支付宝二维码 ＝ 子文本替换 (“https://tzyee.com/Pay.aspx” ＋ 文本_取出中间文本 (网页_访问S (“http://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))

@皮蛋皮蛋