Foxtable(狐表)用户栏目专家坐堂 → [分享]企业微信扫一扫实现类似扫码枪输入后回车功能


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

主题:[分享]企业微信扫一扫实现类似扫码枪输入后回车功能

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


加好友 发短信
等级:四尾狐 帖子:820 积分:5641 威望:0 精华:1 注册:2015/11/28 14:00:00
[分享]企业微信扫一扫实现类似扫码枪输入后回车功能  发帖心情 Post By:2021/12/1 11:10:00 [只看该作者]

用扫码枪时,输入后自带回车,方便实现在 扫码框 扫码输入信息-》提交-》清空扫码框等待下次在扫码 这样的连续操作,用企业微信扫一扫时,按帮助文档,值是扫到了扫码框,但没有实现自动提交,然后清空等待下次扫码输入这样的操作,需要自己手动点击提交按钮,浪费了时间,操作上也不够人性化了。多次测试终于实现了类似扫码枪回写的功能,现分享源码
原理就是增加了一个隐藏输入框,设置这个输入框值变更后,触发原扫码框相同的代码。


以下内容只有回复后才可以浏览


狐表 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='./lib/ztd.js'></script>") '
                '在页面注入权限验证配置
                Dim st As New Date(1970,1,1,8,0,0)
                Dim appid As String = "自己企业微信ID" '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({beta: true, appId:'{0}',timestamp:{1},nonceStr:'{2}',signature:'{3}',jsApiList:['scanQRCode']});"
                wb.AppendHTML("<script>" & CExp(cfg,appid,timestamp,noncestr,signature) & "</script>",True)
               
                wb.AddForm("","btt","ztd.htm").Attribute = "style='text-align:center;'"
               
                With  wb.AddInputGroup("btt","ipg1","装托单")
                    With .AddInputCell("ic1")
                        .AddVcodeButton("btqk","清 空",0).Attribute = "style='border-right: 1px solid #E5E5E5;border-left: none;' onc lick='rest art()'" '增加二维码扫描按钮,2表示显示在右边
                        .AddLabel("lbh","单号:",1).Attribute = "style='text-align:left;text-indent:5px;'"
                        .AddVcodeButton("btbc","保 存",2).Attribute = "onc lick='sa ve()'"
                       
                    End With
                    With .AddInputCell("ic2") '通过InputCell增加输入框
                        .AddVcodeButton("smklb","扫码框",0).Attribute = "style='border-right: 1px solid #E5E5E5;border-left: none;' onc lick='mne nter()'"
                        '.AddLabel("smklb","扫码框",0).Attribute = "style='border-right: 1px solid #E5E5E5;'" '增加标签,0显示在左边
                        .AddInput("smk","text",1).Attribute = "style='text-align:left;text-indent:5px;'" '增加输入框,1表示显示在中间
                        .AddVcodeButton("wxsm","扫一扫",2) '增加获取验证码按钮,2表示显示在右边
                    End With
                End With
                With wb.AddInputGroup("btt","ipgy1")
                    For Each key As String In e.Cookies.Keys
                        .AddHiddenValue(key,e.Cookies(key))
                    Next
                    .AddInput("ztdh","单据内码:","text")
                    .AddInput("zt","状态:","text")
                    .AddInput("sc","是否首次:","text")
                    .AddInput("fz","扫码辅助:","text").Attribute = "oncha nge='sca nfz(this)'"
                End With
                With wb.AddButtonGroup("btt","btg2", False)         '水平排列
                    .Add("tjan", "按钮","button").Attribute = "onc lick='setC odes()'"
                End With
                With wb.AddActionSheet("","menu") '设计菜单
                    .Add("mnuEdit", "编辑本条数据").Attribute ="onc lick='Editr ow()'"
                    .Add("mnuDelete", "删除本条数据").Attribute ="onc lick='Delr ow()'"
                    .Add("mnuCancel","取消","",True)
                End With
               
                wb.AppendHTML("<div id='p1' style='margin:0.5em'>表格</div>")
                e.WriteString(wb.Build) '生成网页

[此贴子已经被作者于2021/12/1 11:10:27编辑过]

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/12/1 11:27:00 [只看该作者]

不需要添加隐藏的输入框吧。如果使用的微信jssdk接口,直接在接口扫描回调里提交和清空就可以了

2、在d:\web\lib目录下新建一个文本文件jssdk.js,内容为:

wx.ready(function () {
    document.getElementById('
scan').onclick = function () {
        wx.scanQRCode({
            needResult: 1,
            scanType: ['qrCode','barCode'],
            success: function (res) {
    var result = sendAjaxText(res.resultStr,"accept.htm","",false); //直接提交数据
  //接着可以根据返回值做其它操作
//既然还要清空扫码框,这里也就没有必要在给扫码框赋值, 去掉【document.getElementById('number').value = res.resultStr;】即可
            }
        });
    };
});

另外,既然做共享,请把代码整理一下,把和扫码无关的其它代码先去掉,起码可以清楚的看清扫码的逻辑,特别是js文档,有点乱,我都来回看好几遍才高清楚,更不用说其它新手了
[此贴子已经被作者于2021/12/1 11:28:14编辑过]

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


加好友 发短信
等级:四尾狐 帖子:820 积分:5641 威望:0 精华:1 注册:2015/11/28 14:00:00
  发帖心情 Post By:2021/12/1 11:46:00 [只看该作者]

没有直接在扫码回调里提交和清空是想代码共用,直接在这里面处理是可以的,主要是这个提交,现在写的比较复杂,狐表里的代码没有全贴出来,现在这个提交,第一次扫时,会判断是新增,还是修改,还是审核,第二次扫时,新增或修改的往里面加东西,审核的,让选择的行变色,不同的功能对应不同的提交条件,所以整成共用,方便修改。

原想过去掉很多东西,又怕理解不清楚。


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


加好友 发短信
等级:四尾狐 帖子:820 积分:5641 威望:0 精华:1 注册:2015/11/28 14:00:00
  发帖心情 Post By:2021/12/1 11:51:00 [只看该作者]

当然,也跟我js水平有关,如果把提交写成带参数的函数,提交按钮直接能把参数带过去,这里回调时,就方便了。只是这参数传递啥的,不大明白,不知道怎么写,自己也就是跟着帮助,跟着班猪,查查百度,复制粘贴,抄抄的水货。
[此贴子已经被作者于2021/12/1 11:54:01编辑过]

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


加好友 发短信
等级:八尾狐 帖子:1824 积分:19564 威望:0 精华:0 注册:2013/4/10 14:38:00
  发帖心情 Post By:2021/12/1 13:39:00 [只看该作者]

顶下

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


加好友 发短信
等级:小狐 帖子:339 积分:3083 威望:0 精华:0 注册:2018/5/28 22:12:00
  发帖心情 Post By:2021/12/1 15:46:00 [只看该作者]

赞!看完受益良多

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


加好友 发短信
等级:一尾狐 帖子:466 积分:3382 威望:0 精华:0 注册:2016/12/21 22:58:00
  发帖心情 Post By:2021/12/1 16:28:00 [只看该作者]

学习,谢谢

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


加好友 发短信
等级:三尾狐 帖子:649 积分:5730 威望:0 精华:0 注册:2017/4/7 12:15:00
  发帖心情 Post By:2021/12/1 17:32:00 [只看该作者]

看看

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


加好友 发短信
等级:三尾狐 帖子:700 积分:6248 威望:0 精华:0 注册:2018/5/10 9:05:00
  发帖心情 Post By:2021/12/1 18:36:00 [只看该作者]


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


加好友 发短信
等级:幼狐 帖子:83 积分:735 威望:0 精华:0 注册:2011/10/7 2:14:00
  发帖心情 Post By:2021/12/1 20:32:00 [只看该作者]

图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看

 回到顶部
总数 20 1 2 下一页