接收消息、及自动回复调试均已经正常，但是我在实验主动发消息时，没有报错，但是我没有接收到消息？布置是何种原因？
Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token={0}"
Dim hc As new HttpClient(Cexp(ur,Functions.Execute("GetQYAccessToken")))
Dim jo As New JObject
jo("touser") = "mazhixin|1000034"
jo("msgtype") = "text"
jo("agentid") = 1000036
jo("text") = New JObject
jo("text")("content") = "您好,这是测试信息"
hc.Content = jo.ToString
jo = JObject.Parse(hc.GetData)
If jo("errcode") = "0" Then
MessageBox.show("消息发送成功!")
Else
MessageBox.show(jo.ToString)
End If
加好友 
发短信
Post By：2019/9/4 13:52:00 [只看该作者]
