比如：
Dim
jo As New JObject
jo("touser") =
"ofjtFwBSZ5cNqTKLSKx2TNEAxfBI"
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
和
| Dim text As String = "{""touser"":""o_0W1wG4xCDJTpdqlTfjSdVjlznQ"",""msgtype"":""text"",""text"":{""content"":""您好,这里是客服,请问有什么需要帮助的?""}}" Dim wechatServ As WeChat.WeChatPublicNo = WeChat.WeChatServer.Server("wx506f113977c3a8a3" ) Dim weRet = wechatServ.SendMsgController.SendMessage(text) If weRet.Success Then msgbox("已发送消息") Else msgbox("发送失败:" & weRet.ErrorMessage) End If
有什么不同？ |
加好友 
发短信
Post By：2017/3/1 10:58:00 [只看该作者]
