Dim Lockappid As String
        Dim Lockmchid As String
        Dim Idkey As String
        Dim IdkeyLock As Integer
        Dim TotalFee As String
        Dim OrdNum As String
        Dim AuthCode As String
        Dim outinf As IntPtr
        Dim real As Integer

        Lockappid = Trim(WXGZH.Text)                            '加密后的微信公众账号
        Lockmchid = Trim(WXSFH.Text)                            '加密后的商户号
        Idkey = Trim(WXKey.Text)                                'KEY
        outinf = Marshal.AllocHGlobal(255)
        If RadioButton2.Checked Then IdkeyLock = 1 Else IdkeyLock = 0 '1 KEY已加密，0不加密
        OrdNum = Trim(TextBox7.Text)
        TotalFee = Trim(TextBox8.Text)
        AuthCode = Trim(TextBox9.Text)

        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, 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"