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)
老师,这句如何改才可以获取到返回的所有信息?
https://opendocs.alipay.com/open/1f1fe18c_alipay.trade.pay?scene=32&pathHash=29c9a9ba
[此贴子已经被作者于2024/4/23 8:52:11编辑过]
加好友 
发短信
Post By：2024/4/23 8:48:00 [显示全部帖子]
