Foxtable(狐表)用户栏目专家坐堂 → 支付宝支付


  共有1472人关注过本帖树形打印复制链接

主题:支付宝支付

帅哥哟,离线,有人找我吗?
wandongliang
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:414 积分:3576 威望:0 精华:0 注册:2016/1/1 20:20:00
支付宝支付  发帖心情 Post By:2019/8/22 12:21:00 [只看该作者]

按照蓝老师的指导,我将AOPSDK.dll引用到foxtable,然后按照支付宝文档调用API指引,将.NET代码,改为vb语言。
以下是现代码,为何运行之后没有任何反应?手机上也没有收到付款提示?
Dim auth_code As String = args(0) '扫描枪扫码后获取的授权码
Dim productId As String = args(1) '订单ID
Dim total_fee As Integer = args(2) '支付金额
Dim client As Aop.Api.IAopClient = New Aop.Api.DefaultAopClient(Vars("alipay_url"),Vars("alipay_addid"),Vars("alipay_private key"), "json", "1.0", "RSA2",Vars("alipay_public key"), "GBK", False)
Dim tn As String = "MICROPAY"
Dim req As WxPayData = Functions.Execute("GetWxPayData")
Dim dr As DataRow = DataTables(tn).Find("product_id='" & productId  & "'")
Dim out_trade_no As String = req.GenerateOutTradeNo()
Dim scene As String = "bar_code"
Dim subject As String = "Smile邻间线下支付"
Dim total_amount As Double = total_fee/100
Dim body As String ="欢迎光临"
Dim store_id As String = "天行超市"
dr("out_trade_no") = out_trade_no
dr("total_fee") = total_fee
Dim request As Aop.Api.Request.AlipayTradePayRequest = New Aop.Api.Request.AlipayTradePayRequest()
Dim jo As New JObject
jo("out_trade_no") = req.GenerateOutTradeNo()
jo("scene") = "bar_code"
jo("auth_code") = auth_code
jo("subject") = subject
jo("total_amount") = "0.50"
jo("body") = body
jo("store_id") = store_id
request.BizContent = jo.ToString
Dim response As Aop.Api.Response.AlipayTradePayResponse = client.execute(request)
MessageBox.Show(response.ReceiptAmount)

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105479 积分:536386 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/22 13:44:00 [只看该作者]

现在没有环境测试,请自行核对官方开发文档的返回结果,分析是什么原因

 回到顶部
帅哥哟,离线,有人找我吗?
wandongliang
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:414 积分:3576 威望:0 精华:0 注册:2016/1/1 20:20:00
  发帖心情 Post By:2019/8/22 15:57:00 [只看该作者]

已解决,感谢蓝老师的指导

 回到顶部