以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  获取企业微信数据  (http://www.foxtable.com/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
--  
谢谢