TcpServer 对象

创建一个 TCP 服务器，可以方便地创建高性能的多线程服务器

语法

Set tcpd = CreateObject("NetBox.TcpServer")

集合

Contents

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

属性

ConnectLimit	连接限制，可以限制同一 IP 地址最多连接数量，设为零时不限制，缺省为不限制
ConnectTimeout	设定服务器接受连接的的读写超时时间，缺省为不超时
idleWorkers	查询当前服务器空闲的工作线程数
LocalPort	返回服务器当前侦听端口
MaxWorkers	线程池最大线程数，缺省为 256
queueWorks	查询当前队列中排队的任务
Running	返回服务器对象是否正在运行
SSLSessionTimeout	设定服务器 SSL 通道会话超时时间
Timeout	线程池等待时间，如果线程在给定的时间内没有接收到新的任务，将自行退出，缺省为 10 分钟
totalWorks	查询服务器已处理的请求或者任务
Workers	查询当前工作线程总数

方法

Close	关闭服务器对象
Create	创建在指定地址端口一个服务器
EnableSSL	装载服务器使用的私钥和证书
Start	启动服务器
Stop	停止服务器运行

事件

OnAccept

服务器连接接受事件

注释

使用 NetBox.TcpServer 可以创建一个高性能的多线程 TCP 服务器。

示例

下面的例子创建一个 NetBox.TcpServer 对象，在 23(telnet) 端口建立服务器，并启动服务：

Set TcpServer = CreateObject("NetBox.TcpServer")
TcpServer.Create "", 23, "\Accept.wsc"
TcpServer.Start

Shell.Console.ReadLine

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

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

<script language="VBScript">
<![CDATA[
Function OnAccept(Socket, Contents)
    Socket.WriteLine "Hello! I'm here!!!"
End Function
]]>
</script>
</component>

这个例子与 NetBox.Socket 的例子很类似，但是功能实实在在的强大了很多，可以接受多个请求，并且可以同步处理多个请求，主运行程序可以继续做其他工作，等等。