Foxtable(狐表)用户栏目专家坐堂 → 特别奇怪的企业微信问题


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

主题:特别奇怪的企业微信问题

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


加好友 发短信
等级:三尾狐 帖子:798 积分:7677 威望:0 精华:0 注册:2015/9/14 14:26:00
特别奇怪的企业微信问题  发帖心情 Post By:2021/12/27 18:27:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:111.txt

推送给企业微信一条信息,电脑端可以顺利打开,但在手机端访问提示非法访问,代码在附件

手机端访问的提示如下:
1、  MessageBox.Show("通过cookies获取:" & e.Cookies("userid") )
2、 MessageBox.Show(drc Is Nothing)= false
3、  MessageBox.Show("跳转授权链接" & userid) 
 上面提示中userid为空
4、     MessageBox.Show("授权不通过:" & userid)  userid为空
5、非法访问
怀疑授权链接问题,不知道怎么处理




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


加好友 发短信
等级:三尾狐 帖子:798 积分:7677 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2021/12/28 8:24:00 [显示全部帖子]

https://open.weixin.qq.com/connect/oauth2/authorize?appid=wwb8b148c572f7a5&redirect_uri=http%3a%2f%2fwww.cofcohz.com.cn%3a1234%2ftest&response_type=code&scope=snsapi_base&agentid=1000000&state=STATE#wechat_redirect

手机页面上显示非法访问
奇怪的是电脑上访问没问题 手机上就出问题
[此贴子已经被作者于2021/12/28 8:33:17编辑过]

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


加好友 发短信
等级:三尾狐 帖子:798 积分:7677 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2021/12/28 9:09:00 [显示全部帖子]

注释了下 elseif 得到下面地址
---------------------------
 好像是一样的,涉及到一些设置参数我做过修改 在发上来的时候
---------------------------
https://open.weixin.qq.com/connect/oauth2/authorize?appid=wwb8b148c572f7a100&redirect_uri=http%3a%2f%2fwww.cofcohz.com.cn%3a1234%2ftest&response_type=code&scope=snsapi_base&agentid=1000018&state=STATE#wechat_redirect
 

[此贴子已经被作者于2021/12/28 9:11:32编辑过]

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


加好友 发短信
等级:三尾狐 帖子:798 积分:7677 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2021/12/28 9:27:00 [显示全部帖子]

为什么电脑端可以,手机端不行呢 ? 怎么样修改啊 
    
        If Verified = False Then
            MessageBox.Show("授权不通过:" & userid)
            sb.AppendLine("你无权访问本系统")
        Else
            MessageBox.Show("通过,进入主页")
            Dim url As String="/test?id="& id 
            
            sb.Append("<meta http-equiv='Refresh' c>") '跳转到授权链接%3a8090
            wb.InsertHTML  (sb.ToString)

[此贴子已经被作者于2021/12/28 9:30:21编辑过]

 回到顶部