以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]微信公众号模板消息,如何群发? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141051) |
-- 作者:YOU -- 发布时间:2019/9/20 11:10:00 -- [求助]微信公众号模板消息,如何群发? 微信公众号模板消息,如何群发? Dim jo As New JObject jo("touser") = "oWhWn1Sv3O4m43nBJRrAUpmGiF0A" jo("msgtype") = "text" jo("text") = New JObject jo("text")("content") = "您好,我是Foxtable" Dim URL As String = "https://api.weixin.qq.com/cgi-bin/message/custom/send?access_token={0}" Dim hc As New HttpClient(CExp(URL, Functions.Execute("GetAccessToken"))) hc.Content = jo.ToString() jo = JObject.Parse(hc.GetData()) If jo("errcode") = "0" Then MessageBox.Show("消息发送成功") Else MessageBox.show("消息发送失败,原因:" & vbcrlf & jo("errmsg").ToString) End If
|
-- 作者:有点蓝 -- 发布时间:2019/9/20 11:13:00 -- 请不要发重复的问题:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=141040 |