你好，我时间获取过来了，但是前面四行，把我那个上下班的设定时间（见附件
此主题相关图片如下：打卡时间.png
）获取过来了，什么原因我完整代码如下
Dim st As New Date(1970,1,1,8,0,0)
Dim kssj,jssj As Long
kssj = (Date.today.adddays(-5) - st).TotalSeconds()
jssj=(Date.today.adddays(1) - st).TotalSeconds()
Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/checkin/getcheckindata?access_token={0}"
Dim hc As New HttpClient(CExp(ur,Functions.Execute("GetQYAccessTokenkqdk")))
Dim jo As New JObject
jo("opencheckindatatype") = 3
jo("starttime") =kssj
jo("endtime") =jssj
jo("useridlist") ="12762"
'……其它参数参考微信开发文档
hc.Content = jo.ToString()
jo = JObject.Parse(hc.GetData())
If jo("errcode") = "0" Then
DataTables("企业微信打卡数据").DataRows.Clear
Dim nms() As String = {"userid","checkin_time"}
For Each jt As JToken In jo("checkindata")
Dim dr As DataRow = DataTables("企业微信打卡数据").AddNew()
For Each nm As String In nms
dr(nm) = jt(nm)
Next
Next
DataTables("企业微信打卡数据").Save()
msgbox(0)
Else
MessageBox.Show(jo.ToString)
End If
加好友 
发短信
Post By：2020/7/30 22:18:00 [显示全部帖子]
