以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  获取企业微信数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102464)
--  作者：lshshlxsh
--  发布时间：2017/6/20 12:55:00
--  获取企业微信数据
Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/corp/getapprovaldata?access_token={0}"
Dim hc As New HttpClient(CExp(ur,Functions.Execute("GetQYAccessToken"),3010040))
Dim jo As JObject = JObject.Parse(hc.GetData())
If jo("errcode") = "0" Then
    MessageBox.Show(jo.ToString)
Else
    output.Show(jo.ToString)
End If


请问一下如何获取企业微信审批数据？ 我这段代码出现错误如下

{
  "errcode": 301025,
  "errmsg": "get approval param error",
  "data": []
}

[此贴子已经被作者于2017/6/20 17:05:46编辑过]
--  作者：有点蓝
--  发布时间：2017/6/20 14:12:00
--  
参数错误，你没有post参数数据：https://work.weixin.qq.com/api/doc#11228

请求示例：

  1. {
  2.    "starttime":  1492617600,
  3.    "endtime":    1492790400,
  4.    "next_spnum": 201704200003,
  5. }

参数说明：

参数必须说明
access_token是调用接口凭证。必须使用审批应用的Secret获取access_token
starttime是获取审批记录的开始时间。UTC时间戳
endtime是获取审批记录的结束时间。UTC时间戳
next_spnum否第一个拉取的审批单号，不填从该时间段的第一个审批单拉取
--  作者：lshshlxsh
--  发布时间：2017/6/20 16:18:00
--  
Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/corp/getapprovaldata?access_token={0}?&sp_status=2"
Dim hc As New HttpClient(CExp(ur,Functions.Execute("GetQYAccessToken"),1))
Dim jo As JObject = JObject.Parse(hc.GetData())
If jo("errcode") = "0" Then
    Output.Show("aa")
Else
    output.Show(jo.ToString)
End If



sp_status审批状态：1审批中；2 已通过；3已驳回；4已取消
{
  "errcode": 40014,
  "errmsg": "invalid access_token"
}

[此贴子已经被作者于2017/6/20 16:19:38编辑过]
--  作者：有点色
--  发布时间：2017/6/20 16:30:00
--  

 参考代码

 

Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/corp/getapprovaldata?access_token={0}"
Dim hc As new HttpClient(Cexp(ur,Functions.Execute("GetQYAccessToken")))
Dim jo As New JObject
jo("starttime") = "1492617600"
jo("endtime") = "1492790400"
hc.Content = jo.ToString
msgbox(hc.GetData)

 

 
--  作者：lshshlxsh
--  发布时间：2017/6/20 16:31:00
--  
谢谢