微信扫描输入打不开 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

域名备案了，公众号也审核通过了，但是按照例子做的页面点扫描输入没有反应，打不开摄像机，是哪里出问题了吗？

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

Output.Show(0)

wb.AppendHTML("<script src='https://res.wx.qq.com/open/js/jweixin-1.6.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 = Functions.Execute("Get","公众号",1) '开发者ID

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:['scanQRCode']});"

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

'开始正常生成网页内容

Output.Show(1)

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

Output.Show(2)

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

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

End With

Output.Show(3)

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

Output.Show(4)

0-4都可以正常输出

Dim e As RequestEventArgs = args(0)

'接入验证

Select Case e.path

Case "wefox"

Functions.Execute("wefox", e)

Return ""

Case "", "test.htm"

Functions.Execute("test", e)

Return ""

End Select

httprequest事件

Functions.Execute("HttpRequest",e)

http://gzh.xoar.cn/test.htm

3楼的函数是test函数的内容

5楼的函数是HttpRequest函数的内容

GetJsSignature和js文件都是直接粘贴复制的手机是华为p40 pro 鸿蒙3.0的系统

scanQRCode:fail, the permission value is offline verifying"

url=http://gzh.xoar.cn:88/test.htm

问题应该是出在这里，我已经把http://gzh.xoar.cn反代到192.168.1.201:88了，这里怎么组合的会是http://gzh.xoar.cn:88/test.htm

e.Request.URL.ToString获取到的地址为什么会是http://gzh.xoar.cn:88/test.htm呢？要么是http://gzh.xoar.cn/test.htm要么是http://192.168.1.201:88/test.htm才对吧？

此主题相关图片如下：01.png

还是不行，为什么这么多问题呢？

主题：微信扫描输入打不开