麻烦老师看一下为什么这个代码执行了要报错,获取不到prepay_id
Dim jo As New JObject
jo("mchid") = 1488726918
jo("out_trade_no") = Rand.NextString(32)
jo("appid") = "wxa7154bc4751eddet"
jo("description") = "aabbcccceee"
jo("notify_url") = "http://5174p4o694.wicp.vip/wx_notifyurl.htm"
jo("amount") = New JObject
jo("amount")("total") = 1
jo("amount")("currency") = "CNY"
jo("payer") = New JObject
jo("payer")("openid") = "ofRouwuQCfP7X1CsOo9-a93Ozdrw"
Dim URL As String = "https://api.mch.weixin.qq.com/v3/pay/transactions/jsapi"
Dim hc As New HttpClient(URL)
hc.Content = jo.ToString()
jo = JObject.Parse(hc.GetData())
MessageBox.Show(jo.ToString)
[此贴子已经被作者于2022/12/16 16:46:21编辑过]