Dim ul As String = "https://qyapi.weixin.qq.com/cgi-bin/checkin/getcheckindata?access_token={0}&opencheckindatatype={1}&starttime={2}&endtime={3}"
Dim AccessToken = Functions.Execute("GetQYAccessToken") 'AccessTiken
Dim Date2 As Date = Date.now
Dim Date1 As Date = Date2.Adddays(-3)
Dim st As New Date(1970,1,1,8,0,0)
Dim starttime As Integer = CInt((Date1 - st).TotalSeconds()) '时间戳
Dim endtime As Integer = CInt((Date2 - st).TotalSeconds()) '时间戳
Dim opencheckindatatype As Integer = 3
Dim hc As New HttpClient(CExp(ul,AccessToken,opencheckindatatype,starttime,endtime))
Dim jo1 As New JObject
jo1("useridlist") = New Jarray("2222","yanglm")
hc.Content= jo1.ToString()
Dim jo As JObject = JObject.Parse(hc.GetData)
If jo("errcode") = "0" Then
MessageBox.Show(jo("errmsg"))
MessageBox.Show(jo("checkindata"))
Else
MessageBox.Show(jo.ToString)
End If
加好友 
发短信
Post By：2018/4/30 12:47:00 [只看该作者]
此主题相关图片如下：qq图片20180430154941.png
