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编辑过]