[求助]有谁测试过扫码么？我怎么权限未获取呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：k7{a`ika.png

Dim wb As New weui

wb.AppendHTML("<script src='http://res.wx.qq.com/open/js/jweixin-1.0.0.js'></script>",True) '引入JS-SDK库

wb.AppendHTML("<script src='./lib/jssdk.js'></script>") '引入脚本文件

'在页面注入权限验证配置

Dim st As New Date(1970,1,1,8,0,0)

Dim appid As String = Vars("CorpID") 'CorpID

Dim timestamp As Integer = CInt((Date.Now - st).TotalSeconds()) '时间戳

Dim noncestr As String = Rand.NextString(16) '随机字符

Dim url As String = e.Request.URL.ToString '当前页面地址

Dim signature As String = Functions.Execute("GetJsSignature", noncestr, timestamp, url) '生成权限验证签名

Dim cfg As String = "wx.config({appId:'{0}',timestamp:{1},nonceStr:'{2}',signature:'{3}',jsApiList:['checkJsApi','chooseImage','previewImage','uploadImage','downloadImage','getNetworkType','openLocation','getLocation','scanQRCode']});"

wb.AppendHTML("<script>" & CExp(cfg,appid,timestamp,noncestr,signature) & "</script>",True)

'开始正常生成网页内容

wb.AddForm("","form1","test.htm")

With wb.AddInputGroup("form1","ipg1","产品输入")

.AddInput("product","产品","text")

With .AddInputCell("ic1")

.AddLabel("lbh","编号",0)

.AddInput("number","text",1)

.AddVcodeButton("scan","扫码输入",2) '增加二维码扫描按钮,2表示显示在右边

End With

With wb.AddButtonGroup("form1","btg1",True)

.Add("btn1", "确定", "submit")

End With

e.WriteString(wb.Build) '生成网页

此主题相关图片如下：qq截图20170306194307.png

点扫码后，如图

企业号

Static CreateTime As Date '记录最近一次生成access_token的时间

Static AccessTocken As String '记录最近一次生成的access_token

'Dim CorpID As String= "wxa31aba4cd83af57e" '企业号的CorpID

'Dim Secret As String = "6a5e1ed1168740ca9fd0f865d3c8baea5a6165fe6dc54568a09c2d916b59e90f" '管理组的Secret

Dim tp As TimeSpan = Date.Now - CreateTime

If tp.TotalSeconds > 3600 Then

Dim url As String = "https://qyapi.weixin.qq.com/cgi-bin/gettoken?corpid={0}&corpsecret={1}"

Dim hc As New HttpClient(CExp(url, Vars("CorpID"), Vars("Secret ")))

Dim ret As String = hc.GetData()

If ret = "" Then '如果失败,再尝试一次

hc.GetData()

End If

CreateTime = Date.Now()

Dim jo As JObject = JObject.Parse(ret)

If jo("errcode") Is Nothing Then

AccessTocken = jo("access_token")

Dim r As Row =Tables("表A").AddNew

r("第一列")=AccessTocken

r("第二列")=now.Date

Else

MessageBox.show("获取access_token失败,原因:" & vbcrlf & jo.ToString)

End If

Return AccessTocken

我用花生壳的问题

本机的url变成带端口了，晕死

http://yunhua2121.xicp.net:8900/scan.htm

Dim url As String = e.Request.URL.ToString.replace(":8900","") '当前页面地址

处理了一下，搞定了

花生壳非80端口映射为外网80口，需要类似这么处理一下

此主题相关图片如下：qq截图20170306210557.png

主题：[求助]有谁测试过扫码么？我怎么权限未获取呢？

微信 JS 接口签名校验工具