太菜，看不懂API的用法，照葫芦画瓢抄帮助可以正确使用通讯录的部门和成员，但是打卡记录没有帮助，搜索论坛也找不到可以直接使用的代码，抄了一段如下，3天了还是没读出来。。。希望老大能帮下忙
Dim st As New Date(1970,1,1,8,0,0)
Dim t1 As Integer = CInt((Date.Today.AddDays(-100) - st).TotalSeconds()) '时间戳开始时间
Dim t2 As Integer = CInt((Date.Now - st).TotalSeconds()) '时间戳结束时间
Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/checkin/getapprovaldata?access_token={0}"
Dim hc As New HttpClient(CExp(ur,Functions.Execute("GetQYAccessToken"),1))
Dim jo As New JObject
jo("starttime") = t1
jo("endtime") = t2
jo("opencheckindatatype") = 3 ' 是 打卡类型.1:上下班打卡;2:外出打卡;3:全部打卡
Dim ja As New Jarray '定义数组
ja.Add("用户1")
ja.Add("用户2")
jo("useridlist") = ja
hc.Content = jo.Tostring()
jo = JObject.Parse(hc.GetData)
Dim json As String = jo("data").ToString()
Dim ja As JArray = Jarray.Parse(json)
MessageBox.Show(ja.Tostring)
加好友 
发短信
Post By：2019/5/18 18:54:00 [显示全部帖子]
