Foxtable(狐表)用户栏目专家坐堂 → 微信号中移动测试里面订单案例中用户管理和扫描输入功能怎么做出来?


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

主题:微信号中移动测试里面订单案例中用户管理和扫描输入功能怎么做出来?

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


加好友 发短信
等级:七尾狐 帖子:1558 积分:12777 威望:0 精华:0 注册:2009/6/16 7:30:00
微信号中移动测试里面订单案例中用户管理和扫描输入功能怎么做出来?  发帖心情 Post By:2017/10/21 22:22:00 [只看该作者]

如题,请告知一下。

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


加好友 发短信
等级:七尾狐 帖子:1558 积分:12777 威望:0 精华:0 注册:2009/6/16 7:30:00
  发帖心情 Post By:2017/10/22 16:19:00 [只看该作者]

蓝老师和甜老师为什么不回复?

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


加好友 发短信
等级:七尾狐 帖子:1558 积分:12777 威望:0 精华:0 注册:2009/6/16 7:30:00
  发帖心情 Post By:2017/10/22 16:48:00 [只看该作者]

甜老师,请帮助一下,一直在等。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/22 19:07:00 [只看该作者]


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


加好友 发短信
等级:七尾狐 帖子:1558 积分:12777 威望:0 精华:0 注册:2009/6/16 7:30:00
  发帖心情 Post By: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
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1558 积分:12777 威望:0 精华:0 注册:2009/6/16 7:30:00
  发帖心情 Post By: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
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1558 积分:12777 威望:0 精华:0 注册:2009/6/16 7:30:00
  发帖心情 Post By:2017/10/23 23:42:00 [只看该作者]

为什么启动不了扫一扫


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


加好友 发短信
等级:七尾狐 帖子:1558 积分:12777 威望:0 精华:0 注册:2009/6/16 7:30:00
  发帖心情 Post By:2017/10/23 23:43:00 [只看该作者]

用企业微信,注意不是微信里面的企业号。

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


加好友 发短信
等级:七尾狐 帖子:1558 积分:12777 威望:0 精华:0 注册:2009/6/16 7:30:00
  发帖心情 Post By: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
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1558 积分:12777 威望:0 精华:0 注册:2009/6/16 7:30:00
  发帖心情 Post By: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

 回到顶部
总数 76 1 2 3 4 5 6 7 8 下一页