Dim ul As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid=wx8acdb7df5beb68fd&redirect_uri=http%3a%2f%2f这里改为自己要授权的网页地址wexin.foxtable.com&response_type=code&scope=snsapi_userinfo&state=123#wechat_redirect"
简单网页授权 的一般流程：
1、将目标网页的地址包装在一个授权链接中，这个链接是指向腾讯的授权服务器的，格式如下：
https://open.weixin.qq.com/connect/oauth2/authorize?appid=APPID&redirect_uri=REDIRECT_URI&response_type=code&scope=snsapi_base&state=STATE#wechat_redirect
红色部分是需要我们合成进去的：
| APPID | 开发者ID。 |
| REDIRECT_URI | 目标网页地址，注意：
1、需要用UrlEncode函数进行处理后再合成进去。
2、一定要完整的路径。
你可参考下面的代码生成授权URL：
Dim ul1 As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid={0}&redirect_uri={1}&response_type=code&scope=snsapi_base&state={2}#wechat_redirect"
Dim ul2 As String = UrlEncode("这里改为自己要授权的网页地址如http://wexin.foxtable.com/")
ul1 = CExp(ul1,"wx8acdb7df5beb68fd",ul2,"123")
Output.Show(ul1) |
| STATE | 自定义参数，重定向后会在目标网页地址中用get方式附上此参数。 |
2、用户打开目标网页，后台在cookie中检查是否存在登录信息，如果存在，直接显示目标网页内容。
加好友 
发短信
Post By：2022/9/7 13:34:00 [显示全部帖子]
