VB.net开发微信、支付宝扫码支付源码

已于 2022-03-30 14:49:01 修改
阅读量2k 收藏 6
点赞数 1
分类专栏： 扫码支付 文章标签： Vb.net微信支付 Vb.net支付宝 Vb.net扫码支付 QQ954486673 vx13822155058
于 2022-03-09 11:34:01 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/zhangjin7422/article/details/123373388
版权

扫码消费机介绍：https://item.taobao.com/item.htm?spm=a1z10.1-c.w4004-21914722028.2.2b826baawDkx32&id=17021194999https://item.taobao.com/item.htm?spm=a1z10.1-c.w4004-21914722028.2.2b826baawDkx32&id=17021194999 

Imports System.Runtime.InteropServices
Public Class Form1
    Private Declare Function StrAddStr Lib "PayApiFun.dll" (ByVal inputstr As String, ByRef outinf As IntPtr) As Integer
    '微信支付函数，第一代账号要加密后才能调用
    Private Declare Function WeiXinPayCodeEx1 Lib "PayApiFun.dll" (ByVal Lockappid As String, ByVal Lockmchid As String, ByVal Idkey As String, ByVal IdkeyLock As Integer, ByVal AuthCode As String, ByVal OrdNum As String, ByVal TotalFee As String, ByVal inbody As String, ByRef outinf As IntPtr) As Integer
    Private Declare Function WeiXinPayQRCodeEx1 Lib "PayApiFun.dll" (ByVal Lockappid As String, ByVal Lockmchid As String, ByVal Idkey As String, ByVal IdkeyLock As Integer, ByVal OrdNum As String, ByVal TotalFee As String, ByVal inbody As String, ByRef outinf As IntPtr) As Integer
    Private Declare Function WeiXinQueryEx1 Lib "PayApiFun.dll" (ByVal Lockappid As String, ByVal Lockmchid As String, ByVal Idkey As String, ByVal IdkeyLock As Integer, ByVal OrdNum As String, ByRef outinf As IntPtr) As Integer
    Private Declare Function WeiXinCloseOrderEx1 Lib "PayApiFun.dll" (ByVal Lockappid As String, ByVal Lockmchid As String, ByVal Idkey As String, ByVal IdkeyLock As Integer, ByVal OrdNum As String, ByRef outinf As IntPtr) As Integer
    '微信支付函数，第二代
    Private Declare Function WeiXinPayCodeEx2 Lib "PayApiFun.dll" (ByVal appid As String, ByVal mchid As String, ByVal registered As Integer, ByVal Idkey As String, ByVal IdkeyLock As Integer, ByVal AuthCode As String, ByVal OrdNum As String, ByVal TotalFee As String, ByVal inbody As String, ByRef outinf As IntPtr) As Integer
    Private Declare Function WeiXinPayQRCodeEx2 Lib "PayApiFun.dll" (ByVal appid As String, ByVal mchid As String, ByVal registered As Integer, ByVal Idkey As String, ByVal IdkeyLock As Integer, ByVal OrdNum As String, ByVal TotalFee As String, ByVal inbody As String, ByRef outinf As IntPtr) As Integer
    Private Declare Function WeiXinQueryEx2 Lib "PayApiFun.dll" (ByVal appid As String, ByVal mchid As String, ByVal registered As Integer, ByVal Idkey As String, ByVal IdkeyLock As Integer, ByVal OrdNum As String, ByRef outinf As IntPtr) As Integer
    Private Declare Function WeiXinCloseOrderEx2 Lib "PayApiFun.dll" (ByVal appid As String, ByVal mchid As String, ByVal registered As Integer, ByVal Idkey As String, ByVal IdkeyLock As Integer, ByVal OrdNum As String, ByRef outinf As IntPtr) As Integer
    '支付宝支付函数，第一代账号要加密后才能调用
    Private Declare Function ZhiFuBaoPayCodeEx1 Lib "PayApiFun.dll" (ByVal Lockappid As String, ByVal AuthCode As String, ByVal OrdNum As String, ByVal TotalFee As String, ByVal inbody As String, ByRef outinf As IntPtr) As Integer
    Private Declare Function ZhiFuBaoPayQRCodeEx1 Lib "PayApiFun.dll" (ByVal Lockappid As String, ByVal OrdNum As String, ByVal TotalFee As String, ByVal inbody As String, ByRef outinf As IntPtr) As Integer
    Private Declare Function ZhiFuBaoQueryEx1 Lib "PayApiFun.dll" (ByVal Lockappid As String, ByVal OrdNum As String, ByRef outinf As IntPtr) As Integer
    Private Declare Function ZhiFuBaoPayCancelEx1 Lib "PayApiFun.dll" (ByVal Lockappid As String, ByVal OrdNum As String, ByRef outinf As IntPtr) As Integer
    '支付宝支付函数，第二代
    Private Declare Function ZhiFuBaoPayCodeEx2 Lib "PayApiFun.dll" (ByVal appid As String, ByVal registered As Integer, ByVal AuthCode As String, ByVal OrdNum As String, ByVal TotalFee As String, ByVal inbody As String, ByRef outinf As IntPtr) As Integer
    Private Declare Function ZhiFuBaoPayQRCodeEx2 Lib "PayApiFun.dll" (ByVal appid As String, ByVal registered As Integer, ByVal OrdNum As String, ByVal TotalFee As String, ByVal inbody As String, ByRef outinf As IntPtr) As Integer
    Private Declare Function ZhiFuBaoQueryEx2 Lib "PayApiFun.dll" (ByVal appid As String, ByVal registered As Integer, ByVal OrdNum As String, ByRef outinf As IntPtr) As Integer
    Private Declare Function ZhiFuBaoPayCancelEx2 Lib "PayApiFun.dll" (ByVal appid As String, ByVal registered As Integer, ByVal OrdNum As String, ByRef outinf As IntPtr) As Integer

    Private Declare Function PQRCodeEx Lib "PayApiFun.dll" (ByVal QRCodeStr As String) As Integer

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox7.Text = Format(Now(), "yyyyMMddHHMMss") + "00001"
        PictureBox1.ImageLocation = Environment.CurrentDirectory + "\\QRCode.bmp"
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Trim(TextBox2.Text) = "" Then
            MsgBox("请输入要生成二维码的字符串信息！", vbCritical + vbOKOnly, "提示")
            TextBox2.Select()
            Exit Sub
        Else
            PQRCodeEx(Trim(TextBox2.Text))
            PictureBox1.ImageLocation = Environment.CurrentDirectory + "\\QRCode.bmp"
        End If

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim real As Integer
        Dim Lockappid As String
        Dim Lockmchid As String
        Dim Idkey As String
        Dim IdkeyLock As Integer
        Dim registered As Integer
        Dim OrdNum As String
        Dim outinf As IntPtr

        Lockappid = Trim(WXGZH.Text)                                    '微信公众号
        Lockmchid = Trim(WXSFH.Text)                                    '商户号
        If RadioButton3.Checked Then registered = 1 Else registered = 0 'registered = 1 公众号、商户号已加密授权   =0未加密授权

        Idkey = Trim(WXKey.Text)                                        'API密钥      
        If RadioButton2.Checked Then IdkeyLock = 1 Else IdkeyLock = 0 'IdkeyLock = 1 API密钥已加密 ，0未加密

        outinf = Marshal.AllocHGlobal(255)

        OrdNum = Trim(TextBox7.Text)
        If OrdNum = "" Then MsgBox("请输入商户号内的唯一订单编号！", vbCritical + vbOKOnly, "提示") : TextBox7.Select() : Exit Sub

        TextBox1.Text = ""

        Button4.Enabled = False
        Button4.Text = "正在查询中，请稍后..."
        Application.DoEvents()

        'real = WeiXinQueryEx1(Lockappid, Lockmchid, Idkey, IdkeyLock, OrdNum, outinf)                  '第一代函数
        real = WeiXinQueryEx2(Lockappid, Lockmchid, registered, Idkey, IdkeyLock, OrdNum, outinf)       '第二代函数

        Select Case real
            Case 0
                TextBox1.Text = "微信支付单号‘" + OrdNum + "’支付成功！API接口返回的信息：" + Marshal.PtrToStringAnsi(outinf).ToString()
            Case 1
                TextBox1.Text = "微信支付单号‘" + OrdNum + "’正在支付...,请稍后查询此单支付状态，API接口返回的信息：" + Marshal.PtrToStringAnsi(outinf).ToString()
            Case Else
                TextBox1.Text = "微信支付单号‘" + OrdNum + "’支付失败,API接口返回的信息：" + Marshal.PtrToStringAnsi(outinf).ToString()
        End Select

        Button4.Enabled = True
        Button4.Text = "查询微信订单状态 Ex1"
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim Lockappid As String
        Dim Lockmchid As String
        Dim Idkey As String
        Dim IdkeyLock As Integer
        Dim registered As Integer
        Dim TotalFee As String
        Dim inbody As String
        Dim OrdNum As String
        Dim outinf As IntPtr
        Dim real As Integer

        Lockappid = Trim(WXGZH.Text)                                    '微信公众号
        Lockmchid = Trim(WXSFH.Text)                                    '商户号
        If RadioButton3.Checked Then registered = 1 Else registered = 0 'registered = 1 公众号、商户号已加密授权   =0未加密授权

        Idkey = Trim(WXKey.Text)                                        'API密钥      
        If RadioButton2.Checked Then IdkeyLock = 1 Else IdkeyLock = 0 'IdkeyLock = 1 API密钥已加密 ，0未加密

        OrdNum = Trim(TextBox7.Text)
        TotalFee = Trim(TextBox8.Text)
        inbody = Trim(TextBox3.Text)
        outinf = Marshal.AllocHGlobal(255)

        TextBox1.Text = ""
        TextBox2.Text = ""

        If OrdNum = "" Then MsgBox("请输入商户号内的唯一订单编号！", vbCritical + vbOKOnly, "提示") : TextBox7.Select() : Exit Sub

        Button2.Enabled = False
        Button2.Text = "正在申请URL，请稍后..."
        Application.DoEvents()

        'real = WeiXinPayQRCodeEx1(Lockappid, Lockmchid, Idkey, IdkeyLock, OrdNum, TotalFee, inbody, outinf)                       '第一代函数
        real = WeiXinPayQRCodeEx2(Lockappid, Lockmchid, registered, Idkey, IdkeyLock, OrdNum, TotalFee, inbody, outinf)            '第二代函数

        Select Case real
            Case 0
                TextBox2.Text = Marshal.PtrToStringAnsi(outinf).ToString()
                TextBox1.Text = "微信支付单号‘" + OrdNum + "’支付二维码已经生成，有效时间为5分钟，可轮询调用‘查询微信订单状态’函数查询支付结果！"
                PictureBox1.ImageLocation = Environment.CurrentDirectory + "\\QRCode.bmp"
            Case 1
                TextBox1.Text = "微信支付单号‘" + OrdNum + "’正在申请支付二维码,API接口返回的信息：" + Marshal.PtrToStringAnsi(outinf).ToString()
            Case -10
                TextBox1.Text = "微信支付单号‘" + OrdNum + "’已返回URL，有效时间为5分钟，生成二维码时出现异常,API接口返回的信息：" + Marshal.PtrToStringAnsi(outinf).ToString()
                TextBox2.Text = Marshal.PtrToStringAnsi(outinf).ToString()
            Case Else
                TextBox1.Text = "微信支付单号‘" + OrdNum + "’申请支付URL失败,API接口返回的信息：" + Marshal.PtrToStringAnsi(outinf).ToString()
        End Select

        Button2.Enabled = True
        Button2.Text = "生成微信支付二维码 Ex1"
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim Lockappid As String
        Dim Lockmchid As String
        Dim Idkey As String
        Dim IdkeyLock As Integer
        Dim registered As Integer
        Dim TotalFee As String
        Dim OrdNum As String
        Dim AuthCode As String
        Dim inbody As String
        Dim outinf As IntPtr
        Dim real As Integer

        Lockappid = Trim(WXGZH.Text)                                    '微信公众号
        Lockmchid = Trim(WXSFH.Text)                                    '商户号
        If RadioButton3.Checked Then registered = 1 Else registered = 0 'registered = 1 公众号、商户号已加密授权   =0未加密授权

        Idkey = Trim(WXKey.Text)                                        'API密钥      
        If RadioButton2.Checked Then IdkeyLock = 1 Else IdkeyLock = 0 'IdkeyLock = 1 API密钥已加密 ，0未加密

        OrdNum = Trim(TextBox7.Text)
        TotalFee = Trim(TextBox8.Text)
        AuthCode = Trim(TextBox9.Text)
        inbody = Trim(TextBox3.Text)
        outinf = Marshal.AllocHGlobal(255)

        TextBox1.Text = ""
        TextBox2.Text = ""

        If OrdNum = "" Then MsgBox("请输入商户号内的唯一订单编号！", vbCritical + vbOKOnly, "提示") : TextBox7.Select() : Exit Sub
        If AuthCode = "" Then MsgBox("请扫描或输入18位微信付款码！", vbCritical + vbOKOnly, "提示") : TextBox9.Select() : Exit Sub

        Button3.Enabled = False
        Button3.Text = "正在支付中，请稍后..."
        Application.DoEvents()

        'real = WeiXinPayCodeEx1(Lockappid, Lockmchid, Idkey, IdkeyLock, AuthCode, OrdNum, TotalFee, inbody, outinf)               '第一代函数
        real = WeiXinPayCodeEx2(Lockappid, Lockmchid, registered, Idkey, IdkeyLock, AuthCode, OrdNum, TotalFee, inbody, outinf)    '第二代函数

        Select Case real
            Case 0
                TextBox1.Text = "微信支付单号‘" + OrdNum + "’支付成功！API接口返回的信息：" + Marshal.PtrToStringAnsi(outinf).ToString()
            Case 1
                TextBox1.Text = "微信支付单号‘" + OrdNum + "’正在支付...,请稍后查询此单支付状态，API接口返回的信息：" + Marshal.PtrToStringAnsi(outinf).ToString()
            Case Else
                TextBox1.Text = "微信支付单号‘" + OrdNum + "’支付失败,API接口返回的信息：" + Marshal.PtrToStringAnsi(outinf).ToString()
        End Select

        Button3.Enabled = True
        Button3.Text = "微信收付款码支付 Ex1"

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim Lockappid As String
        Dim registered As Integer
        Dim OrdNum As String
        Dim outinf As IntPtr
        Dim real As Integer

        Lockappid = Trim(ZFBappid.Text)                                 '支付宝APPID
        If RadioButton3.Checked Then registered = 1 Else registered = 0 'registered = 1 支付宝APPID已加密授权   =0未加密授权

        outinf = Marshal.AllocHGlobal(255)
        OrdNum = Trim(TextBox7.Text)
        If OrdNum = "" Then MsgBox("请输入商户号内的唯一订单编号！", vbCritical + vbOKOnly, "提示") : TextBox7.Select() : Exit Sub

        TextBox1.Text = ""
        Button5.Enabled = False
        Button5.Text = "正在查询中，请稍后..."
        Application.DoEvents()

        'real = ZhiFuBaoQueryEx1(Lockappid, OrdNum, outinf)               '第一代函数
        real = ZhiFuBaoQueryEx2(Lockappid, registered, OrdNum, outinf)    '第二代函数

        Select Case real
            Case 0
                TextBox1.Text = "支付宝支付单号‘" + OrdNum + "’支付成功！API接口返回的信息：" + Marshal.PtrToStringAnsi(outinf).ToString()
            Case 1
                TextBox1.Text = "支付宝支付单号‘" + OrdNum + "’正在支付...,请稍后查询此单支付状态，API接口返回的信息：" + Marshal.PtrToStringAnsi(outinf).ToString()
            Case Else
                TextBox1.Text = "支付宝支付单号‘" + OrdNum + "’支付失败,API接口返回的信息：" + Marshal.PtrToStringAnsi(outinf).ToString()
        End Select

        Button5.Enabled = True
        Button5.Text = "查询支付宝订单状态 Ex"

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Dim Lockappid As String
        Dim registered As Integer
        Dim TotalFee As String
        Dim OrdNum As String
        Dim AuthCode As String
        Dim inbody As String
        Dim outinf As IntPtr
        Dim real As Integer

        Lockappid = Trim(ZFBappid.Text)                                 '支付宝APPID
        If RadioButton3.Checked Then registered = 1 Else registered = 0 'registered = 1 支付宝APPID已加密授权   =0未加密授权

        OrdNum = Trim(TextBox7.Text)
        TotalFee = Format(CLng(TextBox8.Text) / 100, "0.00")            '单位为元，与微信单位不同，要注意
        AuthCode = Trim(TextBox9.Text)
        inbody = Trim(TextBox3.Text)
        outinf = Marshal.AllocHGlobal(255)

        TextBox1.Text = ""
        TextBox2.Text = ""

        If OrdNum = "" Then MsgBox("请输入商户号内的唯一订单编号！", vbCritical + vbOKOnly, "提示") : TextBox7.Select() : Exit Sub
        If AuthCode = "" Then MsgBox("请扫描或输入有效的支付宝付款码！", vbCritical + vbOKOnly, "提示") : TextBox9.Select() : Exit Sub

        Button6.Enabled = False
        Button6.Text = "正在支付中，请稍后..."
        Application.DoEvents()

        'real = ZhiFuBaoPayCodeEx1(Lockappid, AuthCode, OrdNum, TotalFee, inbody, outinf)                 '第一代函数
        real = ZhiFuBaoPayCodeEx2(Lockappid, registered, AuthCode, OrdNum, TotalFee, inbody, outinf)      '第二代函数

        Select Case real
            Case 0
                TextBox1.Text = "支付宝支付单号‘" + OrdNum + "’支付成功！API接口返回的信息：" + Marshal.PtrToStringAnsi(outinf).ToString()
            Case 1
                TextBox1.Text = "支付宝支付单号‘" + OrdNum + "’正在支付...,请稍后查询此单支付状态，API接口返回的信息：" + Marshal.PtrToStringAnsi(outinf).ToString()
            Case Else
                TextBox1.Text = "支付宝支付单号‘" + OrdNum + "’支付失败,API接口返回的信息：" + Marshal.PtrToStringAnsi(outinf).ToString()
        End Select

        Button6.Enabled = True
        Button6.Text = "支付宝付款码支付 Ex"

    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Dim Lockappid As String
        Dim registered As Integer
        Dim TotalFee As String
        Dim OrdNum As String
        Dim inbody As String
        Dim outinf As IntPtr
        Dim real As Integer

        Lockappid = Trim(ZFBappid.Text)                                 '支付宝APPID
        If RadioButton3.Checked Then registered = 1 Else registered = 0 'registered = 1 支付宝APPID已加密授权   =0未加密授权

        OrdNum = Trim(TextBox7.Text)
        TotalFee = Format(CLng(TextBox8.Text) / 100, "0.00")            '单位为元，与微信单位不同，要注意
        inbody = Trim(TextBox3.Text)
        outinf = Marshal.AllocHGlobal(255)

        TextBox1.Text = ""
        TextBox2.Text = ""

        If OrdNum = "" Then MsgBox("请输入商户号内的唯一订单编号！", vbCritical + vbOKOnly, "提示") : TextBox7.Select() : Exit Sub

        Button7.Enabled = False
        Button7.Text = "正在申请URL，请稍后..."
        Application.DoEvents()

        'real = ZhiFuBaoPayQRCodeEx1(Lockappid, OrdNum, TotalFee, inbody, outinf)              '第一代函数
        real = ZhiFuBaoPayQRCodeEx2(Lockappid, registered, OrdNum, TotalFee, inbody, outinf)   '第二代函数

        Select Case real
            Case 0
                TextBox2.Text = Marshal.PtrToStringAnsi(outinf).ToString()
                TextBox1.Text = "支付宝支付单号‘" + OrdNum + "’支付二维码已经生成，有效时间为5分钟，可轮询调用‘查询支付宝订单状态’函数查询支付结果！"
                PictureBox1.ImageLocation = Environment.CurrentDirectory + "\\QRCode.bmp"            
            Case Else
                TextBox1.Text = "支付宝支付单号‘" + OrdNum + "’申请支付URL失败,API接口返回的信息：" + Marshal.PtrToStringAnsi(outinf).ToString()
        End Select

        Button7.Enabled = True
        Button7.Text = "生成支付宝支付二维码 Ex"

    End Sub

    Private Sub TextBox9_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox9.KeyPress

    End Sub

    Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged

    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Panel1.Visible = True
    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs)
        Panel1.Visible = False
    End Sub

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        Dim real As Integer
        Dim Lockappid As String
        Dim Lockmchid As String
        Dim Idkey As String
        Dim IdkeyLock As Integer
        Dim registered As Integer
        Dim OrdNum As String
        Dim outinf As IntPtr

        Lockappid = Trim(WXGZH.Text)                                    '微信公众号
        Lockmchid = Trim(WXSFH.Text)                                    '商户号
        If RadioButton3.Checked Then registered = 1 Else registered = 0 'registered = 1 公众号、商户号已加密授权   =0未加密授权

        Idkey = Trim(WXKey.Text)                                        'API密钥      
        If RadioButton2.Checked Then IdkeyLock = 1 Else IdkeyLock = 0 'IdkeyLock = 1 API密钥已加密 ，0未加密

        outinf = Marshal.AllocHGlobal(255)

        OrdNum = Trim(TextBox7.Text)
        If OrdNum = "" Then MsgBox("请输入商户号内的唯一订单编号！", vbCritical + vbOKOnly, "提示") : TextBox7.Select() : Exit Sub

        TextBox1.Text = ""
        Button11.Enabled = False
        Button11.Text = "正在关闭微信订单..."
        Application.DoEvents()

        'real = WeiXinCloseOrderEx1(Lockappid, Lockmchid, Idkey, IdkeyLock, OrdNum, outinf)                   '第一代函数
        real = WeiXinCloseOrderEx2(Lockappid, Lockmchid, registered, Idkey, IdkeyLock, OrdNum, outinf)        '第二代函数

        Select Case real
            Case 0
                TextBox1.Text = "微信支付单号‘" + OrdNum + "’关闭成功！API接口返回的信息：" + Marshal.PtrToStringAnsi(outinf).ToString()
            Case Else
                TextBox1.Text = "微信支付单号‘" + OrdNum + "’关闭失败,API接口返回的信息：" + Marshal.PtrToStringAnsi(outinf).ToString()
        End Select

        Button11.Enabled = True
        Button11.Text = "关闭未支付的微信订单 Ex1"
    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        Dim Lockappid As String
        Dim registered As Integer
        Dim OrdNum As String
        Dim outinf As IntPtr
        Dim real As Integer

        Lockappid = Trim(ZFBappid.Text)                                 '支付宝APPID
        If RadioButton3.Checked Then registered = 1 Else registered = 0 'registered = 1 支付宝APPID已加密授权   =0未加密授权

        outinf = Marshal.AllocHGlobal(255)
        OrdNum = Trim(TextBox7.Text)
        If OrdNum = "" Then MsgBox("请输入商户号内的唯一订单编号！", vbCritical + vbOKOnly, "提示") : TextBox7.Select() : Exit Sub

        TextBox1.Text = ""
        Button10.Enabled = False
        Button10.Text = "正在撒销支付宝订单..."
        Application.DoEvents()

        'real = ZhiFuBaoPayCancelEx1(Lockappid, OrdNum, outinf)                 '第一代函数
        real = ZhiFuBaoPayCancelEx2(Lockappid, registered, OrdNum, outinf)      '第二代函数

        Select Case real
            Case 0
                TextBox1.Text = "支付宝支付单号‘" + OrdNum + "’还未支付，已撒销成功！API接口返回的信息：" + Marshal.PtrToStringAnsi(outinf).ToString()
            Case 1
                TextBox1.Text = "支付宝支付单号‘" + OrdNum + "’撒销成功！已触发退款动作。API接口返回的信息：" + Marshal.PtrToStringAnsi(outinf).ToString()
            Case Else
                TextBox1.Text = "支付宝支付单号‘" + OrdNum + "’撒销失败！API接口返回的信息：" + Marshal.PtrToStringAnsi(outinf).ToString()
        End Select

        Button10.Enabled = True
        Button10.Text = "撤销支付宝支付订单 Ex1"
    End Sub

    Private Sub Button9_Click_1(sender As Object, e As EventArgs) Handles Button9.Click
        Panel1.Visible = False
    End Sub
End Class

源码下载：VB.net微信、支付宝扫码支付源码.rar_vb.net扫码支付-VB文档类资源-CSDN下载Vb.net开发的微信、支付宝支付源代码，无需域名，只需输入微信公众号、微信商户号、微信API密钥；vb.net扫码支付更多下载资源、学习资料请访问CSDN下载频道.https://download.csdn.net/download/zhangjin7422/14947161 

vx_13822155058
关注
专栏目录
vb6.0微信支付
09-09
vb6.0微信支付的实例，实测过，好用。 大家可以下载哦
vb6开发支付宝、微信支付
zhangjin7422的专栏
01-27 2798
vb6调DLL函数发起微信、支付宝支付源代码，无需域名，只需输入微信公众号、微信商户号、微信API密钥；支付宝APPID 、支付宝验签密钥文件就可以完成以下微信、支付宝支付。 1、生成微信支付二维码Native支付； 2、扫微信钱包内的“付款码”直接完成支付; 3、根据微信支付订单号查询支付状态； 4、关闭已生成但还未支付的订单； 5、生成支付宝支付二维码扫码支付； 6、扫支付宝钱包内的“付款码”直接完成支付; 7、根据支付宝支付订单号查询支付状态； 8、撤销已生成的支付订单并完成退款。
VB.NET微信扫码支付功能实现方法，支付后解锁高级功能
最新发布
weixin_43400125的博客
07-11 370
用户在使用某软件的部分高级功能时，需要支付相关的费用才能继续使用。当触发使用该高级功能时，先弹出支付页面（微信或者支付宝二维码），用户通过扫码进行支付，支付成功后，高级功能解锁。
改写c#支付宝接口程序为vb.net
zss1100（打你鸟鸟头）的专栏
01-14 1523
曾经为没有vb.net版支付宝接口程序郁闷过很长一段时间，终于忍不住修改 了一下其主要的3个文件修改为vb.net很容易，不再给出，只给出接口代码： Private Sub ImageButton1_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles Image
VB.net微信、支付宝扫码支付源码.rar
01-28
Vb.net开发的微信、支付宝支付源代码，无需域名，只需输入微信公众号、微信商户号、微信API密钥；支付宝APPID 、支付宝验签密钥文件；订单编号、支付金额，就可以完成以下微信、支付宝支付。 1、生成微信支付二维码Native支付； 2、扫微信钱包内的“付款码”直接完成支付; 3、根据微信支付订单号查询支付状态； 4、关闭已生成但还未支付的订单； 5、生成支付宝支付二维码扫码支付； 6、扫支付宝钱包内的“付款码”直接完成支付; 7、根据支付宝支付订单号查询支付状态； 8、撤销已生成的支付订单并完成退款。
.Net 微信开发与微信支付
dengyanxi2992的博客
09-22 190
.NET https://github.com/JeffreySu/WeiXinMPSDK JAVA http://git.oschina.net/pyinjava/fastweixin NodeJS https://github.com/node-weixin/node-weixin-api Pyt...
vb6支付宝、微信扫码收款软件源码.rar
04-07
VB6开发的微信、支付宝支付源代码，无需域名，只需输入微信公众号、微信商户号、微信API密钥；支付宝APPID 、支付宝验签密钥文件就可以完成以下微信、支付宝支付。 1、生成微信支付二维码Native支付； 2、扫微信钱包...
VB.NET 开发程序【学校信息系统源码.zip】.zip
06-12
VB.NET 开发程序【学校信息系统源码.zip】.zip VB.NET 开发程序【学校信息系统源码.zip】.zip 陈表达SQL server开发程序案例：VB.NET 开发程序【学校信息系统exe.zip】 本程序应用技术：1、SQL自定义函数，减少每次...
VB6微信支付&支付宝支付到个人账户源代码
08-29
"VB6微信支付&支付宝支付到个人账户源代码"这个资源提供了在VB6环境中实现微信支付和支付宝支付功能的源代码，这对于那些希望在自己的应用程序中集成这两种主流支付方式的开发者来说非常有价值。 微信支付是腾讯...
vb.net 微信开发 token 验证 & 实现订阅号 调用 图灵机器人文字处理回复 连接SQL
04-09
vb.net 微信开发 token 验证 & 实现订阅号 调用 图灵机器人文字处理回复 连接SQL 欢迎更多技术交流 如有问题 请不吝指出！
vb.net2010二维码开发生成源码，无缝支持中文
01-11
vb.net2010二维码开发生成源码，使用DotNetBarcode.dll，亲测无缝支持中文，可保存bmp、png、jpeg、tiff、gif多种图片格式
支付宝接口VB.NET版
10-27
找了好久都没有找到vb.net版的支付宝接口，就自己把c#的改了一下，测试通过了的。需要的朋友拿去修改一下就可以用了的，里面有说明要修改哪些的。
VB搭建支付宝充值功能（对接个人支付宝非第三方）
03-19
'对接的是个人支付宝，无需营业执照，使用的是“当面付”接口，单笔上限1000元，日上限5万元。 '看起来代码很多，其实真正支付的很少，大部份源码是用来解决二维码生成的 '这是在网上下载的一个无插件生成二维码的源码，在些感谢原作者 '流程是VB提交充值账号和充值金额到WEB后端，WEB后端配置好你要对接的支付宝接口，提交到支付宝换取二维码字符串 '然后二维码字符串返回到VB端后，生成二维码图片 '这里用的是我搭建的支付后台，仅用于测试 '具体搭建方法可参考支付宝官方文档或者CSDN文章 https://blog.csdn.net/wuxiaobo37/article/details/88599913 '阿里官方文档:https://docs.open.alipay.com/194/105072/
.NET微信扫码支付接入（模式二-NATIVE）
10-19
主要为大家详细介绍了.NET微信扫码支付接入的相关资料，具有一定的参考价值，感兴趣的小伙伴们可以参考一下
微信支付接口demo源码
11-21
微信支付接口demo源码 VB.NET版
解析微信支付的实现方法（.NET版）
10-21
由于微信的广泛利用，基于微信开发的一系列也应运而生，这篇文章主要介绍了解析微信支付的实现方法（.NET版），有兴趣的可以了解一下。
.net微信扫码支付
weixin_30360497的博客
09-17 153
今天给大家分享一篇.net的扫码支付文章，话不多说直接进入主题。 如有需要可以加我Q群【308742428】大家一起讨论技术，有偿服务。 后面会不定时为大家更新文章，敬请期待。 喜欢的朋友可以关注下。 首先下载我的demo https://download.csdn.net/download/dsn727455218/11754312 在lib目录下找到Config.cs文...
C# vb .NET生成QR二维码
那方山水
10-13 1460
二维码比条形码具有更多优势，有些场合使用二维码比较多，比如支付。通过将某些数据生成二维码，就可以实现一码走天下。那么如何在C#，.Net平台代码里生成二维码呢？答案是使用SharpBarcode！ SharpBarcode是C#快速高效、准确的条形码，线性条码，QR二维码的读取和生成类库。接口调用简单，文档齐全。 初识SharpBarcode 您可以点击下面的链接了解更多信息： 1、SharpBa...
微信、支付宝示例VB.net.rar
09-18
vb.net开发的微信付款码支付、生成微信二维码、查询微信订单状态；支付宝付款码支付、生成支付二维码、查询支付结果。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

vx_13822155058

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值