VB6 简单实现 支付宝二维码扫马支付

完整源码如下

Private Declare Function 初始化 Lib "alipay.dll" (ByVal 服务器 As String, ByVal 帐号 As String, ByVal 私钥 As String) As Boolean
Private Declare Function 支付 Lib "alipay.dll" (ByVal 订单号 As String, ByVal 金额 As String, ByVal 标题 As String, ByVal 返回信息 As String) As Boolean
Private Declare Function 查询 Lib "alipay.dll" (ByVal 订单号 As String, ByVal 返回信息 As String) As Boolean
Private Declare Function 关闭 Lib "alipay.dll" (ByVal 订单号 As String, ByVal 返回信息 As String) As Boolean
Private Sub Command1_Click()Dim 服务器 As StringDim 帐号 As StringDim 私钥 As String服务器 = "https://openapi.alipaydev.com/gateway.do" '沙箱模式服务器     服务器 = "https://openapi.alipay.com/gateway.do" '真实模式服务器帐号 = Text3.Text私钥 = Text4.TextDim 请求状态 As Boolean请求状态 = 初始化(服务器, 帐号, 私钥)If 请求状态 ThenList1.AddItem "初始化成功"ElseList1.AddItem "初始化失败"End If
End Sub
Private Sub Command2_Click()Dim 返回信息 As StringDim 请求状态 As Boolean'存放变量 设置足够的缓冲区返回信息 = Space$(100000)Dim 订单号 As String订单号 = Text2.Text请求状态 = 支付(订单号, Text5.Text, Text6.Text, 返回信息)If 请求状态 ThenList1.AddItem 返回信息List1.AddItem (json解析(返回信息, "alipay_trade_precreate_response.qr_code"))刷新二维码 (json解析(返回信息, "alipay_trade_precreate_response.qr_code"))ElseList1.AddItem "支付请求失败"End If返回信息 = ""Text1.Text = 订单号
End Sub
Private Sub Command3_Click()Dim 返回信息 As StringDim 请求状态 As Boolean'存放变量 设置足够的缓冲区返回信息 = Space$(100000)Dim 订单号 As String订单号 = Text1.Text请求状态 = 查询(订单号, 返回信息)If 请求状态 ThenList1.AddItem 返回信息ElseList1.AddItem "查询请求失败"End If返回信息 = ""
End Sub
Private Sub Command4_Click()Dim 返回信息 As StringDim 请求状态 As Boolean'存放变量 设置足够的缓冲区返回信息 = Space$(100000)Dim 订单号 As String订单号 = Text1.Text请求状态 = 关闭(订单号, 返回信息)If 请求状态 ThenList1.AddItem 返回信息ElseList1.AddItem "关闭订单请求失败"End If返回信息 = ""
End SubPrivate Function json解析(ByVal JsonStr As String, ByVal code As String) As StringDim ScriptObj As ObjectSet ScriptObj = CreateObject("MSScriptControl.ScriptControl")ScriptObj.Language = "JavaScript"ScriptObj.AddCode "var Json = " & JsonStr & ";"json解析 = ScriptObj.eval("Json." & code)
End FunctionPrivate Function 刷新二维码(ByVal code As String) As StringQRmaker1.InputData = code
End Function

小菜逼 的一个项目 , 大神不要见笑
其实这个就是一个 vb6 调用dll 的一个案例 .可惜文章无法上传附件 ,需用用到的alipay.dll库,没法分享,如果哪个小伙伴需要的可以私信给我,或者关注我 公众号 : Ctp接口量化