| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]用微信发送消息！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97960) |
| -- 作者：xietan417 -- 发布时间：2017/3/21 19:18:00 -- [求助]用微信发送消息！ 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") = "laoliu|zhangsan" jo("msgtype") = "text" jo("agentid") = 9 jo("text") = New JObject jo("text")("content") = "您好,这是测试信息" hc.Content = jo.ToString jo = JObject.Parse(hc.GetData) If jo("errcode") = "0" Then MessageBox.show("消息发送成功!") Else MessageBox.show(jo.ToString) End If 这个代码中jo("text")("content") = "您好,这是测试信息" 不是String类型的吗？我换成dr("单号")就出错了！
|
| -- 作者：有点蓝 -- 发布时间：2017/3/21 20:23:00 -- jo("text")("content") = Cstr(dr("单号")) |
| -- 作者：xietan417 -- 发布时间：2017/3/21 21:08:00 -- 还是出现如下提示哦！类型还是不对啊！ .NET Framework 版本：2.0.50727.5485 Foxtable 版本：2017.3.18.1 错误所在事件：表，总经理室申请汇总，DataColChanged 详细错误信息： 调用的目标发生了异常。 无法将类型为“System.String”的对象强制转换为类型“Newtonsoft.Json.Linq.JToken”。 |
| -- 作者：有点蓝 -- 发布时间：2017/3/21 21:12:00 -- 测试没有问题，所有dr赋值的地方都加上Cstr |
| -- 作者：xietan417 -- 发布时间：2017/3/21 21:17:00 -- 可以了！原来的userid列没有填微信号进去！所以报错！谢啦！ |