Dim st As New Date(1970,1,1,8,0,0)
Dim t As Integer = CInt((Date.Now - st).TotalSeconds()) '时间戳
Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/checkin/getcheckinoption?access_token={0}"
Dim hc As New HttpClient(CExp(ur,Functions.Execute("打卡GetQYAccessToken"),0))
Dim jo As New JObject
jo("datetime") = t '设置时间
Dim ja As New Jarray '定义数组
ja.Add("zhangchunguang")
jo("useridlist") = ja
hc.Content = jo.Tostring()
jo = JObject.Parse(hc.GetData)
If jo("errcode") = "0" Then
ja = jo("info")
DataTables("打卡规则").DataRows.Clear
Dim r As Row =Tables("打卡规则").AddNew()
For i As Integer = 0 To ja.Count - 1
Dim jo2 As JObject =ja(i)
r("userid") = ja(i)("userid").ToString()
r("grouptype") = ja(i)("group")("grouptype").ToString()
r("groupid") = ja(i)("group")("groupid").ToString()
r("groupname") = ja(i)("group")("groupname").ToString()
r("sync_holidays") = ja(i)("group")("sync_holidays").ToString()
r("need_photo") = ja(i)("group")("need_photo").ToString()
r("note_can_use_local_pic") = ja(i)("group")("note_can_use_local_pic").ToString()
r("allow_checkin_offworkday") = ja(i)("group")("allow_checkin_offworkday").ToString()
r("allow_apply_offworkday") = ja(i)("group")("allow_apply_offworkday").ToString()
Next
Else
MessageBox.Show(jo.ToString)
End If
加好友 
发短信
Post By：2020/5/4 23:26:00 [只看该作者]
