支付宝收款自动发卡源码二次开发

第一步，去申请三方收款，等审核通过
第二步，买个云服务器安全组开配置，源码里替换ip完成。

.如果 (寻找文本 (编辑框5.内容, a [2], , 假) ＝ -1)
文本_取中间_批量 (str, #支付数据左, #支付数据右, 数据)
.计次循环首 (取数组成员数 (数据), i)
订单 ＝ 数据 [i]
.如果真 (寻找文本 (订单, a [2], , 假) ≠ -1)
编辑框4.加入文本 (#换行符 ＋ 时间_格式化 (取现行时间 (), “yyyy/MM/dd”, ) ＋ “-” ＋ 时间_格式化 (取现行时间 (), , “HH:mm:ss”) ＋ “----” ＋ “找到订单”)
编辑框5.加入文本 (#换行符 ＋ a [2])
写到文件 (取运行目录 () ＋ “\已经使用订单号.txt”, 到字节集 (到文本 (读入文件 (取运行目录 () ＋ “\已经使用订单号.txt”)) ＋ a [2] ＋ #换行符))
输出调试文本 (订单)
跳出循环 ()
.如果真结束

.计次循环尾 ()
str ＝ 文本_取出中间文本 (订单, #金额左, #金额右)
输出调试文本 (str)
.如果真 (str ＝ “”) ' 如果连接不到就告诉客户，服务器连不上，下面是服务器发送给客户失败，就给自己提示
.如果真 (取反 (服务器1.发送数据 (客户ip, “服务器连接失败，充值未成功”, )))
信息框 (“服务器给客户发送数据失败”, 0, , )
.如果真结束
返回 ()
.如果真结束
' 开始发货
str ＝ 到文本 (绝对取整 (到数值 (str) ÷ 到数值 (编辑框6.内容)))
输出调试文本 (str)
.计次循环首 (到整数 (str), i1)
str ＝ str ＋ 超级列表框2.取标题 (0, 1) ＋ “----” ＋ 超级列表框2.取标题 (0, 2) ＋ #换行符
输出调试文本 (str)
写到文件 (取运行目录 () ＋ “\已出售账号.txt”, 到字节集 (到文本 (读入文件 (取运行目录 () ＋ “\已出售账号.txt”)) ＋ 时间_格式化 (取现行时间 (), “yyyy/MM/dd”, ) ＋ “-” ＋ 时间_格式化 (取现行时间 (), , “HH:mm:ss”) ＋ “----” ＋ 超级列表框2.取标题 (0, 1) ＋ “----” ＋ 超级列表框2.取标题 (0, 2) ＋ #换行符))
_删除_被选择 ()
.计次循环尾 ()
.如果 (str ＝ “”)
.如果真 (取反 (服务器1.发送数据 (客户ip, “服务器连接失败，充值未成功”, )))
信息框 (“服务器给客户发送数据失败”, 0, , )
.如果真结束

.否则
.如果真 (取反 (服务器1.发送数据 (客户ip, str, )))
信息框 (“服务器给客户发送数据失败”, 0, , )
.如果真结束

.如果结束

.否则
.如果真 (取反 (服务器1.发送数据 (客户ip, “订单号已经使用过”, )))
信息框 (“服务器给客户发送数据失败”, 0, , )