企业微信报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

2019-10-30 16:03:40.0069

Exception has been thrown by the target of an invocation.

at System.RuntimeMethodHandle._InvokeMethodFast(IRuntimeMethodInfo method, Object target, Object[] arguments, SignatureStruct& sig, MethodAttributes methodAttributes, RuntimeType typeOwner)

at System.RuntimeMethodHandle.InvokeMethodFast(IRuntimeMethodInfo method, Object target, Object[] arguments, Signature sig, MethodAttributes methodAttributes, RuntimeType typeOwner)

at System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture, Boolean skipVisibilityChecks)

at System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)

at Foxtable.UserFunctions.Execute(String Name, Object[] Args)

Error reading JObject from JsonReader. Path '', line 0, position 0.

at Newtonsoft.Json.Linq.JObject.Load(JsonReader reader, JsonLoadSettings settings)

at Newtonsoft.Json.Linq.JObject.Parse(String json, JsonLoadSettings settings)

at UserCode.AvR2BnE2uqj4l9SDd(Object[] Args)

最近后台日记老是收到这样的报错，userid经常获取不到，有的人没问题，有的人就不行！奇怪了

[此贴子已经被作者于2019/10/30 16:23:51编辑过]

JObject.Parse把字符串转换为json对象出错，一般情况下是没有接收到数据，也就是空字符串，或者是不是合法的json格式字符串，就会有这个错误

Dim e As RequestEventArgs = args(0)

Dim UserId As String

Dim UserName As String

Dim sb As New StringBuilder

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"))

Dim hc As new HttpClient(ul)

Dim jo As JObject = JObject.Parse(hc.GetData)

If jo("UserId") IsNot Nothing Then

UserId = jo("UserId")

End If

Else

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

End If

If UserId > "" then'授权成功

e.AppendCookie("userid",UserId) '将userid和username存储在Cookie中

Return UserId

ElseIf e.GetValues.ContainsKey("code") = False Then '如果授权失败,且不是通过授权链接跳转而来,那么就跳转到授权链接

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://www.gain.com.cn")

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

sb.Append("<meta http-equiv='Refresh' c>") '跳转到授权链接

e.WriteString(sb.ToString)

Return ""

End If

我这个代码都运行了1年多了，之前也没出现过问题啊~

没有完美的程序，程序运行的越久就越有可能出问题

Dim hc As new HttpClient(ul)

dim ret as string = hc.GetData

msgbox(ret) ‘或者使用日志记录一下

if ret > "" then

Dim jo As JObject = JObject.Parse(ret)

If jo("UserId") IsNot Nothing Then

UserId = jo("UserId")

End If

41001

缺少access_token参数

报这个错的话，难道是我的GetQYAccessToken 函数出了问题？

应该是。可能是使用了A应用的secret来访问B应用

现在新的企业微信已没有组的Secret了，全部都使用应用的Secret了，看来我要找一下腾讯客服了解一下怎么升级一下我的企业微信了！

用法一样的，把应用的Secret当做是组的Secret一样用即可。应用的Secret只能用在这个应用上，不能用来访问其他应用

主题：企业微信报错