发卡平台实现自助充值自动到账源码

置随机数种子 ()
用户名 ＝ 到文本 (取随机数 (100000000, 999999999))
源代码 ＝ 到文本 (编码_Utf8到Ansi (网页_访问 (“http://vip.********.com/purchase/submit”, 1, “goodInfoId=16313&quantity=1&contact=” ＋ 用户名 ＋ “&pwdForTack=&pwdForBuy=¬ice_email=on&email=525737655%40qq.com&coupon=&payType=saomapay&payPlat_sm=WEIXIN&payPlat_bk=ABC_NET”)))
sign ＝ 文本_取出中间文本 (源代码, #常量11, #常量22)
金额 ＝ 文本_取出中间文本 (源代码, “金额为”, “元”)
时间截 ＝ 文本_取出中间文本 (源代码, #常量33, #常量22)
订单编号 ＝ 文本_取出中间文本 (源代码, #常量44, #常量55)
延迟 (360)
付款加密数据 ＝ “quantity=1&trade_amount=” ＋ 金额 ＋ “&contact=525737655&sign=” ＋ sign ＋ “&isWechatPay=false&order_time=” ＋ 时间截 ＋ “&order_id=” ＋ 订单编号
微信代码 ＝ 到文本 (编码_Utf8到Ansi (网页_访问 (“http://vip.********.com/purchase/pay”, 1, 付款加密数据)))
微信二维码地址 ＝ “data” ＋ 文本_取出中间文本 (微信代码, #常量66, #常量77)
.如果 (微信二维码地址 ≠ “data”)
aaa ＝ 编码_BASE64解码 (子文本替换 (微信二维码地址, “data:image/png;base64,”, “”, , , 真), )
图片框1.图片 ＝ aaa
.否则
信息框 (“妈的 二维码换了”, 0, , )
微信二维码地址 ＝ “http://vip.********.com/buy/” ＋ 文本_取出中间文本 (微信代码, #常量88, #常量99)