Foxtable(狐表)用户栏目专家坐堂 → [求助]读取企业微信打卡数据


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

主题:[求助]读取企业微信打卡数据

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


加好友 发短信
等级:四尾狐 帖子:972 积分:7048 威望:0 精华:0 注册:2013/3/31 10:33:00
  发帖心情 Post By:2019/11/22 15:13:00 [显示全部帖子]

Dim st As New Date(1970,1,1,8,0,0)
Dim t1 As Integer = CInt((Date.Today.AddDays(-5)  - 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("GetQYAccessToken1"),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("sunny")
ja.Add("ShuiXian")
jo("useridlist") = ja

hc.Content = jo.Tostring()
output.show(hc.GetData)

同样的问题:返回404!
怎么解决的?

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


加好友 发短信
等级:四尾狐 帖子:972 积分:7048 威望:0 精华:0 注册:2013/3/31 10:33:00
  发帖心情 Post By:2019/11/22 15:14:00 [显示全部帖子]

企业微信后台查看到有考勤数据


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


加好友 发短信
等级:四尾狐 帖子:972 积分:7048 威望:0 精华:0 注册:2013/3/31 10:33:00
  发帖心情 Post By:2019/11/23 11:50:00 [显示全部帖子]

原来是请求地址不正确!
正确的地址:https://qyapi.weixin.qq.com/cgi-bin/checkin/getcheckindata?access_token=ACCESS_TOKEN

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


加好友 发短信
等级:四尾狐 帖子:972 积分:7048 威望:0 精华:0 注册:2013/3/31 10:33:00
  发帖心情 Post By:2019/11/23 14:57:00 [显示全部帖子]

Dim st As New Date(1970,1,1,8,0,0)
Dim t1 As Integer = CInt((Date.Today.AddDays(-3)  - st).TotalSeconds()) '时间戳开始时间
Dim t2 As Integer = CInt((Date.Now - 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("GetQYAccessToken1"),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("zangs")
ja.Add("lishi")
jo("useridlist") = ja

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

If jo("checkindata") IsNot Nothing Then
    ja = jo("checkindata")
    For i As Integer = 0 To ja.Count - 1
        Dim jo2 As JObject =ja(i)
        Dim r As Row =Tables("微信打卡").AddNew()
        r("用户id") = ja(i)("userid").ToString()   '
        r("规则名称") = ja(i)("groupname").ToString()   '
        r("打卡类型")  = ja(i)("checkin_type").ToString()   '
        r("异常类型") = ja(i)("exception_type").ToString()    '
        r("打卡时间") = ja(i)("checkin_time").ToString()     '
        r("打卡地点") = ja(i)("location_title").ToString()    '
        r("地点详情") = ja(i)("location_detail").ToString()    '
        r("wifi名称") = ja(i)("wifiname").ToString()   '
        r("备注") = ja(i)("notes").ToString()         '
        r("MAC地址") = ja(i)("wifimac").ToString()
        r("附件") = ja(i)("mediaids").ToString()
    Next
    Tables("微信打卡").save    
End If
-------------------------
ja(i)("checkin_time").ToString()   这个怎么转回日期date格式?

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


加好友 发短信
等级:四尾狐 帖子:972 积分:7048 威望:0 精华:0 注册:2013/3/31 10:33:00
  发帖心情 Post By:2019/11/23 15:08:00 [显示全部帖子]

我试过,不行。
---------------------------
版本:2018.10.9.1
---------------------------
代码执行出错,错误信息:
System.InvalidCastException: 从字符串“1574208900”到类型“Date”的转换无效。
   在 Microsoft.VisualBasic.CompilerServices.Conversions.ToDate(String Value)
   在 UserCode.Test()
---------------------------
貌似“1574208900”是秒数,不能直接cdate


 回到顶部