用测试号测试主动发消息成功。正式号主动发送报错1。换成正式号后，GetAccessToken函数中的appid、appsecret 已经换回了正式号
2。命令窗口中测试：Output.Show(access_token) 。成功显示
3。命令窗口测试代码：
Dim access_token As String = Functions.Execute("GetAccessToken")
Output.Show(access_token)
Dim jo As New JObject
jo("touser") = "gh_57f96ca84eb2"
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
此主题相关图片如下：出错.png
加好友 
发短信
Post By：2020/1/4 10:59:00 [显示全部帖子]
Post By：2020/1/6 15:25:00 [显示全部帖子]
