Foxtable(狐表)用户栏目专家坐堂 → 微信网页授权 使用帮助文件代码 无法调通 ,


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

主题:微信网页授权 使用帮助文件代码 无法调通 ,

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


加好友 发短信
等级:童狐 帖子:282 积分:2835 威望:0 精华:0 注册:2019/4/23 11:17:00
微信网页授权 使用帮助文件代码 无法调通 ,  发帖心情 Post By:2020/10/4 10:46:00 [只看该作者]

 
If e.host = "weixin.foxtable.com" Then '需要授权才能访问的域名
    Dim OpenID As String
    Dim sb As New StringBuilder
   
sb.AppendLine("<meta name='viewport' c>")
    If e.GetValues.ContainsKey("code") Then '
如果通过授权链接跳转而来,就根据传递过来的code参数调用接口,获取用户的OpenID
       
Dim ul As String  = "https://api.weixin.qq.com/sns/oauth2/access_token?appid={0}&secret={1}&code={2}&grant_type=authorization_code"
        ul = CExp(ul,"wx8acdb7df5beb68fd","a5a3b06a790d4200a151e6b13c3dc263",e.GetValues("code"))
        Dim hc As new HttpClient(ul)
        Dim jo As JObject = JObject.Parse(hc.GetData)
        If jo("openid") IsNot Nothing Then
            OpenID = jo("openid")
            e.AppendCookie("openid",OpenID) '将openid存储在Cookie中
        End If
    Else
        OpenIde.Cookies("openid") '否则从cookie中提取openid
    End If

这段里
e.GetValues.ContainsKey("code") = false
   

e.Cookies("openid") ' = "" 空
这个怎么解决啊



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


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

贴出httprequest事件完整代码

 回到顶部