- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 获取企业微信数据 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=153094)
-- 发布时间：2020/7/30 22:18:00
-- 获取企业微信数据
你好我想获取企业微信考勤打卡的数据，我建了一个GetQYAccessTokenkqdk，但报错，什么原因
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 JObject = JObject.Parse(hc.GetData())
此主题相关图片如下：打卡报错.png
-- 发布时间：2020/7/30 22:51:00
--
需要提交数据的，类似创建、修改部门的用法：http://www.foxtable.com/mobilehelp/topics/0223.htm
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") = 1492617600
……其它参数参考微信开发文档
jo("opencheckindatatype") = 3
jo("starttime") = 1492617600
……其它参数参考微信开发文档
hc.Content = jo.ToString()
Dim jo As JObject = JObject.Parse(hc.GetData())
-- 发布时间：2020/7/31 8:24:00
--
我完整的代码是这样的呀，他现在是errcode这里就报错
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 JObject = 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()
Else
MessageBox.Show(jo.ToString)
End If
-- 发布时间：2020/7/31 9:28:00
--
没有提交数据啊，请仔细认真看看2楼
-- 发布时间：2020/7/31 10:35:00
--
不是呀，我不知道是你理解有误，还是我理解有误（创建，修改部门是需要提交数据，但我现在好比只获取部门信息呀，我要提交什么数据呢）
我现在不需要提交数据呀，我只是把企业微信里的打卡数据获取过来就行了呀
[此贴子已经被作者于2020/7/31 10:36:51编辑过]
-- 发布时间：2020/7/31 10:41:00
--
把企业微信里的打卡数据获取过来需要提交获取的条件数据，比如获取什么类型的打卡数据？获取谁的打开数据？麻烦先把企业微信的开发文档好好看一看
请求方式：POST（HTTPS）
请求地址：https://qyapi.weixin.qq.com/cgi-bin/checkin/getcheckindata?access_token=ACCESS_TOKEN
请求示例：
{"opencheckindatatype": 3,"starttime": 1492617600,"endtime": 1492790400,"useridlist": ["james","paul"]}
参数说明：
| 参数 | 必须 | 说明 |
|---|---|---|
| access_token | 是 | 调用接口凭证。企业必须使用打卡应用的Secret获取access_token |
| opencheckindatatype | 是 | 打卡类型。1：上下班打卡；2：外出打卡；3：全部打卡 |
| starttime | 是 | 获取打卡记录的开始时间。Unix时间戳 |
| endtime | 是 | 获取打卡记录的结束时间。Unix时间戳 |
| useridlist | 是 | 需要获取打卡记录的用户列表 |
-- 发布时间：2020/8/2 9:39:00
--
现在是这样的，我数据能读取过来了，但这里的时间是Unix时间戳，我实际使用的时候需要转换，这个在狐表里需要转换吗，怎么转换
还有，我取过来的数据，他要把那个设置的时间（见附件）也取过来，什么原因
此主题相关图片如下：565656.png
-- 发布时间：2020/8/2 10:28:00
--
参考这里CreateTime的用法：http://www.foxtable.com/mobilehelp/topics/0176.htm
-- 发布时间：2020/8/3 10:04:00
--
你好，这个unix时间戳我还是转换不来
你可以指点一下代码吗
比如说我要获取昨天的打卡数据，
我代码应该怎么写
-- 发布时间：2020/8/3 10:11:00
--
Dim st As New Date(1970,1,1,8,0,0)
dim 时间戳 as long = (Date.today.adddays(-1) - st).TotalSeconds()
msgbox(时间戳)