Foxtable(狐表) → 用户栏目 → 专家坐堂 → 批量指定用户


  共有2360人关注过本帖树形打印复制链接

主题：批量指定用户
帅哥哟，离线，有人找我吗？
13968559581
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：185 积分：1526 威望：0 精华：0 注册：2017/7/23 17:17:00 		批量指定用户  发帖心情 Post By：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") 这里面的值替换进去
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
13968559581
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：185 积分：1526 威望：0 精华：0 注册：2017/7/23 17:17:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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)
 回到顶部
帅哥哟，离线，有人找我吗？
13968559581
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：185 积分：1526 威望：0 精华：0 注册：2017/7/23 17:17:00 		  发帖心情 Post By：2020/7/10 9:54:00 [只看该作者]

数据出来了，但说我数据无效


图片点击可在新窗口打开查看此主题相关图片如下：无效.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/10 10:13:00 [只看该作者]

有些userid没有在企业微信里登记，不存在；或者这个应用没有管理其中一些userid的权限

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03601 秒, 4 次数据查询