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

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 String
    Dim 帐号 As String
    Dim 私钥 As String
    服务器 = "https://openapi.alipaydev.com/gateway.do" '沙箱模式服务器     服务器 = "https://openapi.alipay.com/gateway.do" '真实模式服务器
    帐号 = Text3.Text
    私钥 = Text4.Text
    
    Dim 请求状态 As Boolean
    请求状态 = 初始化(服务器, 帐号, 私钥)
    If 请求状态 Then
       
       List1.AddItem "初始化成功"
    Else
        List1.AddItem "初始化失败"
    End If
End Sub
Private Sub Command2_Click()
    Dim 返回信息 As String
    Dim 请求状态 As Boolean
    '存放变量 设置足够的缓冲区
    返回信息 = Space$(100000)
    
    Dim 订单号 As String
    订单号 = Text2.Text
    请求状态 = 支付(订单号, Text5.Text, Text6.Text, 返回信息)
    If 请求状态 Then
        List1.AddItem 返回信息
        List1.AddItem (json解析(返回信息, "alipay_trade_precreate_response.qr_code"))
        刷新二维码 (json解析(返回信息, "alipay_trade_precreate_response.qr_code"))
    Else
        List1.AddItem "支付请求失败"
    End If
    返回信息 = ""
    Text1.Text = 订单号
End Sub
Private Sub Command3_Click()
    Dim 返回信息 As String
    Dim 请求状态 As Boolean
    '存放变量 设置足够的缓冲区
    返回信息 = Space$(100000)
       
    Dim 订单号 As String
    订单号 = Text1.Text
    请求状态 = 查询(订单号, 返回信息)
    If 请求状态 Then
       
       List1.AddItem 返回信息
    Else
        List1.AddItem "查询请求失败"
    End If
    
    返回信息 = ""
End Sub
Private Sub Command4_Click()
    Dim 返回信息 As String
    Dim 请求状态 As Boolean
    '存放变量 设置足够的缓冲区
    返回信息 = Space$(100000)
    Dim 订单号 As String
    订单号 = Text1.Text
    
    请求状态 = 关闭(订单号, 返回信息)
    
    If 请求状态 Then
        
        List1.AddItem 返回信息
    Else
        List1.AddItem "关闭订单请求失败"
    End If
    
    返回信息 = ""
End Sub


Private Function json解析(ByVal JsonStr As String, ByVal code As String) As String
    Dim ScriptObj As Object
    Set ScriptObj = CreateObject("MSScriptControl.ScriptControl")
    ScriptObj.Language = "JavaScript"
    ScriptObj.AddCode "var Json = " & JsonStr & ";"
    json解析 = ScriptObj.eval("Json." & code)
End Function

Private Function 刷新二维码(ByVal code As String) As String
   QRmaker1.InputData = code
End Function

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