Foxtable(狐表)用户栏目专家坐堂 → 调用企业微信接口的奇怪现象


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

主题:调用企业微信接口的奇怪现象

帅哥哟,离线,有人找我吗?
yellow
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:253 积分:2819 威望:0 精华:0 注册:2014/12/24 9:51:00
调用企业微信接口的奇怪现象  发帖心情 Post By:2019/3/16 0:15:00 [只看该作者]

正在设计一个系统,调用企业微信接口实现主动发送文本消息。可是很奇怪:今天能成功发送,过一两天就不行了。重装FoxTable后又可以,但过一两天又不行,反复如此。错误提示如下:

2019-03-16 00:07:14.7120
操作超时
   在 System.Net.HttpWebRequest.GetResponse()
   在 Foxtable.HttpClient.GetData(Boolean SkipError)

2019-03-16 00:07:14.7170
操作超时
   在 System.Net.HttpWebRequest.GetResponse()
   在 Foxtable.HttpClient.GetData(Boolean SkipError)

2019-03-16 00:07:14.7240
调用的目标发生了异常。
   在 System.RuntimeMethodHandle._InvokeMethodFast(Object target, Object[] arguments, SignatureStruct& sig, MethodAttributes methodAttributes, RuntimeTypeHandle typeOwner)
   在 System.RuntimeMethodHandle.InvokeMethodFast(Object target, Object[] arguments, Signature sig, MethodAttributes methodAttributes, RuntimeTypeHandle typeOwner)
   在 System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture, Boolean skipVisibilityChecks)
   在 System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)
   在 Foxtable.UserFunctions.Execute(String Name, Object[] Args)
Error reading JObject from JsonReader. Path '', line 0, position 0.
   在 Newtonsoft.Json.Linq.JObject.Load(JsonReader reader, JsonLoadSettings settings)
   在 Newtonsoft.Json.Linq.JObject.Parse(String json, JsonLoadSettings settings)
   在 Newtonsoft.Json.Linq.JObject.Parse(String json)
   在 UserCode.AtjLW5vsmIuxSXW0F(Object[] Args)

这是什么问题???


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105965 积分:538900 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/16 9:14:00 [只看该作者]

写了什么代码发送信息?贴出来

 回到顶部
帅哥哟,离线,有人找我吗?
yellow
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:253 积分:2819 威望:0 精华:0 注册:2014/12/24 9:51:00
  发帖心情 Post By:2019/3/16 22:26:00 [只看该作者]

很普通的一个消息发送。这是被调用的函数:
Dim touser As String = Args(0)
Dim msg As String = Args(1)
Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token={0}"
Dim hc As new HttpClient(Cexp(ur,Functions.Execute("GetQYAccessToken")))
Dim jo As New JObject
jo("touser") = touser
jo("msgtype") = "text"
jo("agentid") = 1000058
jo("text") = New JObject
jo("text")("content") = msg
hc.Content = jo.ToString
jo = JObject.Parse(hc.GetData)
If jo("errcode") = "0" Then
    Return "ok"
    'MessageBox.show("消息发送成功!")
Else
    Dim xx As String = jo.ToString
    Return xx
    'MessageBox.show(jo.ToString)
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105965 积分:538900 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/18 9:04:00 [只看该作者]

可能的原因:

1、接口调用是有次数限制的,看看后台是不是超限了
2、微信服务器有问题

 回到顶部