我直接复制过来代码:Dim ul As String = "https://qyapi.weixin.qq.com/cgi-bin/user/batchdelete?access_token={0}"
Dim hc As New HttpClient(CExp(ul,Functions.Execute("GetQYAccessToken")))
Dim jo As New JObject
jo("useridlist") = New Jarray("4654","13622")
hc.Content= jo.ToString()
jo = JObject.Parse(hc.GetData)
If jo("errcode") = "0" Then
MessageBox.Show("用户删除成功")
Else
MessageBox.Show(jo.ToString)
End If
但报错,什么原因
此主题相关图片如下:999.png