以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于微信开发帮助文档的疑问  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=96862)
--  作者：zhy400137
--  发布时间：2017/3/1 10:58:00
--  关于微信开发帮助文档的疑问
发现帮助文档里，微信公众号开发的CHM有两个（另一个是微信接口），其中同一个模块，比如主动推送消息的方法
好像也有不同，有点疑惑，这两种方法有什么不同吗？谢谢
--  作者：zhy400137
--  发布时间：2017/3/1 11:05:00
--  
比如：
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


有什么不同？
--  作者：有点色
--  发布时间：2017/3/1 11:10:00
--  

 一样的功能。后面那个，是对前面那个的一个封装，简化了调用。

 

 
--  作者：有点色
--  发布时间：2017/3/1 11:12:00
--  
前面那种调用方式，可能更适合foxtable之前的编程习惯。
--  作者：zhy400137
--  发布时间：2017/3/1 11:47:00
--  
收到，体会下，谢谢~！