以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  微信号中移动测试里面订单案例中用户管理和扫描输入功能怎么做出来？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=108394)
--  作者：playmal
--  发布时间：2017/10/21 22:22:00
--  微信号中移动测试里面订单案例中用户管理和扫描输入功能怎么做出来？
如题，请告知一下。
--  作者：playmal
--  发布时间：2017/10/22 16:19:00
--  
蓝老师和甜老师为什么不回复？
--  作者：playmal
--  发布时间：2017/10/22 16:48:00
--  
甜老师，请帮助一下，一直在等。
--  作者：有点甜
--  发布时间：2017/10/22 19:07:00
--  

参考

 

http://www.foxtable.com/mobilehelp/scr/0247.htm

 

http://www.foxtable.com/mobilehelp/scr/0183.htm

 

http://www.foxtable.com/mobilehelp/scr/0185.htm

 
--  作者：playmal
--  发布时间：2017/10/23 23:41:00
--  
    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/jssdk.js\'></script>") \'引入脚本文件
    \'在页面注入权限验证配置
    Dim st As New Date(1970,1,1,8,0,0)
    Dim appid As String = "ww1aafe9f0df6740de" \'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)
--  作者：playmal
--  发布时间：2017/10/23 23:42:00
--  
Static CreateTime As Date \'记录最近一次生成Ticket 的时间
Static Ticket As String \'记录最近一次生成的Ticket
Dim tp As TimeSpan = Date.Now - CreateTime
Dim ul As String = "https://qyapi.weixin.qq.com/cgi-bin/get_jsapi_ticket?access_token={0}"
If tp.TotalSeconds > 7200 Then
    Dim hc As New HttpClient(CExp(ul,Functions.Execute("GetQYAccessToken")))
    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") = "0" Then
        Ticket = jo("ticket")
    Else
        MessageBox.show("获取jsapi_ticket,原因:" & vbcrlf & jo.ToString)
    End If
End If
Dim signature As String = CExp("jsapi_ticket={0}&noncestr={1}&timestamp={2}&url={3}",Ticket,args(0),args(1),args(2))
Return Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(signature, "SHA1").ToLower()
--  作者：playmal
--  发布时间：2017/10/23 23:42:00
--  
为什么启动不了扫一扫
--  作者：playmal
--  发布时间：2017/10/23 23:43:00
--  
用企业微信，注意不是微信里面的企业号。
--  作者：playmal
--  发布时间：2017/10/23 23:45:00
--  
http://qydev.weixin.qq.com/wiki/index.php?title=%E5%BE%AE%E4%BF%A1JS-SDK%E6%8E%A5%E5%8F%A3
用这里面的开发文档
[此贴子已经被作者于2017/10/23 23:45:32编辑过]
--  作者：playmal
--  发布时间：2017/10/23 23:45:00
--  
http://qydev.weixin.qq.com/wiki/index.php?title=%E5%BE%AE%E4%BF%A1JS-SDK%E6%8E%A5%E5%8F%A3