Foxtable(狐表)用户栏目专家坐堂 → 读取微信考勤


  共有2824人关注过本帖树形打印复制链接

主题:读取微信考勤

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/27 16:15:00 [显示全部帖子]

弹出返回的值看看,如

 

hc.Content = jo.Tostring()
msgbox(hc.GetData)
jo = JObject.Parse(hc.GetData)

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/27 16:22:00 [显示全部帖子]

要发送的参数,一个也不能少

 

https://work.weixin.qq.com/api/doc#11196

 

 

请求示例:

  1. {
  2. "opencheckindatatype": 3,
  3. "starttime": 1492617600,
  4. "endtime": 1492790400,
  5. "useridlist": ["james","paul"]
  6. }

参数说明:

参数 必须 说明
access_token 调用接口凭证。必须使用打卡应用的Secret获取access_token
opencheckindatatype 打卡类型。1:上下班打卡;2:外出打卡;3:全部打卡
starttime 获取打卡记录的开始时间。Unix时间戳
endtime 获取打卡记录的结束时间。Unix时间戳
useridlist 需要获取打卡记录的用户列表
  1. 获取记录时间跨度不超过三个月
  2. 用户列表不超过100个。若用户超过100个,请分批获取
  3. 有打卡记录即可获取打卡数据,与当前”打卡应用”是否开启无关

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/27 16:33:00 [显示全部帖子]

认认真真看3楼,不要照搬代码,灵活变通啊。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/27 17:17:00 [显示全部帖子]

在这里加上参数

 

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


 回到顶部