你好,我时间获取过来了,但是前面四行,把我那个上下班的设定时间(见附件
此主题相关图片如下:打卡时间.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