Foxtable(狐表)用户栏目专家坐堂 → 微信中获取用户的地理位置


  共有5496人关注过本帖平板打印复制链接

主题:微信中获取用户的地理位置

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


加好友 发短信
等级:六尾狐 帖子:1467 积分:11418 威望:0 精华:0 注册:2013/11/24 22:10:00
微信中获取用户的地理位置  发帖心情 Post By:2017/5/6 18:11:00 [只看该作者]

我正在设计送货确认的页面,页面中有个确认的按钮,用户确认后跳转到另外一个页面,在这个页面中想要获取当前用户的位置。是企业号的应用。今天怎么不能成功,请帮忙看看是什么原因。代码如下:
Dim e As RequestEventArgs = args(0)
Dim wbiz As New WXBizCrypt("wxa0545235324",Functions.Execute("GetQYAccessToken"),"6ueATjEId-mVYliF0HxdnwdA5BPPsdgsadgdgasdsadasdfad")
If e.Request.HttpMethod = "GET"
    Dim ret As Integer = wbiz.CheckQYSignature(e)
    If ret <> 0 Then '如果接入验证失败
        Dim err As String = wbiz.GetErorDesc(ret) '获取错误描述
    End If
ElseIf e.Request.HttpMethod = "Post"            '
    Dim st As New Date(1970,1,1,8,0,0)
    Dim msg  As String = wbiz.DecryptMsg(e) '解密
    If  IsNumeric(msg) Then '如果解密
        MessageBox.show(msg)
        Dim err As String = wbiz.GetErorDesc(CInt(msg)) '获取错误描述
        MessageBox.show(err)
        Return ""
    End If 
End If

用这个代码,会解密出错。msg 的值 为:-4004, 错误为:AESKEY非法。 我都是按帮助的说明做的,不知道哪里出错了!

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