wb.AddPageTitle("","ph1","微信收款","请客户扫描下面二维码付款")
With wb.AddArticle("","ar1")
Dim openid As String = "" '设置用户标识
Dim product_id As String = "GDBH20190001" '设置商品ID
Dim trade_type As String = "NATIVE" '设置交易类型
Dim total_fee As Integer = 1 '设置标价金额
'统一下单
Dim xmlres = Functions.Execute("api_UnifiedOrder",openid,product_id,trade_type,total_fee)
If xmlres Then
Dim dr As DataRow = DataTables("微信支付").Find("product_id='" & product_id & "'")
If dr IsNot Nothing Then
.AddImage(Functions.Execute("MakeQRCode",dr("code_url")),"style='width:200px;height:200px'")
Else
.AddTitle("h1","不存在此订单,无法生成二维码")
End If
Else
.AddTitle("h1","扫码支付模式二统一下单失败,无法生成二维码")
End If
End With
加好友 
发短信
Post By：2019/7/21 1:43:00 [只看该作者]
