- 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=152210)
-- 发布时间：2020/7/9 16:33:00
-- 批量指定用户
你好，我想批量删除企业微信里的帐号
\'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("GetQYAccessTokentxl")))
\'Dim jo As New JObject
\'jo("useridlist") = New Jarray("4835","7476")
里面的帐号我不可能在这个地方一个一个手动去录，
帐号我在一个表里，假如表为 dt，帐号字段为 zh，我怎么把 New Jarray("4835","7476") 这里面的值替换进去
-- 发布时间：2020/7/9 17:01:00
--
dim ja as New Jarray
for eah s as string = dt.getvalues("zh")
js.add(s)
next
jo("useridlist") = ja
-- 发布时间：2020/7/9 21:26:00
--
你好， 我完整代码这样的，但运行后报错，里面如果我用这行就能正常执行 jo("useridlist") =New Jarray("5996","12987")
此主题相关图片如下：报错.png
dt=cmd.ExecuteReader
Dim ja As New Jarray
For Each s As String In dt.getvalues("企业微信工号")
If s IsNot Nothing Then
ja.add(s)
Else
Continue For
End If
Next
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("GetQYAccessTokentxl")))
Dim jo As New JObject
\'jo("useridlist") =New Jarray("5996","12987")
jo("useridlist") =ja
hc.Content= jo.ToString()
jo = JObject.Parse(hc.GetData)
If jo("errcode") = "0" Then
MessageBox.Show("用户删除成功")
Else
MessageBox.Show(jo.ToString)
End If
-- 发布时间：2020/7/9 21:56:00
--
说明没有数据
dt=cmd.ExecuteReader
Dim ja As New Jarray
For Each s As String In dt.getvalues("企业微信工号","企业微信工号 is not null")
ja.add(s)
Next
msgbox(ja.count)
-- 发布时间：2020/7/10 9:54:00
--
数据出来了，但说我数据无效
此主题相关图片如下：无效.png
-- 发布时间：2020/7/10 10:13:00
--
有些userid没有在企业微信里登记，不存在；或者这个应用没有管理其中一些userid的权限