以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]微信发消息  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107234)
--  作者：machle
--  发布时间：2017/9/23 21:05:00
--  [求助]微信发消息
1、jo("touser")  这里的微信号如何获取，我看我的平台里，就是我的头像和我的名，和那个视频里的一串 omrHGwi75FC3X-B334B1vVVqg……  不同，我该怎么填这里？要是想给很多人发消息，该怎么弄？

2、access_token={0}?为什么不是我的实际的那串access_token?

3、我把当前代码放在执行窗口中，跳出来的是 api unauthorized hint，我该怎么办？谢谢！

代码如下：

Dim jo As New JObject
jo("touser") = "machle"
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
--  作者：有点甜
--  发布时间：2017/9/24 23:16:00
--  

你的是公众号还是企业号？

 

http://www.foxtable.com/mobilehelp/scr/0184.htm

 

http://www.foxtable.com/mobilehelp/scr/0185.htm

 

1、多个用户，那就循环发送；

 

2、这句代码帮你替换了 CExp(URL, Functions.Execute("GetAccessToken"))

 

3、说你没有权限，你的公众号没验证？
--  作者：有点蓝
--  发布时间：2017/9/25 8:41:00
--  
1、微信号就是openid，在接收的消息里可以获取（FromUserName），或者在用户关注后事件消息（openid）里也可以获取。

也可以直接调用接口获取：http://www.foxtable.com/mobilehelp/scr/0185.htm

2、3、GetAccessToken函数有没有改为自己的appid和AppSecrect