JobServer 对象

任务服务器，建立线程池来完成大量重复的任务

语法

Set jobs = CreateObject("NetBox.JobServer")

集合

Contents

基本集合，使用标准内部对象 Dictionary 存放数据

属性

AutoStop	设定任务服务器关闭时是否自动中止服务，缺省为 false
idleWorkers	查询当前服务器空闲的工作线程数
MaxWorkers	线程池最大线程数，缺省为 256
queueWorks	查询当前队列中排队的任务
Timeout	线程池等待时间，如果线程在给定的时间内没有接收到新的任务，将自行退出，缺省为 10 分钟
totalWorks	查询服务器已处理的请求或者任务
Workers	查询当前工作线程总数

方法

Add	添加一个任务到任务队列
Clear	清除队列中未处理的任务
Close	关闭当前的任务服务器
Create	创建一个任务服务器并指定任务处理程序和最大任务队列
Stop	中断全部未完成的任务

事件

OnAccept

服务器连接接受事件

注释

JobServer 用于创建一个高性能的线程池以完成用户提交的大批量的重复任务，从而满足多线程完成任务的需求。

示例

下面的例子实例化一个 JobServer 对象，创建一个任务服务器，并添加任务。

Set JobServer = CreateObject("NetBox.JobServer")
JobServer.Create "\Accept.wsc"
JobServer.Add 100
JobServer.Add 200

Console.ReadLine

任务服务器的接受脚本部件文件 Accept.wsc 内容如下：

<?xml version="1.0"?>
<component>
<public>
    <method name="OnAccept"/>
</public>

<script language="VBScript">
<![CDATA[
Function OnAccept(Job, Contents)
    ……
End Function
]]>
</script>
</component>