[求助]获取OPENID - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]获取OPENID

共有4270人关注过本帖树形打印复制链接主题：[求助]获取OPENID

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110561 积分：562695 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/11/30 16:04:00 [显示全部帖子]

1、必须通过网页授权才能获取。

2、第一次进来还没有授权的时候，肯定为空了

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110561 积分：562695 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/11/30 16:30:00 [显示全部帖子]

1、同样的道理，第一次进来还没有授权的时候，肯定为空

2、 '肯定要改为自己的网址

3、Return OpenId放到函数的最后

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110561 积分：562695 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/11/30 17:31:00 [显示全部帖子]

别人访问的时候直接读通过下面这种授权地址访问，才有可能第一次就获取openid。

"https://open.weixin.qq.com/connect/oauth2/authorize?appid={0}&redirect_uri={1}&response_type=code&scope=snsapi_base&state={2}#wechat_redirect"

其实按照上面的用法，在这段代码就可以获取

If jo("openid") IsNot Nothing Then
        OpenID = jo("openid")
        e.AppendCookie("openid",OpenID) '将openid存储在Cookie中
    End If

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110561 积分：562695 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/11/30 17:37:00 [显示全部帖子]

Dim ul2 As String = UrlEncode("http://www.xxx.com/" & url)

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110561 积分：562695 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/12/1 22:21:00 [显示全部帖子]

上传实例说明

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110561 积分：562695 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/12/2 11:54:00 [显示全部帖子]

11楼的项目我打开不正常，看不到函数。把函数的代码放到txt文件再发上来

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110561 积分：562695 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/12/2 14:03:00 [显示全部帖子]

这2个地方代码不完整

sb.AppendLine("<meta name='viewport' c>")

sb.Append("<meta http-equiv='Refresh' c>")

必须使用完整的网页路径：

Dim ul2 As String = UrlEncode("http://sg.vipgz2.idcfengye.com/" & url)

这个域名加入网页授权的可信域名了吗？https://developers.weixin.qq.com/doc/offiaccount/OA_Web_Apps/Wechat_webpage_authorization.html

-------------

ul1 = CExp(ul1,"addid",ul2,"123")

output.show(ul1) '把显示的完整域名放到微信开发者工具里打开，看看提示什么错误？

*---------------

自己使用日志跟踪一下接收到的所有地址和数据：https://wechat.foxtable.com:9009/Webhelp/scr/we0008.htm

[此贴子已经被作者于2019/12/2 14:03:27编辑过]

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110561 积分：562695 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/12/2 15:22:00 [显示全部帖子]

那就没有办法了，微信限制了。

下一主题 >> << 上一主题

主题：[求助]获取OPENID