今日头条批量上传视频源码附评论管理工具

线程池sss.创建 (到整数 (编辑框5.内容), 到整数 (编辑框5.内容), 1000, 真, )
帐号索引 ＝ 0
.计次循环首 (超级列表框1.取表项数 (), i) ' 循环整个列表
.判断循环首 (真)
空闲数 ＝ 线程池sss.取_空闲线程数 ()
.如果真 (空闲数 ＞ 0)
正在执行数 ＝ 线程池sss.取_执行线程数 ()
剩余上传数 ＝ 到整数 (编辑框4.内容) － 到整数 (超级列表框2.取标题 (帐号索引, 4)) － 正在执行数
超级列表框1.保证显示 (i － 1)
.如果 (剩余上传数 ≤ 0)
.判断循环首 (真)
正在执行数 ＝ 线程池sss.取_执行线程数 ()
剩余上传数 ＝ 到整数 (编辑框4.内容) － 到整数 (超级列表框2.取标题 (帐号索引, 4)) － 正在执行数
空闲数 ＝ 线程池sss.取_空闲线程数 ()
调试输出 (空闲数, 剩余上传数)
.判断开始 (空闲数 ＞ 0 且 剩余上传数 ＞ 0)
跳出循环 ()
.判断 (空闲数 ＞ 0 且 剩余上传数 ≤ 0 且 线程池sss.取_是否空闲 () ＝ 真)
帐号索引 ＝ 帐号索引 ＋ 1
.如果真 (帐号索引 ＋ 1 ＞ 超级列表框2.取表项数 ())
线程池sss.销毁 (0, 0, 真)
输出日志 (“所有帐号处理完毕！”)
返回 ()
.如果真结束
跳出循环 ()
.默认

.判断结束
程序_延时 (5000)
.判断循环尾 ()
跳出循环 ()
.否则
.判断循环首 (真)
.如果真 (线程池sss.投递任务 (&投递任务, i, 帐号索引))
跳出循环 ()
.如果真结束
程序_延时 (10)
.判断循环尾 ()
.如果 (剩余上传数 ≤ 0)
.判断循环首 (真)
正在执行数 ＝ 线程池sss.取_执行线程数 ()
剩余上传数 ＝ 到整数 (编辑框4.内容) － 到整数 (超级列表框2.取标题 (帐号索引, 4)) － 正在执行数
空闲数 ＝ 线程池sss.取_空闲线程数 ()
调试输出 (空闲数, 剩余上传数)
.判断开始 (空闲数 ＞ 0 且 剩余上传数 ＞ 0)
跳出循环 ()
.判断 (空闲数 ＞ 0 且 剩余上传数 ≤ 0 且 线程池sss.取_是否空闲 () ＝ 真)
帐号索引 ＝ 帐号索引 ＋ 1
.如果真 (帐号索引 ＋ 1 ＞ 超级列表框2.取表项数 ())
线程池sss.销毁 (0, 0, 真)
输出日志 (“所有帐号处理完毕！”)
返回 ()
.如果真结束

跳出循环 ()
.默认

.判断结束
程序_延时 (5000)
.判断循环尾 ()
跳出循环 ()
.否则
跳出循环 ()
.如果结束

.如果结束

.如果真结束
程序_延时 (2000)
.判断循环尾 ()
.计次循环尾 ()
线程池sss.销毁 (0, 0, 真)
输出日志 (“所有视频处理完毕！”)