需要提交数据的，类似创建、修改部门的用法：
http://www.foxtable.com/mobilehelp/topics/0223.htm
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("GetQYAccessTokenkqdk")))
Dim jo As New JObject
jo("opencheckindatatype") = 3
jo("starttime") = 1492617600
……其它参数参考微信开发文档
hc.Content = jo.ToString()
Dim jo As JObject = JObject.Parse(hc.GetData())
加好友 
发短信
Post By：2020/7/30 22:51:00 [只看该作者]
