以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]表A中的第一列的内容发生改变后如何写主动发送文本消息  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98177)

--  作者：狐作非为 --  发布时间：2017/3/25 14:10:00 --  [求助]表A中的第一列的内容发生改变后如何写主动发送文本消息 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") = "00898" jo("msgtype") = "text" jo("agentid") = 0 jo("text") = New JObject jo("text")("content") = ‘这里写表A第一列变更后的内容 hc.Content = jo.ToString jo = JObject.Parse(hc.GetData) If jo("errcode") = "0" Then     MessageBox.show("消息发送成功!") Else     MessageBox.show(jo.ToString) End If

--  作者：有点蓝 --  发布时间：2017/3/25 14:36:00 --   jo("text")("content") = CStr(Tables("表A").Current("第一列"))