- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 企业微信扫码录入无反应 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133520)
-- 发布时间：2019/4/15 18:17:00
-- 企业微信扫码录入无反应
完全按帮助文件，改了企业ID，为什么点了还是没反应，还有哪里要改
Select Case e.Path
Case "test2.htm",""
Dim wb As New weui
wb.AppendHTML("<script src=\'http://res.wx.qq.com/open/js/jweixin-1.2.0.js\'></script>",True) \'引入JS-SDK库
wb.AppendHTML("<script src=\'sys.js\'></script>") \'引入脚本文件
\'在页面注入权限验证配置
Dim st As New Date(1970,1,1,8,0,0)
Dim appid As String = "ww28ca9904215ce38b" \'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:[\'scanQRCode\']});"
wb.AppendHTML("<script>" & CExp(cfg,appid,timestamp,noncestr,signature) & "</script>",True)
\'开始正常生成网页内容
wb.AddForm("","form1","test2.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
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "button").Attribute="onclick=aa()"
End With
e.WriteString(wb.Build) \'生成网页
End Select
-- 发布时间：2019/4/16 9:31:00
--
用web调试工具，看报什么错
https://mp.weixin.qq.com/wiki?t=resource/res_main&id=mp1455784140
-- 发布时间：2020/8/29 15:35:00
--
此主题相关图片如下：qq截图20200829153222.jpg
我的企业微信按帮助中的代码域名改用腾讯云的域名,为什么扫码时没有出现扫码框,用开发都工具测试上述错误,为什么验证没有通过?
谢谢!
-- 发布时间：2020/8/29 15:54:00
--
加上beta: true参数到手机企业微信里试试：https://work.weixin.qq.com/api/doc/90000/90136/90514
Dim cfg As String = "wx.config({beta: true, appId:\'{0}\',timestamp:{1},nonceStr:\'{2}\',signature:\'{3}\',jsApiList:[\'scanQRCode\']});"
自己加上调试模式，到error函数看看有没有提示什么错误
-- 发布时间：2020/8/30 12:58:00
--
不会啊,将jssdk.js文件改为这样吗? configj里面那些参数的值如何获取?
wx.config({
beta: true,// 必须这么写，否则wx.invoke调用形式的jsapi会有问题
debug: true, // 开启调试模式,调用的所有api的返回值会在客户端alert出来，若要查看传入的参数，可以在pc端打开，参数信息会通过log打出，仅在pc端时才会打印。
appId: appId, // 必填，企业微信的corpID
timestamp: timestamp, // 必填，生成签名的时间戳
nonceStr: nonceStr, // 必填，生成签名的随机串
signature: signature,// 必填，签名，见 附录-JS-SDK使用权限签名算法
jsApiList: jsApiList // 必填，需要使用的JS接口列表，凡是要调用的接口都需要传进来
});
wx.ready(function () {
document.getElementById(\'scan\').onclick = function () {
wx.scanQRCode({
needResult: 1,
scanType: [\'qrCode\',\'barCode\'],
success: function (res) {
document.getElementById(\'number\').value = res.resultStr;
}
});
};
});
wx.error(function (res) {
//alert(res.errMsg);
});
但是测试运行也是出错
此主题相关图片如下：qq截图20200830125650.jpg
谢谢!
-- 发布时间：2020/8/30 20:25:00
--
请上传实例
-- 发布时间：2020/9/1 14:45:00
--
请老师将应用参数表中的参数适当修改成可以访问的域名,我也已将项目发布到腾讯云服务器上测试了,还是不能扫码,总提示
系统错误，错误码：63002,invalid signature
谢谢!
-- 发布时间：2020/9/1 15:01:00
--
httprequest事件
Dim cfg As String = "wx.config({appId:\'{0}\',timestamp:{1},nonceStr:\'{2}\',signature:\'{3}\',jsApiList:[\'scanQRCode\']});"改为
Dim cfg As String = "wx.config({beta: true,debug: true,appId:\'{0}\',timestamp:{1},nonceStr:\'{2}\',signature:\'{3}\',jsApiList:[\'scanQRCode\']});"
jssdk.js
//alert(res.errMsg);
改为
alert(res.errMsg);
使用手机测试看有没有提示什么错误
-- 发布时间：2020/9/1 15:24:00
--
查了下40093是不是不合法的跳转target,是哪里的问题?
谢谢
-- 发布时间：2020/9/1 15:41:00
--
Case "扫码录入.htm",""
改一下，不要使用中文，不要使用空字符串