主题：获取企业微信数据

 参考代码

Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/corp/getapprovaldata?access_token={0}"
Dim hc As new HttpClient(Cexp(ur,Functions.Execute("GetQYAccessToken")))
Dim jo As New JObject
jo("starttime") = "1492617600"
jo("endtime") = "1492790400"
hc.Content = jo.ToString
msgbox(hc.GetData)