津津有味道

vb6开发支付宝、微信支付

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

下载：vb6支付宝、微信扫码收款软件源码.rar-餐饮零售文档类资源-CSDN下载

Public Declare Function PQRCodeEx Lib "PayApiFun.dll" (ByRef QRCodeStr As String) As Integer

Public Declare Function WeiXinPayCode Lib "PayApiFun.dll" (ByRef AuthCode As String, ByRef OrdNum As String, ByRef TotalFee As String, ByRef outinf As String) As Integer
Public Declare Function WeiXinQuery Lib "PayApiFun.dll" (ByRef OrdNum As String, ByRef outinf As String) As Integer

Public Declare Function WeiXinPayCodeEx Lib "PayApiFun.dll" (ByRef Lockappid As String, ByRef Lockmchid As String, ByRef LockIdkey As String, ByRef AuthCode As String, ByRef OrdNum As String, ByRef TotalFee As String, ByRef outinf As String) As Integer
Public Declare Function WeiXinPayQRCodeEx Lib "PayApiFun.dll" (ByRef Lockappid As String, ByRef Lockmchid As String, ByRef LockIdkey As String, ByRef OrdNum As String, ByRef TotalFee As String, ByRef outinf As String) As Integer
Public Declare Function WeiXinQueryEx Lib "PayApiFun.dll" (ByRef Lockappid As String, ByRef Lockmchid As String, ByRef LockIdkey As String, ByRef OrdNum As String, ByRef outinf As String) As Integer

Public Declare Function ZhiFuBaoPayCodeEx Lib "PayApiFun.dll" (ByRef Lockappid As String, ByRef AuthCode As String, ByRef OrdNum As String, ByRef TotalFee As String, ByRef outinf As String) As Integer
Public Declare Function ZhiFuBaoPayQRCodeEx Lib "PayApiFun.dll" (ByRef Lockappid As String, ByRef OrdNum As String, ByRef TotalFee As String, ByRef outinf As String) As Integer
Public Declare Function ZhiFuBaoQueryEx Lib "PayApiFun.dll" (ByRef Lockappid As String, ByRef OrdNum As String, ByRef outinf As String) As Integer

'------------------------------------------------------------------------------------------------------------------------------------------------------以上函数仅用于vb6调用，下面的函数可以备各种开发工具调用，注意声明函数的参数类型-------------------------------------------------------------------------

Public 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 Any) As Integer
Public 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 Any) As Integer
Public 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 Any) As Integer
Public 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 Any) As Integer

Public 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 Any) As Integer
Public 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 Any) As Integer
Public Declare Function ZhiFuBaoQueryEx1 Lib "PayApiFun.dll" (ByVal Lockappid As String, ByVal OrdNum As String, ByRef outinf As Any) As Integer
Public Declare Function ZhiFuBaoPayCancelEx1 Lib "PayApiFun.dll" (ByVal Lockappid As String, ByVal OrdNum As String, ByRef outinf As Any) As Integer

'------------------------------------------------------------------------------------------------------------------------------------------------------第二版函数，未授权加密的账号也可以调用，但是有金额限制--------------------------------------------------------------------------------------------------
Public Declare Function WeiXinPayCodeEx2 Lib "PayApiFun.dll" (ByVal appid As String, ByVal mchid As String, ByVal registered As Integer, ByVal Idkey As String, ByVal keylock As Integer, ByVal AuthCode As String, ByVal OrdNum As String, ByVal TotalFee As String, ByVal inbody As String, ByRef outinf As Any) As Integer
Public Declare Function WeiXinPayQRCodeEx2 Lib "PayApiFun.dll" (ByVal appid As String, ByVal mchid As String, ByVal registered As Integer, ByVal Idkey As String, ByVal keylock As Integer, ByVal OrdNum As String, ByVal TotalFee As String, ByVal inbody As String, ByRef outinf As Any) As Integer
Public Declare Function WeiXinQueryEx2 Lib "PayApiFun.dll" (ByVal appid As String, ByVal mchid As String, ByVal registered As Integer, ByVal Idkey As String, ByVal keylock As Integer, ByVal OrdNum As String, ByRef outinf As Any) As Integer
Public Declare Function WeiXinCloseOrderEx2 Lib "PayApiFun.dll" (ByVal appid As String, ByVal mchid As String, ByVal registered As Integer, ByVal Idkey As String, ByVal keylock As Integer, ByVal OrdNum As String, ByRef outinf As Any) As Integer

Public 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 Any) As Integer
Public 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 Any) As Integer
Public Declare Function ZhiFuBaoQueryEx2 Lib "PayApiFun.dll" (ByVal appid As String, ByVal registered As Integer, ByVal OrdNum As String, ByRef outinf As Any) As Integer
Public Declare Function ZhiFuBaoPayCancelEx2 Lib "PayApiFun.dll" (ByVal appid As String, ByVal registered As Integer, ByVal OrdNum As String, ByRef outinf As Any) As Integer

Public Declare Function PQRCodeEx1 Lib "PayApiFun.dll" (ByVal QRCodeStr As String) As Integer

Public Declare Function MyMD5 Lib "PayApiFun.dll" (ByVal inputstr As String, ByRef outinf As Any) As Integer

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

Public Declare Function timeGetTime Lib "winmm.dll" () As Long
Public Function sGetINI(strPath As String, strSection As String, strKey As String, strDefault As String) As String
       Dim strV As String
       Dim aa As Long
       strV = "                                                                                                                                                                                                                                 "
       aa = GetPrivateProfileString(strSection, strKey, strDefault, strV, 255, strPath)
       strV = Trim(strV)
       strV = Left(strV, Len(strV) - 1)
       sGetINI = strV
End Function
Public Sub writeINI(strPath As String, strSection As String, strKey As String, strValue As String)
       WritePrivateProfileString strSection, strKey, strValue, strPath
End Sub
Public Function GetMACAddress() As String
        Set objs = GetObject("winmgmts:").ExecQuery("SELECT MACAddress  FROM Win32_NetworkAdapter WHERE ((MACAddress Is Not NULL)  AND (Manufacturer <> 'Microsoft'))")
        For Each obj In objs
            GetMACAddress = Trim(Replace(obj.Macaddress, ":", ""))
            MyMACStr = GetMACAddress
            Exit For
        Next obj
End Function
Public Function WritePayInf(inf As String)
Dim FileNameStr As String
FileNameStr = "\" + Format(Date, "YYYYMMDD") + ".TXT"
Open App.Path & FileNameStr For Append As #1
Print #1, inf
Close #1
End Function

Dim QrcodeTimer As Date
Dim MyMACStr As String
Dim QrZFBNum As String
Dim PayInfStr As String
Private Sub Command1_Click()
Dim outinf(500) As Byte
Dim OrdNumStr As String
Dim resul As Integer

QrZFBNum = ""

OrdNumStr = Format(Now, "YYMMDDHHMMSS" & Right(timeGetTime, 3)) & MyMACStr
resul = MyMD5(OrdNumStr, VarPtr(outinf(0)))
If resul = 0 Then
    OrdNumStr = OrdNumStr & Mid(MidB(StrConv(outinf, vbUnicode), 1, 500), 1, 3)
End If
Text2 = OrdNumStr
            
Text3 = ""
Text3.SetFocus
End Sub

Private Sub Command14_Click()
Dim asnw As Long
asnw = MsgBox("是否要保存当前的收款账号信息？", vbQuestion + vbOKCancel, "提示")
If asnw = vbOK Then
    On Error Resume Next
    writeINI App.Path & "\PayConfig.ini", "DefaultSetup", "ZhiFuBaoAppid", Trim(ZFBAPPID.Text)
    
    writeINI App.Path & "\PayConfig.ini", "DefaultSetup", "WeiXinAppid", Trim(WXGZH.Text)
    writeINI App.Path & "\PayConfig.ini", "DefaultSetup", "WeiXinMchid", Trim(WXSFH.Text)
    writeINI App.Path & "\PayConfig.ini", "DefaultSetup", "WeiXinKey", Trim(WXKEY.Text)
    
    If Option2.Value Then writeINI App.Path & "\PayConfig.ini", "DefaultSetup", "RegisteredEn", "1" Else writeINI App.Path & "\PayConfig.ini", "DefaultSetup", "RegisteredEn", "0"
    If Option4.Value Then writeINI App.Path & "\PayConfig.ini", "DefaultSetup", "WeiXinKeyLockEn", "1" Else writeINI App.Path & "\PayConfig.ini", "DefaultSetup", "WeiXinKeyLockEn", "0"
    
    writeINI App.Path & "\PayConfig.ini", "DefaultSetup", "InBody", Trim(Text7.Text)
End If
Frame1.Visible = False
End Sub

Private Sub Command15_Click()
Frame1.Visible = True
End Sub

Private Sub Command16_Click()
Dim resul As Integer
Dim Lockappid As String
Dim Lockmchid As String
Dim Idkey As String
Dim IdkeyLock As Integer
Dim registered As Integer

Dim AuthCode As String
Dim OrdNum As String
Dim TotalFee As String
Dim inbody As String
Dim outinf(255) As Byte

Text4 = ""

If Trim(Text2) = "" Then MsgBox "请输入商户号内的唯一订单编号！", vbCritical + vbOKOnly, "提示": Command1_Click: Exit Sub
If Trim(Text3) = "" Then MsgBox "请输入支付金额！", vbCritical + vbOKOnly, "提示": Command1_Click: Exit Sub
If CCur(Text3.Text) * 100 = 0 Then MsgBox "请输入支付金额！", vbCritical + vbOKOnly, "提示": Command1_Click: Exit Sub


Lockappid = Trim(WXGZH.Text)                            '微信公众账号
Lockmchid = Trim(WXSFH.Text)                            '商户号
Idkey = Trim(WXKEY.Text)                                'API密钥
If Option4.Value Then IdkeyLock = 1 Else IdkeyLock = 0  'API是否加密

If Option2.Value Then registered = 1 Else registered = 0  '1 账号已注册授权  0未授权

OrdNum = Trim(Text2.Text)
TotalFee = Format(CCur(Text3.Text) * 100, "0")       '总计支付金额，单位分
inbody = Trim(Text7.Text)                            '商品信息

Command16.Caption = "正在申请，请稍后..."
Command16.Enabled = False

'resul = WeiXinPayQRCodeEx1(Lockappid, Lockmchid, Idkey, IdkeyLock, OrdNum, TotalFee, inbody, VarPtr(outinf(0)))    '第一代函数加密收款账号  函数调用
resul = WeiXinPayQRCodeEx2(Lockappid, Lockmchid, registered, Idkey, IdkeyLock, OrdNum, TotalFee, inbody, VarPtr(outinf(0)))   '第二代函数调用

PayInfStr = MidB(StrConv(outinf, vbUnicode), 1, 255)
PayInfStr = "Wei    " & OrdNum & "    " & Trim(PayInfStr)
WriteInf PayInfStr

Select Case resul
    Case 0
        QrcodeTimer = Now
        Text4.Text = "微信支付单号‘" + OrdNum + "’支付二维码已经生成，有效时间5分钟，可轮询调用‘查询微信订单状态’函数查询支付结果！"
        Image1.Picture = LoadPicture(App.Path & "\QRcode.BMP")
        
    Case 1
        Text4.Text = "微信支付单号‘" + OrdNum + "’正在申请支付二维码..." + Trim(MidB(StrConv(outinf, vbUnicode), 1, 255))
    Case -10
        Text4.Text = "微信支付单号‘" + OrdNum + "’二维支付地址：" + Trim(MidB(StrConv(outinf, vbUnicode), 1, 255))   '二维码字符串申请成功，生成图形时异常
        QrcodeTimer = Now
    Case Else
        Text4.Text = "微信支付单号‘" + OrdNum + "’二维支付地址申请失败！API接口返回信息：" + Trim(MidB(StrConv(outinf, vbUnicode), 1, 255))
End Select

Command16.Caption = "生成二维码扫码支付"
Command16.Enabled = True

If resul = 0 Then QueryWeiXin
End Sub

Private Sub Command17_Click()
Dim resul As Integer
Dim Lockappid As String
Dim registered As Integer
Dim outinf(255) As Byte
Dim a() As Byte

Dim OrdNum As String
Dim TotalFee As String
Dim inbody As String


Text4 = ""
If Trim(Text2) = "" Then MsgBox "请输入商户号内的唯一订单编号！", vbCritical + vbOKOnly, "提示": Command1_Click: Exit Sub
If Trim(Text3) = "" Then MsgBox "请输入支付金额！", vbCritical + vbOKOnly, "提示": Command1_Click: Exit Sub
If CCur(Text3.Text) = 0 Then MsgBox "请输入支付金额！", vbCritical + vbOKOnly, "提示": Command1_Click: Exit Sub

a = StrConv(Space(300), vbFromUnicode)                              '字符串转换为字节数组
For i = 0 To 255
    outinf(i) = a(i)
Next

Lockappid = Trim(ZFBAPPID.Text)                                     '支付宝合作身份者（PID） D003731A306623CD651DD59EFE0421380000D2
OrdNum = Trim(Text2.Text)
TotalFee = Format(CCur(Text3.Text), "0.00")                         '总计支付金额，单位元
AuthCode = Trim(Text1)
inbody = Trim(Text7.Text)                                           '商品信息

If Option2.Value Then registered = 1 Else registered = 0             '1 账号已注册授权  0未授权

Command17.Caption = "正在申请，请稍后..."
Command17.Enabled = False

'resul = ZhiFuBaoPayQRCodeEx1(Lockappid, OrdNum, TotalFee, inbody, VarPtr(outinf(0)))               '第一代函数调用
resul = ZhiFuBaoPayQRCodeEx2(Lockappid, registered, OrdNum, TotalFee, inbody, VarPtr(outinf(0)))    '第二代函数调用

PayInfStr = "ZFB    " & OrdNum & "    " & MidB(StrConv(outinf, vbUnicode), 1, 255)
WriteInf PayInfStr

Select Case resul
    Case 0
        QrcodeTimer = Now
        QrZFBNum = OrdNum
        Text4.Text = "支付宝支付单号‘" + OrdNum + "’支付二维码已经生成，可调用‘查询支付宝订单状态’函数查询支付结果！"
        PQRCodeEx Trim(Trim(MidB(StrConv(outinf, vbUnicode), 1, 255)))
        Image1.Picture = LoadPicture(App.Path & "\QRcode.BMP")
    Case Else
        Text4.Text = "支付宝支付单号‘" + OrdNum + "’二维支付地址申请失败！" + Trim(MidB(StrConv(outinf, vbUnicode), 1, 255))
End Select
Command17.Caption = "生成支付宝支付二维码"
Command17.Enabled = True

If resul = 0 Then QueryZhiFuBao
End Sub

Private Sub Command18_Click()
Dim resul As Integer
Dim Lockappid As String
Dim Lockmchid As String
Dim Idkey As String
Dim IdkeyLock As Integer
Dim registered As Integer

Dim AuthCode As String
Dim OrdNum As String
Dim TotalFee As String
Dim outinf(255) As Byte

Text4 = ""

Lockappid = Trim(WXGZH.Text)                            '微信公众账号
Lockmchid = Trim(WXSFH.Text)                            '商户号
Idkey = Trim(WXKEY.Text)                                'API密钥
If Option4.Value Then IdkeyLock = 1 Else IdkeyLock = 0  'API是否加密

If Option2.Value Then registered = 1 Else registered = 0  '1 账号已注册授权  0未授权

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

Command18.Enabled = False
Command18.Caption = "正在关闭订单，请稍后..."
Timer2.Enabled = False

'resul = WeiXinCloseOrderEx1(Lockappid, Lockmchid, Idkey, IdkeyLock, OrdNum, VarPtr(outinf(0)))    '第一代函数调用
resul = WeiXinCloseOrderEx2(Lockappid, Lockmchid, registered, Idkey, IdkeyLock, OrdNum, VarPtr(outinf(0)))    '第二代函数调用

Text1.Text = ""
PayInfStr = "Wei    " & OrdNum & "    " & MidB(StrConv(outinf, vbUnicode), 1, 255)
WriteInf PayInfStr
        
Select Case resul
    Case 0
        Text4.Text = "微信支付单号‘" + OrdNum + "’关闭成功！API接口返回信息：" + MidB(StrConv(outinf, vbUnicode), 1, 255)
        MsgBox "微信支付单号‘" + OrdNum + "’关闭成功！", vbInformation + vbOKOnly, "提示"
        Command1_Click
    Case Else
        Text4.Text = "微信支付单号‘" + OrdNum + "’关闭失败！API接口返回信息：" + MidB(StrConv(outinf, vbUnicode), 1, 255)
End Select

Command18.Enabled = True
Command18.Caption = "关闭微信扫码订单"
CancelQueryWeiXin
End Sub

Private Sub Command19_Click()
Dim Lockappid As String
Dim registered As Integer
Dim resul As Integer
Dim OrdNum As String
Dim outinf(255) As Byte

Text4 = ""

Lockappid = Trim(ZFBAPPID.Text)                                    '支付宝合作身份者（PID） D003731A306623CD651DD59EFE0421380000D2
If Option2.Value Then registered = 1 Else registered = 0             '1 账号已注册授权  0未授权

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

Command19.Enabled = False
Command19.Caption = "正在申请，请稍后..."
Timer3.Enabled = False

'resul = ZhiFuBaoPayCancelEx1(Lockappid, OrdNum, VarPtr(outinf(0)))             '第一代函数调用
resul = ZhiFuBaoPayCancelEx2(Lockappid, registered, OrdNum, VarPtr(outinf(0)))   '第二代函数调用

Text1.Text = ""
PayInfStr = "ZFB    " & OrdNum & "    " & MidB(StrConv(outinf, vbUnicode), 1, 255)
WriteInf PayInfStr

Select Case resul
    Case 0
        Text4.Text = "支付宝支付单号‘" + OrdNum + "’还未支付，已撒销成功！API接口返回信息：" + MidB(StrConv(outinf, vbUnicode), 1, 255)
        MsgBox "支付宝支付单号‘" + OrdNum + "’撒销成功！", vbInformation + vbOKOnly, "提示"
        Command1_Click
    Case 1
        Text4.Text = "支付宝支付单号‘" + OrdNum + "’撒销成功！已触发退款动作！API接口返回信息：" + MidB(StrConv(outinf, vbUnicode), 1, 255)
        MsgBox "支付宝支付单号‘" + OrdNum + "’撒销成功！", vbInformation + vbOKOnly, "提示"
        Command1_Click
    Case Else
        Text4.Text = "支付宝支付单号‘" + OrdNum + "’撒销失败！API接口返回信息：" + MidB(StrConv(outinf, vbUnicode), 1, 255)
End Select

Command19.Enabled = True
Command19.Caption = "撤销支付宝支付订单"
CancelQueryZhiFuBao
End Sub



Private Sub Command5_Click()
Dim resul As Integer
Dim Lockappid As String
Dim Lockmchid As String
Dim Idkey As String
Dim IdkeyLock As Integer
Dim registered As Integer

Dim AuthCode As String
Dim OrdNum As String
Dim TotalFee As String
Dim outinf(255) As Byte

Text4 = ""

Lockappid = Trim(WXGZH.Text)                            '微信公众账号
Lockmchid = Trim(WXSFH.Text)                            '商户号
Idkey = Trim(WXKEY.Text)                                'API密钥
If Option4.Value Then IdkeyLock = 1 Else IdkeyLock = 0  'API是否加密

If Option2.Value Then registered = 1 Else registered = 0  '1 账号已注册授权  0未授权

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

Timer2.Enabled = False
Command5.Enabled = False
Command5.Caption = "正在查询中，请稍后..."


'resul = WeiXinQueryEx1(Lockappid, Lockmchid, Idkey, IdkeyLock, OrdNum, VarPtr(outinf(0)))      '第一代函数调用
resul = WeiXinQueryEx2(Lockappid, Lockmchid, registered, Idkey, IdkeyLock, OrdNum, VarPtr(outinf(0)))      '第二代函数调用

Select Case resul
    Case 0
        Text4.Text = "微信支付单号‘" + OrdNum + "’支付成功！API接口返回信息：" + MidB(StrConv(outinf, vbUnicode), 1, 255)
        
        PayInfStr = "Wei    " & OrdNum & "    " & MidB(StrConv(outinf, vbUnicode), 1, 255)
        WriteInf PayInfStr
        
        MsgBox "微信支付单号‘" + OrdNum + "’支付成功！", vbInformation + vbOKOnly, "提示"
        
        CancelQueryWeiXin
        Command1_Click
    Case 1
        Timer2.Enabled = True                           '继续查询该订单
        Text4.Text = "微信支付单号‘" + OrdNum + "’正在支付中...请稍后查询此单支付状态，API接口返回信息：" + MidB(StrConv(outinf, vbUnicode), 1, 255)
    Case 2
        If DateDiff("s", QrcodeTimer, Now) < 300 Then   '二维码还在有效时间内，需继续查询该订单
            Timer2.Enabled = True                       '继续查询该订单
            Text4.Text = "微信支付单号‘" + OrdNum + "’还未支付，订单有效期 5 分钟，系统正在查询支付结果，API接口返回信息：" + MidB(StrConv(outinf, vbUnicode), 1, 255)
        Else
            Text4.Text = "微信支付单号‘" + OrdNum + "’还未支付，订单已过有效期，提交关闭订单指令。API接口返回信息：" + MidB(StrConv(outinf, vbUnicode), 1, 255)
            Command18_Click       '关闭订单
        End If
    Case Else
        Text4.Text = "微信支付单号‘" + OrdNum + "’支付失败！API接口返回信息：" + MidB(StrConv(outinf, vbUnicode), 1, 255)
                
        PayInfStr = "Wei    " & OrdNum & "    " & MidB(StrConv(outinf, vbUnicode), 1, 255)
        WriteInf PayInfStr
        
        MsgBox "微信支付单号‘" + OrdNum + "’支付失败！", vbCritical + vbOKOnly, "提示"
        
        CancelQueryWeiXin
        Command1_Click
End Select

Command5.Enabled = True
Command5.Caption = "查询微信订单状态"
End Sub

Private Sub Command6_Click()
Dim resul As Integer
Dim Lockappid As String
Dim Lockmchid As String
Dim Idkey As String
Dim IdkeyLock As Integer
Dim registered As Integer

Dim AuthCode As String
Dim OrdNum As String
Dim TotalFee As String
Dim inbody As String
Dim outinf(255) As Byte

Text4 = ""

If Trim(Text2) = "" Then MsgBox "请输入商户号内的唯一订单编号！", vbCritical + vbOKOnly, "提示": Command1_Click: Exit Sub
If Trim(Text3) = "" Then MsgBox "请输入支付金额！", vbCritical + vbOKOnly, "提示": Command1_Click: Exit Sub
If CCur(Text3.Text) * 100 = 0 Then MsgBox "请输入支付金额！", vbCritical + vbOKOnly, "提示": Command1_Click: Exit Sub
If Trim(Text1) = "" Then MsgBox "请扫描或输入18位微信付款码！", vbCritical + vbOKOnly, "提示": Text1.SetFocus: Exit Sub

Lockappid = Trim(WXGZH.Text)                            '微信公众账号
Lockmchid = Trim(WXSFH.Text)                            '商户号
Idkey = Trim(WXKEY.Text)                                'API密钥
If Option4.Value Then IdkeyLock = 1 Else IdkeyLock = 0  'API是否加密

If Option2.Value Then registered = 1 Else registered = 0  '1 账号已注册授权  0未授权

OrdNum = Trim(Text2.Text)
TotalFee = Format(CCur(Text3.Text) * 100, "0")       '总计支付金额，单位分
AuthCode = Trim(Text1)
inbody = Trim(Text7.Text)      '商品信息

If Option4.Value Then
    If MsgBox("  本次支付将从微信账号扣款，此扣款不能退回，确定要继续吗？", vbQuestion + vbOKCancel) <> vbOK Then Exit Sub
End If

Command6.Caption = "正在支付中，请稍后..."
Command6.Enabled = False

'resul = WeiXinPayCodeEx1(Lockappid, Lockmchid, Idkey, IdkeyLock, AuthCode, OrdNum, TotalFee, inbody, VarPtr(outinf(0)))                '第一代函数调用
resul = WeiXinPayCodeEx2(Lockappid, Lockmchid, registered, Idkey, IdkeyLock, AuthCode, OrdNum, TotalFee, inbody, VarPtr(outinf(0)))     '第二代函数调用

Text1.Text = ""
PayInfStr = "Wei    " & OrdNum & "    " & MidB(StrConv(outinf, vbUnicode), 1, 255)
WriteInf PayInfStr

Select Case resul
    Case 0
        Text4.Text = "微信支付单号‘" + OrdNum + "’支付成功！API接口返回信息：" + MidB(StrConv(outinf, vbUnicode), 1, 255)
        MsgBox "微信支付单号‘" + OrdNum + "’支付成功！", vbInformation + vbOKOnly, "提示"
        Command1_Click
    Case 1
        Text4.Text = "微信支付单号‘" + OrdNum + "’正在支付中...请稍后查询此单支付状态，API接口返回信息：" + MidB(StrConv(outinf, vbUnicode), 1, 255)
        QueryWeiXin
    Case Else
        Text4.Text = "微信支付单号‘" + OrdNum + "’支付失败！API接口返回信息：" + MidB(StrConv(outinf, vbUnicode), 1, 255)
        MsgBox "微信支付单号‘" + OrdNum + "’支付失败！", vbCritical + vbOKOnly, "提示"
        Command1_Click
End Select


Command6.Caption = "扫微信付款码支付"
Command6.Enabled = True
End Sub

Private Sub Command7_Click()
Dim resul As Integer
Dim Lockappid As String
Dim registered As Integer
Dim AuthCode As String
Dim OrdNum As String
Dim TotalFee As String
Dim inbody As String
Dim outinf(255) As Byte

Text4 = ""
If Trim(Text2) = "" Then MsgBox "请输入商户号内的唯一订单编号！", vbCritical + vbOKOnly, "提示": Command1_Click: Exit Sub
If Trim(Text3) = "" Then MsgBox "请输入支付金额！", vbCritical + vbOKOnly, "提示": Command1_Click: Exit Sub
If CCur(Text3.Text) = 0 Then MsgBox "请输入支付金额！", vbCritical + vbOKOnly, "提示": Command1_Click: Exit Sub
If Trim(Text1) = "" Then MsgBox "请扫描或输入正确的支付宝付款码！", vbCritical + vbOKOnly, "提示": Text1.SetFocus: Exit Sub

Lockappid = Trim(ZFBAPPID.Text)                                    '支付宝合作身份者（PID） D003731A306623CD651DD59EFE0421380000D2
OrdNum = Trim(Text2.Text)
TotalFee = Format(CCur(Text3.Text), "0.00")                        '总计支付金额，单位元
AuthCode = Trim(Text1)
inbody = Trim(Text7.Text)                                          '商品信息

If Option2.Value Then registered = 1 Else registered = 0             '1 账号已注册授权  0未授权

If Option4.Value Then
    If MsgBox("  本次支付将从支付宝账号扣款，此扣款不能退回，确定要继续吗？", vbQuestion + vbOKCancel) <> vbOK Then Exit Sub
End If

Command7.Caption = "正在支付中，请稍后..."
Command7.Enabled = False

'resul = ZhiFuBaoPayCodeEx1(Lockappid, AuthCode, OrdNum, TotalFee, inbody, VarPtr(outinf(0)))            '第一代函数调用
resul = ZhiFuBaoPayCodeEx2(Lockappid, registered, AuthCode, OrdNum, TotalFee, inbody, VarPtr(outinf(0)))  '第二代函数调用

Text1.Text = ""
PayInfStr = "ZFB    " & OrdNum & "    " & MidB(StrConv(outinf, vbUnicode), 1, 255)
WriteInf PayInfStr

Select Case resul
    Case 0
        Text4.Text = "支付宝支付单号‘" + OrdNum + "’支付成功！" + MidB(StrConv(outinf, vbUnicode), 1, 255)
        MsgBox "支付宝支付单号‘" + OrdNum + "’支付成功！", vbInformation + vbOKOnly, "提示"
        Command1_Click
    Case 1
        Text4.Text = "支付宝支付单号‘" + OrdNum + "’正在支付中...请稍后查询此单支付状态，API接口返回信息：" + MidB(StrConv(outinf, vbUnicode), 1, 255)
        QueryZhiFuBao
    Case Else
        Text4.Text = "支付宝支付单号‘" + OrdNum + "’支付失败！API接口返回信息：" + MidB(StrConv(outinf, vbUnicode), 1, 255)
        MsgBox "支付宝支付单号‘" + OrdNum + "’支付失败！", vbCritical + vbOKOnly, "提示"
        Command1_Click
End Select

Command7.Caption = "扫支付宝付款码支付"
Command7.Enabled = True
End Sub

Private Sub Command8_Click()
Dim resul As Integer
Dim Lockappid As String
Dim registered As Integer
Dim OrdNum As String
Dim outinf(255) As Byte

Text4 = ""

Lockappid = Trim(ZFBAPPID.Text)                                    '支付宝合作身份者（PID） D003731A306623CD651DD59EFE0421380000D2
If Option2.Value Then registered = 1 Else registered = 0             '1 账号已注册授权  0未授权

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

Command8.Enabled = False
Command8.Caption = "正在查询中，请稍后..."

'resul = ZhiFuBaoQueryEx1(Lockappid, OrdNum, VarPtr(outinf(0)))            '第一代函数调用
resul = ZhiFuBaoQueryEx2(Lockappid, registered, OrdNum, VarPtr(outinf(0)))  '第二代函数调用

Select Case resul
    Case 0
        Text4.Text = "支付宝支付单号‘" + OrdNum + "’支付成功！API接口返回信息：" + MidB(StrConv(outinf, vbUnicode), 1, 255)
        
        PayInfStr = "ZFB    " & OrdNum & "    " & MidB(StrConv(outinf, vbUnicode), 1, 255)
        WriteInf PayInfStr

        MsgBox "支付宝支付单号‘" + OrdNum + "’支付成功！", vbInformation + vbOKOnly, "提示"
        
        CancelQueryZhiFuBao
        Command1_Click
    Case 1
        Text4.Text = "支付宝支付单号‘" + OrdNum + "’正在支付中...请稍后查询此单支付状态，API接口返回信息：" + MidB(StrConv(outinf, vbUnicode), 1, 255)
    Case Else
        If OrdNum = QrZFBNum And DateDiff("s", QrcodeTimer, Now) < 300 Then     '还在有效时间内的扫码订单，需继续查询该订单
            Text4.Text = "支付宝支付单号‘" + OrdNum + "’还未支付，订单有效期 5 分钟，系统正在查询支付结果，API接口返回信息：" + MidB(StrConv(outinf, vbUnicode), 1, 255)
            Timer3.Enabled = True
        Else
            Text4.Text = "支付宝支付单号‘" + OrdNum + "’支付失败！API接口返回信息：" + MidB(StrConv(outinf, vbUnicode), 1, 255)
            PayInfStr = "ZFB    " & OrdNum & "    " & MidB(StrConv(outinf, vbUnicode), 1, 255)
            WriteInf PayInfStr

            MsgBox "支付宝支付单号‘" + OrdNum + "’支付失败！", vbCritical + vbOKOnly, "提示"
            
            CancelQueryZhiFuBao
            Command1_Click
        End If
End Select

Command8.Enabled = True
Command8.Caption = "查询支付宝订单状态"

End Sub

Private Sub Command9_Click()

End Sub

Private Sub Form_Activate()
If MyMACStr = "" Then MyMACStr = GetMACAddress  '本电MAC
If Trim(Text2.Text) = "" Then Command1_Click
End Sub

Private Sub Form_Load()
On Error Resume Next

ZFBAPPID.Text = sGetINI(App.Path & "\PayConfig.ini", "DefaultSetup", "ZhiFuBaoAppid", "7349097602257AE331FADA6A700ECC0E00003C")

WXGZH.Text = sGetINI(App.Path & "\PayConfig.ini", "DefaultSetup", "WeiXinAppid", "8D9C9D261CAB512B7B5234056000E337974BB7C30B4B8CC200066B")
WXSFH.Text = sGetINI(App.Path & "\PayConfig.ini", "DefaultSetup", "WeiXinMchid", "E015D55433D4FEB188E0532ADCA3BEAF0806AD")
WXKEY.Text = sGetINI(App.Path & "\PayConfig.ini", "DefaultSetup", "WeiXinKey", "37883883C24506DB42A5F227623BC563F2158C41C55089217BAC61DF568A5C23DB0095")
If Val(sGetINI(App.Path & "\PayConfig.ini", "DefaultSetup", "RegisteredEn", "")) > 0 Then Option2.Value = True: Option1 = False Else Option2.Value = False: Option1.Value = True
If Val(sGetINI(App.Path & "\PayConfig.ini", "DefaultSetup", "WeiXinKeyLockEn", "")) > 0 Then Option4.Value = True: Option3 = False Else Option4.Value = False: Option3.Value = True

Text7.Text = sGetINI(App.Path & "\PayConfig.ini", "DefaultSetup", "InBody", "荣士消费机、读卡器")
Label6.Caption = sGetINI(App.Path & "\PayConfig.ini", "DefaultSetup", "NoteStr", "QQ:954486673  Tel:22307058  微信:13822155058  公司官网:https//www.ruk168.com/  淘宝:")
Text5.Text = sGetINI(App.Path & "\PayConfig.ini", "DefaultSetup", "UrlStr", "https://shop73172356.taobao.com")

PQRCodeEx Trim(Text5.Text)
Image1.Picture = LoadPicture(App.Path & "\QRcode.BMP")

End Sub

Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Timer1.Enabled = True
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
       Case 13
            Timer1.Enabled = False
            Label3.BackColor = &H8000000F

            If InStr(1, "101112131415", Mid(Text1.Text, 1, 2)) > 0 And Len(Text1.Text) = 18 Then
                Command6.SetFocus
                Command6_Click
            ElseIf InStr(1, "252627282930", Mid(Text1.Text, 1, 2)) > 0 And Len(Text1.Text) >= 16 And Len(Text1.Text) <= 24 Then
                Command7.SetFocus
                Command7_Click
            End If
       Case vbKey0 To vbKey9, vbKeyBack
       Case Else
            KeyAscii = 0
End Select
End Sub

Private Sub Text5_Click()
Shell Environ("PROGRAMFILES") & "\Internet Explorer\iexplore.exe  " & Trim(Text5)
End Sub

Private Sub Text1_LostFocus()
Timer1.Enabled = False
Label3.BackColor = &H8000000F
End Sub

Private Sub Text3_GotFocus()
Text3.SelStart = 0
Text3.SelLength = Len(Text3.Text)
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
       Case 13
            Text1.SetFocus
       Case 45, 46, vbKey0 To vbKey9, vbKeyBack
       Case Else
            KeyAscii = 0
End Select
End Sub

Private Sub Text3_LostFocus()
If Trim(Text3) <> "" Then
    If CCur(Text3) > 0 Then
        If Trim(Text2) = "" Then
            Dim outinf(500) As Byte
            Dim OrdNumStr As String
            Dim resul As Integer
            
            OrdNumStr = Format(Now, "YYMMDDHHMMSS" & Right(timeGetTime, 3)) & MyMACStr
            resul = MyMD5(OrdNumStr, VarPtr(outinf(0)))
            
            If resul = 0 Then
                OrdNumStr = OrdNumStr & Mid(MidB(StrConv(outinf, vbUnicode), 1, 500), 1, 3)
            End If
        
            Text2 = OrdNumStr
        End If
    End If
End If
End Sub

Private Sub Timer1_Timer()
If Label3.BackColor = &H8000000F Then Label3.BackColor = &HC0FFFF Else Label3.BackColor = &H8000000F
End Sub

Private Sub QueryWeiXin()
    Timer2.Enabled = True
    
    Command1.Enabled = False
    
    Command16.Enabled = False
    Command6.Enabled = False
    Command5.Enabled = True
    Command18.Enabled = True
    
    Command17.Enabled = False
    Command7.Enabled = False
    Command8.Enabled = False
    Command19.Enabled = False
End Sub
Private Sub CancelQueryWeiXin()
    Timer2.Enabled = False
    
    Command1.Enabled = True
    
    Command16.Enabled = True
    Command6.Enabled = True
    Command5.Enabled = True
    Command18.Enabled = True
    
    Command17.Enabled = True
    Command7.Enabled = True
    Command8.Enabled = True
    Command19.Enabled = True
End Sub
Private Sub Timer2_Timer()
Command5_Click
End Sub
Private Sub QueryZhiFuBao()
    Timer3.Enabled = True
    
    Command1.Enabled = False
    
    Command16.Enabled = False
    Command6.Enabled = False
    Command5.Enabled = False
    Command18.Enabled = False
    
    Command17.Enabled = False
    Command7.Enabled = False
    Command8.Enabled = True
    Command19.Enabled = True
End Sub
Private Sub CancelQueryZhiFuBao()
    Timer3.Enabled = False
    
    Command1.Enabled = True
    
    Command16.Enabled = True
    Command6.Enabled = True
    Command5.Enabled = True
    Command18.Enabled = True
    
    Command17.Enabled = True
    Command7.Enabled = True
    Command8.Enabled = True
    Command19.Enabled = True
End Sub

Private Sub Timer3_Timer()
Command8_Click
End Sub

Private Sub WriteInf(ByVal BackInf As String)
If List1.ListCount > 50 Then List1.Clear
List1.AddItem (BackInf)
List1.ListIndex = List1.ListCount - 1
WritePayInf BackInf
End Sub

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

你可能感兴趣的:(18002295132,QQ:954486673,扫码支付,VB6,微信支付,VB6支付宝,VB6扫码支付,QQ954486673,VX13822155058)

QQ群采集助手，精准引流必备神器 2401_87347160 其他经验分享
功能概述微信群查找与筛选工具是一款专为微信用户设计的辅助工具，它通过关键词搜索功能，帮助用户快速找到相关的微信群，并提供筛选是否需要验证的群组的功能。主要功能关键词搜索：用户可以输入关键词，工具将自动查找包含该关键词的微信群。筛选功能：工具提供筛选机制，用户可以选择是否只显示需要验证或不需要验证的群组。精准引流：通过上述功能，用户可以更精准地找到目标群组，进行有效的引流操作。3.设备需求该工具可以
509. 斐波那契数(每日一题) lzyprime
lzyprime博客(github)创建时间：2021.01.04qq及邮箱：2383518170leetcode笔记题目描述斐波那契数，通常用F(n)表示，形成的序列称为斐波那契数列。该数列由0和1开始，后面的每一项数字都是前面两项数字的和。也就是：F(0)=0，F(1)=1F(n)=F(n-1)+F(n-2)，其中n>1给你n，请计算F(n)。示例1：输入：2输出：1解释：F(2)=F(1)+
【Git】常见命令(仅笔记) 好想有猫猫 Git Linux学习笔记 git 笔记 elasticsearch linux c++
文章目录创建/初始化本地仓库添加本地仓库配置项提交文件查看仓库状态回退仓库查看日志分支删除文件暂存工作区代码远程仓库使用`.gitigore`文件让git不追踪一些文件标签创建/初始化本地仓库gitinit添加本地仓库配置项gitconfig-l#以列表形式显示配置项gitconfiguser.name"ljh"#配置user.namegitconfiguser.email"[email protected]
我在大学遇到的兼职坑2 竹音小居
不要存在侥幸，天上不会掉馅饼上一次我讲述了我在某宝刷单遇到的坑，今天我就来讲讲比某宝刷单更坑的兼职，不，这应该不是兼职了，是被骗。我因为在某宝刷单交了会费，最后连本金都没有挣回来，就想找一个不用交本金的刷单平台，然后我就上网搜了一下“有没有不用交钱的兼职”，没成想还真有，我打开网页链接，看人家上面写的文案，确实很心动，不用交钱，加一下客服的qq就可以接单，而且网页上还有很多别人挣钱的截图，佣金非常
C++ lambda闭包消除类成员变量 barbyQAQ c++c++java 算法
原文链接：https://blog.csdn.net/qq_51470638/article/details/142151502一、背景在面向对象编程时，常常要添加类成员变量。然而类成员一旦多了之后，也会带来干扰。拿到一个类，一看成员变量好几十个，就问你怕不怕？二、解决思路可以借助函数式编程思想，来消除一些不必要的类成员变量。三、实例举个例子：classClassA{public:...intfu
tiff批量转png 诺有缸的高飞鸟 opencv 图像处理 python opencv 图像处理
目录写在前面代码完写在前面1、本文内容tiff批量转png2、平台/环境opencv,python3、转载请注明出处：https://blog.csdn.net/qq_41102371/article/details/132975023代码importnumpyasnpimportcv2importosdeffindAllFile(base):file_list=[]forroot,ds,fsin
新能源汽车 BMS 学习笔记篇—BMS 基本定义及分类 WPG大大通其他笔记汽车 BMS 经验分享新能源电池
一、BMS定义1、概念：BMS（BatteryManagementSystem）即电池管理系统，其管理对象是二次电池（充电电池或蓄电池），其主要目的是电池的利用率，防止电池出现过度充电和过度放电，可应用于电动汽车、电瓶车、机器人、无人机等图片来源：腾讯网https://new.qq.com《标准普尔警告，电动汽车电池生产面临供应链和地缘政治风险》2、四大功能①感知和测量：检测电池的电压、电流、温度
斟一小组鸡血视频和自己一起成长
http://m.v.qq.com/play/play.html?coverid=&vid=c0518henl2a&ptag=2_6.0.0.14297_copy有一种努力叫做靠自己http://m.v.qq.com/play/play.html?coverid=&vid=i0547o426g4&ptag=2_6.0.0.14297_copy世界最励志短片https://v.qq.com/x/pa
Dockerfile命令详解之 FROM 清风怎不知意容器化 java 前端 javascript
许多同学不知道Dockerfile应该如何写，不清楚Dockerfile中的指令分别有什么意义，能达到什么样的目的，接下来我将在容器化专栏中详细的为大家解释每一个指令的含义以及用法。专栏订阅传送门https://blog.csdn.net/qq_38220908/category_11989778.html指令不区分大小写。但是，按照惯例，它们应该是大写的，以便更容易地将它们与参数区分开来。(引用
晨间日记时光分拣机
一日一诗赠别（一）唐-杜牧娉娉袅袅十三余，豆蔻梢头二月初。春风十里扬州路，卷上珠帘总不如。https://mp.weixin.qq.com/s/DRQzfcPvFkcGBBOR06PbEw图片发自App
html+css网页设计旅游网站首页1个页面 html+css+js网页设计 html css 旅游
html+css网页设计旅游网站首页1个页面网页作品代码简单，可使用任意HTML辑软件（如：Dreamweaver、HBuilder、Vscode、Sublime、Webstorm、Text、Notepad++等任意html编辑软件进行运行及修改编辑等操作）。获取源码1，访问该网站https://download.csdn.net/download/qq_42431718/897527112，点击
怎么才能做一个好老师尘埃不确定
厉害的老师也许不用提前准备什么，随场发挥就可以讲的很好。也许要系统地教授，还是最好准备一个大纲，每节课需要备课；只有提前准备，在讲的时候，效率才会提高，也容易讲明白知识点。每个学生对知识技能的掌握都不一样，有针对性地教学，可能会有好的效果。今天重新组装用QQ飞控的教练机，费了好大劲，虽然自己对这套东西比较熟悉，但时间长了会忘记很多东西，教大家的时候，其实是共同学习。
MySQL事务隔离级别和MVCC 简书徐小耳
MySQL事务隔离级别和MVCC参考：https://mp.weixin.qq.com/s/Jeg8656gGtkPteYWrG5_Nw1.MVCC只对读已提交和可重复的读有效果，而未提交读和串行则无意义。2.每条记录都会有trx_id(事务修改记录的id）和roll_pointer是一个指针指向旧版本的undo日志链表（row_id不是必必要的，如果有主键存在就不需要了）3.版本链的头结点就是记
喜欢和妈妈逛菜场鱼丢丢
12月1日跟妈妈逛了两次菜场，超级开心，看到很多新鲜的菜，可爱的菜，古老的菜，真有意思。妈妈跟卖鱼老伯的讨价还价，生动活泼，老伯风趣幽默。妈妈说我像个孩子，对什么都感兴趣。卖年糕的女人手上有粗糙的裂口，我拉着一定要买年糕，要用大仙菜炒，妈妈说买一斤吧。卖大仙菜的老婆婆自信地夸她的菜漂亮极了，因为是老婆婆她不用支付宝，我和妈妈都没有现金。我跑去卖年糕的女人那里换钱，让她换我10块现金，感谢她。吆喝卖
如何给QQ邮箱自动发邮件？无惧「小爱」下线！代码全公开，两步搞定 AI码上来 AI实战微信人工智能 python
前两天，搞了个微信AI小助理-小爱(AI)，爸妈玩的不亦乐乎。零风险！零费用！我把AI接入微信群，爸妈玩嗨了，附教程（下）最近一直在迭代中，挖掘小爱的无限潜力:链接丢给它，精华吐出来！微信AI小助理太强了，附完整提示词拥有一个能倾听你心声的「微信AI小助理」，是一种什么体验？小爱打工，你躺平！让「微信AI小助理」接管你的文件处理，一个字：爽！我把多模态大模型接入了「小爱」，痛快来一场「表情包斗图」
今日头条极速版邀请码是多少（亲测5个可用邀请码及填写方法）桃朵十三
第一次接触今日头条极速版app我记得是2018年7月份左右吧，当时手机上弹出一个小广告说看新闻还能赚零花钱，抱着好奇的心理下载了试一试，刚开始每天刷几条新闻或视频第二天早上金币兑换成一元多钱，可以提现到支付宝或者微信，弄得不亦乐乎。心想不给钱没事我也会看看新闻呢，何乐而不为呢。今日头条极速版邀请码是1712201738或1451455648或1805884301，秒懂你的阅读喜好，秒杀碎片化时间。
#微信支付宝个人收款码不能用于经营# 蜡笔需要小新的陪伴
我中午刷头条发现一条消息，说明年3月1日起，微信，支付宝个人收款码不能用于经营收款。就是原来各商家卖东西，客户扫码收款码付钱。那就有人会问，明年是不是就要拿现金或刷卡买菜就不能用支付宝或者是微信？其实微信，支付宝的商户号还是可以正常使用的。但是说如果小商贩给你他的个人收款码，就不要再刷了，因为法律上已经明确规定了，个人收款码不能用于经营活动。2022年3月1日起，“个人收款码禁用于经营性服务”及“
uniapp 获取各种小程序code 灵魂清零 uniapp 小程序
各种小程序在进入小程序是都需要去获取code才能拿到基础信息，自己记录一下用uniapp开发小程序是获取微信小程序、百度小程序、头条小程序、支付宝小程序的codeVue.prototype.$global={appLogin(){returnnewPromise((resole,reject)=>{varthat=this;varwxLoginUrl=app.globalData.url+"/lo
大家是不是都懂得理财？ AnonymousD
上周在家整理卫生，被我从某个犄角旮旯里面翻出来了十几块现金。当时的第一反应就是：Wow！这下好了！终于又可以用现金去买菜了！为什么我会这么兴奋？因为自从有了支付宝、微信等支付工具之后，人们使用现金支付的频率真的越来越低了。但是家里还有猫要养啊，所以终于又能使用现金真的太棒了！去市场要找零我都会大声地说：“有硬币就给我硬币吧，谢谢~”这样的猫，家里一共四只，嗷嗷待哺啊，害~其实我人生中的第一个存钱罐
500吨“翔”要来了，我们投“翔”么？蜗牛哒嗒
AD：打开支付宝首页搜索“7857987”立即领取红包事件起因：小区直线距离不到500米的地方要建一个大型垃圾站了，每天能处理500吨的垃圾！！！以后的日子里……不能淡定了。。。公示摘要：项目：罗泾中转站改扩建项目（宝山区生物能源再利用项目）地点：宝山区宝山工业园区潘川路1510号用地面积：8316.63平方米公示网站：宝山区人民政府门户网站看到这个公示的规划设计图，再去百度地图上搜了一看，那距离
全能第三方支付对接pay-java-parent 2.12.7 发布,支付聚合 egzosn 支付第三方支付支付聚合支付对接支付pay 微信
全能第三方支付对接Java开发工具包.优雅的轻量级支付模块集成支付对接支付整合（微信,支付宝,银联,友店,富友,跨境支付paypal,payoneer(P卡派安盈)易极付）app,扫码,网页支付刷卡付条码付刷脸付转账服务商模式、支持多种支付类型多支付账户，支付与业务完全剥离，简单几行代码即可实现支付，简单快速完成支付模块的开发，可轻松嵌入到任何系统里目前仅是一个开发工具包（即SDK），只提供简单W
年底了，积分也要清零了，该兑就兑了吧，清零就可惜了遇见yh
年底了，许多平台的积分也要清零了，信用卡、电话卡的积分也攒了不少，该兑就得兑了，如果不兑，到年底也都会被清零。所以如果你的使用的平台，现在还有积分的话，就赶快去兑换一下，如果清零就太可惜了。前几天我登录联通官网一看，上面也有1000多个积分，就去兑换了一件麦芯粉。还有支付宝积分，也可以兑换自己需要的东西，我昨天就兑了一盒脱骨鸡爪。之前还兑过一箱全麦面包，品质都不错。这些东西都是平台送的，你不去兑换
宝妈在家有哪些副业可以操作?推荐4个副业最适合宝妈做! 一起高省
人们对于全职妈妈的印象往往就是在家带孩子，不用工作非常轻松，其实不然。全职妈妈也是有工作的，这份主业就是全年无休带孩子，照顾家庭，而且大部分全职妈妈都因此没有经济来源。那么有没有适合的“副业兼职”，今天我就为大家整理了几个值得一试的全职妈妈副业兼职。1、线上客服，我们可以在网上找兼职客服的工作。一些大型的平台往往会招聘电话客服或者是线上客服，比如淘宝，菜鸟，支付宝等等，这些平台的客服工作互相不冲突
2020-12-03 新晴旷野远
拆解：后浪青年逆袭指南https://mp.weixin.qq.com/s/jCnmo2Vj2w2SXQI4eBcp7A按年龄讲述李华是个好孩子，循规蹈矩长大，一路优秀，直到上了大学，发现同学们各有亮点，自己很普通。在选修课的展示上，看到了心仪的她的创意，自己的则中规中矩。在毕业的去向上，决定不听从父母的安排，回家考公务员。他决定自己去闯。在试用期的述职会议上，他创意地制作了快闪视频，获得了用人单
QQ群优惠券和微信群优惠券有什么区别？群里发的优惠券链接都是哪里的？氧惠评测
淘宝优惠券的来源主要是商家为了促销而设置的。这些优惠券可以增加商品的销售量，提升商家的利润。商家可以在店铺首页、商品详情页或领取页面中发布优惠券，用户可以在这些地方领取优惠券并使用。氧惠APP是与以往完全不同的抖客+淘客app！2024全新模式，我的直推也会放到你下面。主打：带货高补贴，深受各位带货团队长喜爱（训练营导师每天出单带货几万单）。注册即可享受高补贴+0撸+捡漏等带货新体验。送万元推广大
读书笔记|碎片化写作听雨Jack
在现代职场，总的趋势就是工作时间越来越碎片化，即使在没有微博微信的时代，我们的工作时间也早就被电话、邮件、QQ、会议打断成了碎片，而微博、微信这样的移动媒体只是加剧了这一趋势。这就需要我们利用碎片时间完成系统化工作。对于写作这件事，可以使用碎片化写作法：一份完整的文章=1分钟灵感+5分钟构思+5分钟提纲+5分钟素材+…+3分钟素材+半小时高效写作+5分钟排版+5分钟配图+1分钟推送+1分钟回复评论
生产者消费者模式_Labview基础之生产者消费者设计模式（事件） weixin_39532699 生产者消费者模式
1绪论近期，开了一个QQ群，刚开始的目的也是想多拉写软件相关的大神，有问题的时候也可以交流交流。记得当时有个软件在写的时候遇到了一个棘手的问题，outlook邮箱配置账户密码的问题，到现在也没解决，算了，也不是很迫切。2000人群就留在那里爬虫发单吧！建群以后才发现，原来这一块的小白还挺多，总结起来就一个原因：做这个软件的大多数都不是软件出生，都是因为临时要搭建一个上位机平台，匆匆入门......
朱松纯委员：科研条件越来越好，为何颠覆性科学发现却越来越少？晨起动铮铎
原文链接：https://mp.weixin.qq.com/s/2hzjWGcqjzhV0Yob7RmCsg原文转载自科学网文｜《中国科学报》记者赵广立“为什么近年来世界各国科研人员成倍增长、经费越来越多、科研条件越来越好，却产生不了根本性的科学发现？”近日，全国政协委员，北京通用人工智能研究院院长，北京大学、清华大学讲席教授朱松纯在一次发言中发出上述疑问。在他看来，重大基础性原创性科学成果“难产
白露为霜南溪九叔
一滴秋水滴落此时，我正与灯盏对坐背后隐藏的日子如同夜的薄凉试图为一片叶子写信，尽量把坠落的时光涂上色彩再等一阵风，捎上剩下的半壁江山悄悄从你门缝挤进去此刻，我不再打马北上昨夜的马车哒哒直响芦花迷途,就像窗台与我对峙的秋风漫过九月的山岗吹的满山疼痛趁着一壶浊酒缝补破烂不堪的光阴一边讲虚妄的情节万物的悲伤，只字不提当我说出秋水的去处我们的发间都落下一层秋霜QQ空间
强迫症犯了。。。奔跑的小芳
大概强迫症犯了吧，昨天看到闺女新买的一只美宝莲的口红真的有点恼了，先来数一数这个月闺女的花费吧，她今年九年级，14岁，先说给她的零花钱吧，一直我都是给50的，没有的话就随时给我要，我再给她，这个月他爸支付宝亲情号给她开了300，小妮手脚麻利立马给转了出去，这个操作我没用过，不知道，不过也是佩服了她的速度，过生日老妈给她100元，一个舅姥姥到我家给她100元，这样的话就至少550元了，美宝莲口红最少
SAX解析xml文件小猪猪08 xml
1.创建SAXParserFactory实例 2.通过SAXParserFactory对象获取SAXParser实例 3.创建一个类SAXParserHander继续DefaultHandler，并且实例化这个类 4.SAXParser实例的parse来获取文件 public static void main(String[] args) { //
为什么mysql里的ibdata1文件不断的增长？ brotherlamp linux linux运维 linux资料 linux视频 linux运维自学
我们在 Percona 支持栏目经常收到关于 MySQL 的 ibdata1 文件的这个问题。当监控服务器发送一个关于 MySQL 服务器存储的报警时，恐慌就开始了 —— 就是说磁盘快要满了。一番调查后你意识到大多数地盘空间被 InnoDB 的共享表空间 ibdata1 使用。而你已经启用了 innodbfileper_table，所以问题是： ibdata1存了什么？当你启用了 i
Quartz-quartz.properties配置 eksliang quartz
其实Quartz JAR文件的org.quartz包下就包含了一个quartz.properties属性配置文件并提供了默认设置。如果需要调整默认配置，可以在类路径下建立一个新的quartz.properties，它将自动被Quartz加载并覆盖默认的设置。下面是这些默认值的解释 #-----集群的配置 org.quartz.scheduler.instanceName =
informatica session的使用 18289753290 workflow session log Informatica
如果希望workflow存储最近20次的log，在session里的Config Object设置，log options做配置，save session log :sessions run ;savesessio log for these runs:20 session下面的source 里面有个tracing
Scrapy抓取网页时出现CRC check failed 0x471e6e9a != 0x7c07b839L的错误酷的飞上天空 scrapy
Scrapy版本0.14.4 出现问题现象： ERROR: Error downloading <GET http://xxxxx CRC check failed 解决方法 1.设置网络请求时的header中的属性'Accept-Encoding': '*;q=0' 明确表示不支持任何形式的压缩格式，避免程序的解压
java Swing小集锦永夜-极光 java swing
1.关闭窗体弹出确认对话框 1.1 this.setDefaultCloseOperation (JFrame.DO_NOTHING_ON_CLOSE); 1.2 this.addWindowListener ( new WindowAdapter () { public void windo
强制删除.svn文件夹随便小屋 java
在windows上，从别处复制的项目中可能带有.svn文件夹，手动删除太麻烦，并且每个文件夹下都有。所以写了个程序进行删除。因为.svn文件夹在windows上是只读的，所以用File中的delete()和deleteOnExist()方法都不能将其删除，所以只能采用windows命令方式进行删除
GET和POST有什么区别？及为什么网上的多数答案都是错的。 aijuans get post
如果有人问你，GET和POST，有什么区别？你会如何回答？我的经历前几天有人问我这个问题。我说GET是用于获取数据的，POST，一般用于将数据发给服务器之用。这个答案好像并不是他想要的。于是他继续追问有没有别的区别？我说这就是个名字而已，如果服务器支持，他完全可以把G
谈谈新浪微博背后的那些算法 aoyouzi 谈谈新浪微博背后的那些算法
本文对微博中常见的问题的对应算法进行了简单的介绍，在实际应用中的算法比介绍的要复杂的多。当然，本文覆盖的主题并不全，比如好友推荐、热点跟踪等就没有涉及到。但古人云“窥一斑而见全豹”，希望本文的介绍能帮助大家更好的理解微博这样的社交网络应用。微博是一个很多人都在用的社交应用。天天刷微博的人每天都会进行着这样几个操作：原创、转发、回复、阅读、关注、@等。其中，前四个是针对短博文，最后的关注和@则针
Connection reset 连接被重置的解决方法百合不是茶 java 字符流连接被重置
流是java的核心部分,,昨天在做android服务器连接服务器的时候出了问题,就将代码放到java中执行,结果还是一样连接被重置被重置的代码如下; 客户端代码; package 通信软件服务器; import java.io.BufferedWriter; import java.io.OutputStream; import java.io.O
web.xml配置详解之filter bijian1013 java web.xml filter
一.定义 <filter> <filter-name>encodingfilter</filter-name> <filter-class>com.my.app.EncodingFilter</filter-class> <init-param> <param-name>encoding<
Heritrix Bill_chen 多线程 xml 算法制造配置管理
作为纯Java语言开发的、功能强大的网络爬虫Heritrix，其功能极其强大，且扩展性良好，深受热爱搜索技术的盆友们的喜爱，但它配置较为复杂，且源码不好理解，最近又使劲看了下，结合自己的学习和理解，跟大家分享Heritrix的点点滴滴。 Heritrix的下载（http://sourceforge.net/projects/archive-crawler/）安装、配置，就不罗嗦了，可以自己找找资
【Zookeeper】FAQ bit1129 zookeeper
1.脱离IDE，运行简单的Java客户端程序 #ZkClient是简单的Zookeeper~$ java -cp "./:zookeeper-3.4.6.jar:./lib/*" ZKClient 1. Zookeeper是的Watcher回调是同步操作，需要添加异步处理的代码 2. 如果Zookeeper集群跨越多个机房，那么Leader/
The user specified as a definer ('aaa'@'localhost') does not exist 白糖_ localhost
今天遇到一个客户BUG，当前的jdbc连接用户是root，然后部分删除操作都会报下面这个错误：The user specified as a definer ('aaa'@'localhost') does not exist 最后找原因发现删除操作做了触发器，而触发器里面有这样一句 /*!50017 DEFINER = ''aaa@'localhost' */ 原来最初
javascript中showModelDialog刷新父页面 bozch JavaScript 刷新父页面 showModalDialog
在页面中使用showModalDialog打开模式子页面窗口的时候，如果想在子页面中操作父页面中的某个节点，可以通过如下的进行： window.showModalDialog('url',self,‘status...’); // 首先中间参数使用self 在子页面使用w
编程之美-买书折扣 bylijinnan 编程之美
import java.util.Arrays; public class BookDiscount { /**编程之美买书折扣书上的贪心算法的分析很有意思，我看了半天看不懂，结果作者说，贪心算法在这个问题上是不适用的。。下面用动态规划实现。哈利波特这本书一共有五卷，每卷都是8欧元，如果读者一次购买不同的两卷可扣除5%的折扣，三卷10%，四卷20%，五卷
关于struts2.3.4项目跨站执行脚本以及远程执行漏洞修复概要 chenbowen00 struts WEB安全
因为近期负责的几个银行系统软件，需要交付客户，因此客户专门请了安全公司对系统进行了安全评测，结果发现了诸如跨站执行脚本，远程执行漏洞以及弱口令等问题。下面记录下本次解决的过程以便后续 1、首先从最简单的开始处理，服务器的弱口令问题，首先根据安全工具提供的测试描述中发现应用服务器中存在一个匿名用户，默认是不需要密码的，经过分析发现服务器使用了FTP协议，而使用ftp协议默认会产生一个匿名用
[电力与暖气]煤炭燃烧与电力加温 comsci
在宇宙中,用贝塔射线观测地球某个部分,看上去,好像一个个马蜂窝,又像珊瑚礁一样,原来是某个国家的采煤区..... 不过,这个采煤区的煤炭看来是要用完了.....那么依赖将起燃烧并取暖的城市,在极度严寒的季节中...该怎么办呢? &nbs
oracle O7_DICTIONARY_ACCESSIBILITY参数 daizj oracle
O7_DICTIONARY_ACCESSIBILITY参数控制对数据字典的访问.设置为true,如果用户被授予了如select any table等any table权限,用户即使不是dba或sysdba用户也可以访问数据字典.在9i及以上版本默认为false,8i及以前版本默认为true.如果设置为true就可能会带来安全上的一些问题.这也就为什么O7_DICTIONARY_ACCESSIBIL
比较全面的MySQL优化参考 dengkane mysql
本文整理了一些MySQL的通用优化方法，做个简单的总结分享，旨在帮助那些没有专职MySQL DBA的企业做好基本的优化工作，至于具体的SQL优化，大部分通过加适当的索引即可达到效果，更复杂的就需要具体分析了，可以参考本站的一些优化案例或者联系我，下方有我的联系方式。这是上篇。 1、硬件层相关优化 1.1、CPU相关在服务器的BIOS设置中，可
C语言homework2，有一个逆序打印数字的小算法 dcj3sjt126com c
#h1# 0、完成课堂例子 1、将一个四位数逆序打印 1234 ==> 4321 实现方法一： # include <stdio.h> int main(void) { int i = 1234; int one = i%10; int two = i / 10 % 10; int three = i / 100 % 10;
apacheBench对网站进行压力测试 dcj3sjt126com apachebench
ab 的全称是 ApacheBench ，是 Apache 附带的一个小工具，专门用于 HTTP Server 的 benchmark testing ，可以同时模拟多个并发请求。前段时间看到公司的开发人员也在用它作一些测试，看起来也不错，很简单，也很容易使用，所以今天花一点时间看了一下。通过下面的一个简单的例子和注释，相信大家可以更容易理解这个工具的使用。
2种办法让HashMap线程安全 flyfoxs java jdk jni
多线程之--2种办法让HashMap线程安全多线程之--synchronized 和reentrantlock的优缺点多线程之--2种JAVA乐观锁的比较( NonfairSync VS. FairSync) HashMap不是线程安全的,往往在写程序时需要通过一些方法来回避.其实JDK原生的提供了2种方法让HashMap支持线程安全.
Spring Security（04）——认证简介 234390216 Spring Security 认证过程
认证简介目录 1.1 认证过程 1.2 Web应用的认证过程 1.2.1 ExceptionTranslationFilter 1.2.2 在request之间共享SecurityContext 1
Java 位运算 Javahuhui java 位运算
// 左移( << ) 低位补0 // 0000 0000 0000 0000 0000 0000 0000 0110 然后左移2位后，低位补0： // 0000 0000 0000 0000 0000 0000 0001 1000 System.out.println(6 << 2);// 运行结果是24 // 右移( >> ) 高位补"
mysql免安装版配置 ldzyz007 mysql
1、my-small.ini是为了小型数据库而设计的。不应该把这个模型用于含有一些常用项目的数据库。 2、my-medium.ini是为中等规模的数据库而设计的。如果你正在企业中使用RHEL,可能会比这个操作系统的最小RAM需求(256MB)明显多得多的物理内存。由此可见，如果有那么多RAM内存可以使用，自然可以在同一台机器上运行其它服务。 3、my-large.ini是为专用于一个SQL数据
MFC和ado数据库使用时遇到的问题你不认识的休道人 sql C++mfc
=================================================================== 第一个 =================================================================== try{ CString sql; sql.Format("select * from p
表单重复提交Double Submits rensanning double
可能发生的场景： *多次点击提交按钮 *刷新页面 *点击浏览器回退按钮 *直接访问收藏夹中的地址 *重复发送HTTP请求（Ajax）（1）点击按钮后disable该按钮一会儿，这样能避免急躁的用户频繁点击按钮。这种方法确实有些粗暴，友好一点的可以把按钮的文字变一下做个提示，比如Bootstrap的做法： http://getbootstrap.co
Java String 十大常见问题 tomcat_oracle java 正则表达式
　1.字符串比较，使用“==”还是equals()? 　　"=="判断两个引用的是不是同一个内存地址(同一个物理对象)。　　equals()判断两个字符串的值是否相等。　　除非你想判断两个string引用是否同一个对象，否则应该总是使用equals()方法。　　如果你了解字符串的驻留(String Interning)则会更好地理解这个问题。　　
SpringMVC 登陆拦截器实现登陆控制 xp9802 springMVC
思路，先登陆后，将登陆信息存储在session中，然后通过拦截器，对系统中的页面和资源进行访问拦截，同时对于登陆本身相关的页面和资源不拦截。实现方法： 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23