Foxtable(狐表)用户栏目专家坐堂 → 微信扫描输入打不开


  共有513人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
YDS
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:577 积分:3164 威望:0 精华:0 注册:2011/5/21 18:05:00
微信扫描输入打不开  发帖心情 Post By:2022/10/31 15:31:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:92934 积分:471813 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/31 15:39:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
YDS
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:577 积分:3164 威望:0 精华:0 注册:2011/5/21 18:05:00
  发帖心情 Post By:2022/10/31 15:55:00 [只看该作者]

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
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都可以正常输出

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:92934 积分:471813 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/31 16:00:00 [只看该作者]

httprequest事件完整代码发上来

 回到顶部
帅哥哟,离线,有人找我吗?
YDS
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:577 积分:3164 威望:0 精华:0 注册:2011/5/21 18:05:00
  发帖心情 Post By:2022/10/31 16:01:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
YDS
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:577 积分:3164 威望:0 精华:0 注册:2011/5/21 18:05:00
  发帖心情 Post By:2022/10/31 16:02:00 [只看该作者]

httprequest事件
Functions.Execute("HttpRequest",e)

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:92934 积分:471813 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/31 16:07:00 [只看该作者]

3楼的函数是test函数的内容?微信里通过什么地址打开扫码页面的?

 回到顶部
帅哥哟,离线,有人找我吗?
YDS
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:577 积分:3164 威望:0 精华:0 注册:2011/5/21 18:05:00
  发帖心情 Post By:2022/10/31 16:18:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
YDS
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:577 积分:3164 威望:0 精华:0 注册:2011/5/21 18:05:00
  发帖心情 Post By:2022/10/31 16:20:00 [只看该作者]

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

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:92934 积分:471813 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/31 16:22:00 [只看该作者]

安装微信开发者工具,在微信开发者工具里打开这个地址,看看提示是怎么错误

 回到顶部
总数 23 1 2 3 下一页