Foxtable(狐表) → 用户栏目 → 专家坐堂 → 企业微信员工首次登陆认证出错


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

主题：企业微信员工首次登陆认证出错
帅哥哟，离线，有人找我吗？
YDS
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：606 积分：3403 威望：0 精华：0 注册：2011/5/21 18:05:00 		企业微信员工首次登陆认证出错  发帖心情 Post By：2018/9/4 12:50:00 [只看该作者]

相关代码


图片点击可在新窗口打开查看此主题相关图片如下：000011.jpg
图片点击可在新窗口打开查看



图片点击可在新窗口打开查看此主题相关图片如下：000012.jpg
图片点击可在新窗口打开查看


出错信息


.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2018.8.30.1
错误所在事件：自定义函数wefox
详细错误信息：
调用的目标发生了异常。
无法将类型为“System.String”的对象强制转换为类型“Newtonsoft.Json.Linq.JToken”。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/9/4 14:38:00 [只看该作者]

加入msgbox，定位出错位置

 

http://www.foxtable.com/webhelp/scr/1485.htm

 

弹出对应的值，看看是否正确
 回到顶部
帅哥哟，离线，有人找我吗？
YDS
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：606 积分：3403 威望：0 精华：0 注册：2011/5/21 18:05:00 		  发帖心情 Post By：2018/9/4 16:19:00 [只看该作者]

20180904 155329 6509
<xml><ToUserName><![CDATA[wwaf0e973f9692]]></ToUserName><FromUserName><![CDATA[LiangLiang]]></FromUserName><CreateTime>1536047612</CreateTime><MsgType><![CDATA[event]]></MsgType><AgentID>1000037</AgentID><Event><![CDATA[unsubscribe]]></Event></xml>
LiangLiang于2018-09-04 15:53:32取消关注1000037

20180904 155350 9361
<xml><ToUserName><![CDATA[wwaf0e973f9692]]></ToUserName><FromUserName><![CDATA[LiangLiang]]></FromUserName><CreateTime>1536047633</CreateTime><MsgType><![CDATA[event]]></MsgType><AgentID>1000037</AgentID><Event><![CDATA[subscribe]]></Event></xml>
LiangLiang于2018-09-04 15:53:53关注1000037

我提取了一下消息，取消关注的时候没有问题，关注的时候报错，而且关注的消息还是连续收到三遍，这是为什么呢？
 回到顶部
帅哥哟，离线，有人找我吗？
YDS
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：606 积分：3403 威望：0 精华：0 注册：2011/5/21 18:05:00 		  发帖心情 Post By：2018/9/4 16:21:00 [只看该作者]

ElseIf e.Request.HttpMethod = "Post"            '
    Dim st As New Date(1970,1,1,8,0,0)
    Dim msg As String = wbiz.DecryptMsg(e) '解密消息
    If  IsNumeric(msg) Then '如果解密失败
        Dim err As String = wbiz.GetErorDesc(CInt(msg)) '获取错误描述
        Return Nothing
    End If
    Dim xo As XObject = XObject.Parse(msg)

就在这里出问题的
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/9/4 16:30:00 [只看该作者]

1、这个代码应该没问题吧？Dim xo As XObject = XObject.Parse(msg)

 

2、请正确定位到出错位置。
 回到顶部
帅哥哟，离线，有人找我吗？
YDS
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：606 积分：3403 威望：0 精华：0 注册：2011/5/21 18:05:00 		  发帖心情 Post By：2018/9/4 17:06:00 [只看该作者]

msgbox（1）
so("Content") = "今天是个好日子,欢迎" & UserID & "的加入!"
msgbox（2）

1弹出  然后错误  2没有弹出
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/9/4 17:12:00 [只看该作者]

改成

 

so("Content") = "今天是个好日子,欢迎" & cstr(UserID) & "的加入!"
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03699 秒, 4 次数据查询