以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  调用企业微信接口的奇怪现象  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=132189)
--  作者：yellow
--  发布时间：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)

这是什么问题？？？
--  作者：有点蓝
--  发布时间：2019/3/16 9:14:00
--  
写了什么代码发送信息？贴出来
--  作者：yellow
--  发布时间：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
--  作者：有点蓝
--  发布时间：2019/3/18 9:04:00
--  
可能的原因：

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