'签名 第一步 Dim stringA stringA = "appid=" & appid & "&mch_id=" & mch_id & "&nonce_str=" & nonce_str & "&product_id=" & product_id & "&time_stamp=" & time_stamp tringA=trim(replace(stringA," ","")) tringAa="appid=" & appid & "&long_url=" &trim(replace(stringA," ",""))& "&mch_id=" & mch_id & "&nonce_str=" & nonce_str& "&key=" & key qian=UCase(MD5(tringAa)) Dim stringSignTemp stringSignTemp = stringA & "&key=" & key sign = UCase(MD5(stringSignTemp)) '二维码链接 签名第二步 Dim long_url long_url = "weixin://wxpay/bizpayurl?sign=" & sign & "&" & stringA '生成短网址二维码链接 Dim short_Url, shortUrl, UrlStr shortUrl = "https://api.mch.weixin.qq.com/tools/shorturl" 'rdCode = Int((32767)*Rnd +1000) 'nonce_str = MD5(rdCode) ' 签名第三步 stringA = "appid=" & appid & "&long_url=" & long_url & "&mch_id=" & mch_id & "&nonce_str=" & nonce_str stringSignTemp = stringA & "&key=" & key signa =UCase(MD5(stringSignTemp))
28,391
社区成员
357,060
社区内容
加载中
试试用AI创作助手写篇文章吧