利用文档和某支fu接口做的发卡软件

白天很傻很天真

小熊君 发表于 2020-12-16 16:26
现在论坛里的有些人啊，该学的东西它不学。就会干点损人不利己的。

说的真好，他这个能随便给搞了，用来做验证，不是也能随便让人搞？这样有什么意义

小熊君

tengfei666 发表于 2020-12-16 10:26
被人搞了 等我直接发源码吧

现在论坛里的有些人啊，该学的东西它不学。就会干点损人不利己的。

外星星人

支持一下下

tengfei666

月恒 发表于 2020-12-16 10:16
数据库错误，请联系作者!   。。演示不了咋弄

被人搞了 等我直接发源码吧

tengfei666

.版本 2 .支持库 spec .支持库 HtmlView  .程序集 总程序  .子程序 服务器初始化 .局部变量 商品名数组, 文本型, , "0" .局部变量 json, 类_json .局部变量 i, 整数型 .局部变量 商品价格数组, 文本型, , "0"   全_返回值 ＝ 编码_URL解码 (到文本 (网页_访问S (“https://wds.ecsxs.com/10157.html”, , , , , , , , , , , , , , , , , , , , )), 真) 调试输出 (全_返回值)  json.解析 (全_返回值)  .判断开始 (json.取通用属性 (“商品名”, ) ≠ “” 且 json.取通用属性 (“商品价格”, ) ≠ “”)     log (“软件初始化成功......”)     log (“加载商品中......”)     商品名数组 ＝ 分割文本 (json.取通用属性 (“商品名”, ), “，”, )  ' 分割商品名     商品价格数组 ＝ 分割文本 (json.取通用属性 (“商品价格”, ), “，”, )     .计次循环首 (取数组成员数 (商品名数组), i)         _启动窗口.组合框1.插入项目 (0, “商品名：” ＋ 商品名数组 [i] ＋ “  商品价格：” ＋ 商品价格数组 [i], )  ' 插入商品名和价格     .计次循环尾 ()     log (“加载商品成功......”)  .默认     信息框 (“数据库错误，请联系作者!”, 0, , ) .判断结束   .子程序 生成购买页面 .局部变量 json, 类_json .局部变量 购买价格数组, 文本型, , "0"  全_返回值 ＝ 编码_URL解码 (到文本 (网页_访问S (“https://wds.ecsxs.com/10157.html”, , , , , , , , , , , , , , , , , , , , )), 真) 调试输出 (全_返回值)  json.解析 (全_返回值)  .判断开始 (全_返回值 ≠ “”)     码支付ID ＝ json.取通用属性 (“码支付ID”, )     码支付token ＝ json.取通用属性 (“码支付TOKEN”, )  ' 这里建议大家加密一下防小人     调试输出 (码支付ID, 码支付token)     .判断开始 (码支付ID ≠ “” 且 码支付token ≠ “”)         log (“正在生成付款页面......”)          _启动窗口.超文本浏览框1.可视 ＝ 真          _启动窗口.超文本浏览框1.地址 ＝ “http://api2.xiuxiu888.com/creat_order?id=” ＋ 码支付ID ＋ “&token=” ＋ 码支付token ＋ “&&price=” ＋ 文本_取右边 (_启动窗口.组合框1.内容, “价格：”, , ) ＋ “&pay_id=shoumairuanjian&type=1”  ' 加载付款页面         log (“生成付款页面成功......”)     .默认          信息框 (“数据库错误，请联系作者!”, 0, , )     .判断结束      .默认     信息框 (“数据库错误，请联系作者!”, 0, , ) .判断结束   .子程序 检测状态 .局部变量 i, 整数型  普通填表.初始化 (_启动窗口.超文本浏览框1.取窗口句柄 ()) log (“开始检测付款状态”) .计次循环首 (30, i)     .如果真 (普通填表.就绪判断_文本关键字 (_启动窗口.超文本浏览框1.取窗口句柄 (), “ 支付成功”, , ) ＝ 真)         log (“付款成功!”)         跳出循环 ()     .如果真结束     log (“付款状态：未付款”)     延迟 (1500) .计次循环尾 ()   .子程序 log .参数 内容, 文本型  _启动窗口.编辑框1.加入文本 (时间_到文本 (, 1, 3) ＋ 内容 ＋ #换行符)   .子程序 发货 .局部变量 json, 类_json .局部变量 库存, 文本型, , "0" .局部变量 新库存, 文本型 .局部变量 cookies, 文本型  log (“正在发货”) 全_返回值 ＝ 编码_URL解码 (到文本 (网页_访问S (“https://wds.ecsxs.com/10157.html”, , , , , , , , , , , , , , , , , , , , )), 真) 调试输出 (全_返回值)  json.解析 (全_返回值)   全_返回值 ＝ 编码_URL解码 (到文本 (网页_访问S (json.取通用属性 (“商品库存url”, ), , , , , , , , , , , , , , , , , , , , )), 真) 调试输出 (全_返回值)  库存 ＝ 分割文本 (全_返回值, “，”, ) log (“您的卡密为：” ＋ 库存 [1])  新库存 ＝ 文本_替换 (全_返回值, , , , 库存 [1] ＋ “，”, “”, , , , , , , , ) 调试输出 (新库存)  调试输出 (json.取通用属性 (“云储cookies”, ))   全_返回值 ＝ 编码_URL解码 (到文本 (网页_访问_对象 (“https://wd.cn.ecsxs.com/php/login.php”, 1, json.取通用属性 (“云储账号密码”, ), , cookies, #常量2, , , , , , , , , , , , , )), 真) 调试输出 (全_返回值)   全_返回值 ＝ 编码_URL解码 (到文本 (网页_访问_对象 (“https://wd.cn.ecsxs.com/php/update.php”, 1, “title=库存&content=” ＋ 新库存 ＋ “&html=1&hide=0&password=&id=10156”, cookies, , #常量1, , , , , , , , , , , , , )), 真)  ' 上面这个title=后面的库存 你们把库存放在哪个文档就填那个 调试输出 (全_返回值) log (“发货成功”)

一曲长歌入冬流

#在这里快速回复##在这里快速回复##在这里快速回复#

月恒

数据库错误，请联系作者!   。。演示不了咋弄

月恒

软件提示：数据库错误，请联系作者!。

happyweeks365

tengfei666 发表于 2020-12-16 02:24
附件忘记上传了从这里下载吧

大佬 请详细说明文档怎么建？我有https://wds.ecsxs.com/

tengfei666

附件忘记上传了从这里下载吧