Dim hc As new HttpClient("https://qyapi.weixin.qq.com/cgi-bin/checkin/getcheckin_daydata?access_token=" & 加密接口 )
hc.ContentType = "application/json"
Dim jo As New JObject
jo("starttime") = "1599062400"
jo("endtime") = "1599062400"Dim ja As New Jarray
jo("useridlist") = ja
ja.Add("YY001")
ja.Add("YY002")
hc.Content = jo.tostring
Output.Show(hc.GetData)