麻烦老师看看哪里有错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

httprequest代码贴出来看看。

"微信用户表"有这个userid的用户吗，permit为true吗？

1、可信域名添加了没有？https://work.weixin.qq.com/api/doc#10028/关于网页授权的可信域名

2、GetQYAccessToken函数里的Secret 改为打开页面的应用的Secret 了没有？能否获取AccessToken？

3、能否获取到useid？

If e.GetValues.ContainsKey("code") Then '如果通过授权链接跳转而来,就根据传递过来的code参数调用接口,获取用户的UserId

Dim ul As String = "https://qyapi.weixin.qq.com/cgi-bin/user/getuserinfo?access_token={0}&code={1}"

ul = CExp(ul,Functions.Execute("GetQYAccessToken"),e.GetValues("code"))

MessageBox.Show("获取微信accesstoken:" & Functions.Execute("GetQYAccessToken"))

Dim hc As new HttpClient(ul)

dim str as string = hc.GetData

msgbox(str) '这里返回什么内容？

Dim jo As JObject = JObject.Parse(str)

If jo("UserId") IsNot Nothing Then

UserId = jo("UserId")

End If

Else

UserId = e.Cookies("userid") '否则从cookie中提取userid和username

MessageBox.Show("没有code,userid:" & e.Cookies("userid"))

End If

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

Dim ul2 As String = UrlEncode("https://yxdwxoxrk.fredcfengye.com/wxentrance")

ul = CExp(ul,"ww78ccca7608362047",ul2)

MessageBox.Show(ul) ‘打开微信开发者工具，把ul代表的完整地址复制到微信开发者工具打开，看能不能返回code

httprequest事件改改

Select Case e.path

Case "wefox" '企业微信验证程序

Functions.Execute("cb",e)

Case "st.htm" '搜图

Functions.Execute("st",e)

case else

If e.Host = "yxdwxoxrk.fredcfengye.com" Then

Functions.Execute("wxentrance",e)

End If

End Select

Dim ul2 As String = UrlEncode("http://yxdwxoxrk.fredcfengye.com/wxentrance")

主题：麻烦老师看看哪里有错