这样吗?
Dim ur As String = "https://oapi.dingtalk.com/robot/send?access_token=cd8de653ee106f5b5efb50a4b6ddaea6fa9976b6bd0082acbd67af1766f8894e"
Dim hc As new HttpClient(Cexp(ur,Functions.Execute("GetQYAccessToken")))
Dim jo As New JObject
jo("msgtype") = "text"
jo("content") = "我就是我, @1825718XXXX 是不一样的烟火"
jo("atMobiles") = "1825718XXXX"
jo("isAtAll")=False
hc.Content = jo.ToString
jo = JObject.Parse(hc.GetData)
If jo("errcode") = "0" Then
MessageBox.show("消息发送成功!")
Else
MessageBox.show(jo.ToString)
End If
自定义函数怎么弄出来的?没文件
还有无效http是啥