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接口量化

VB6 简单实现支付宝二维码扫马支付相关推荐

史上最全的支付宝二维码扫码优化技术方案
二维码又称二维条码,常见的二维码为QR Code,QR全称Quick Response,是一个近几年来移动设备上超流行的一种编码方式,它比传统的Bar Code条形码能存更多的信息,也能表示更多的数据 ...
微信二维码支付支付宝二维码支付（主扫模式）开发指南
微信二维码支付熟悉微信支付全家桶的童鞋应该都清楚,微信支付是没有提供PC网关支付的,那么传统的网站需要怎么接入微信支付产品呢? 我们可以选择微信支付中的Native支付产品,官方介绍: Native ...
梦行扫码付(收银台条码支付微信钱包条码支付支付宝二维码支付手机APP钱包支付 PHP扫码支付 )
适用于:各行各业(如,超市餐厅收费站等各类收费处) 平台管理员篇扫码付管理 (收银台条码支付) 全站收款账号 (微信钱包条码支付) 全站收款记录 (支付宝二维码支付) 商家篇我的扫码付 (支 ...
2021年春节过年支付宝集福神器，支付宝额外福卡二维码扫福器
下载地址:https://www.lanzoui.com/b01br9o6j 2021年春节过年支付宝集福神器,支付宝额外福卡二维码扫福器,一年一度的集福工具又来啦! 如有杀毒软件误报,请添加信任即可 ...
spring boot高性能实现二维码扫码登录(中)——Redis版
前言本打算用CountDownLatch来实现,但有个问题我没有考虑,就是当用户APP没有扫二维码的时候,线程会阻塞5分钟,这反而造成性能的下降.好吧,现在回归传统方式:前端ajax每隔1秒或2秒发 ...
spring boot高性能实现二维码扫码登录(上)——单服务器版
前言目前网页的主流登录方式是通过手机扫码二维码登录.我看了网上很多关于扫码登录博客后,发现基本思路大致是:打开网页,生成uuid,然后长连接请求后端并等待登录认证相应结果,而后端每个几百毫秒会循环查 ...
Java支付宝二维码支付和退款，微信二维码支付
在蚂蚁金服开发平台下载demo 打开 TradePayDemo 项目,里面的main可以直接运行,在配置文件zfbinfo.properties中改为自己支付宝的信息 # 支付宝网关名.partner ...
【Redis版】spring boot高性能实现二维码扫码登录(中)
作者: 刘冬来源:http://www.cnblogs.com/GoodHelper/p/8643071.html 前言本打算用CountDownLatch来实现,但有个问题我没有考虑,就是当用户 ...
java实现支付宝二维码支付(Spring Boot)
本文章主要介绍H5使用的支付宝二维码是如果通过java生成的,方便大家更好的对接.首先集成alipay的sdk,然后要到支付宝商户平台创建应用,生成私钥公钥,话不多说直接上代码块 @ApiOpera ...

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

VB6 简单实现支付宝二维码扫马支付相关推荐

最新文章

热门文章

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

VB6 简单实现 支付宝二维码扫马支付相关推荐

最新文章

热门文章

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

VB6 简单实现支付宝二维码扫马支付相关推荐