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
加好友 
发短信
Post By：2017/9/23 21:05:00 [显示全部帖子]
