Error reading JObject from JsonReader. Path '', line 0, position 0.
Dim st As New Date(1970,1,1,8,0,0)
Dim t1 As Integer = CInt((Date.Today.AddDays(-100) - 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("GetQYAccessToken3"))) '企业号应用
Dim jo As New JObject
jo("starttime") = t1
jo("endtime") = t2
hc.Content = jo.Tostring()
jo = JObject.Parse(hc.GetData)
Dim json As String = jo("data").ToString()
Dim ja As JArray = Jarray.Parse(json)
For i As Integer = 0 To ja.Count - 1
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
加好友 
发短信
Post By：2018/6/27 16:08:00 [只看该作者]
