HttpServer 对象

创建一个 HTTP 服务器，支持虚拟服务器、SSL、服务器脚本

语法

Set httpd = CreateObject("NetBox.HttpServer")

集合

Contents

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

属性

ConnectLimit	连接限制，可以限制同一 IP 地址最多连接数量，设为零时不限制，缺省为不限制
ConnectTimeout	设定服务器接受连接的的读写超时时间，缺省为不超时
DownloadWorkers	查询当前服务器正在发送数据的项目数
idleWorkers	查询当前服务器空闲的工作线程数
LocalPort	返回服务器当前侦听端口
MaxRequestEntity	查询和设定 Http 服务器最大允许提交的 Form 尺寸
MaxWorkers	线程池最大线程数，缺省为 256
queueWorks	查询当前队列中排队的任务
Running	返回服务器对象是否正在运行
SSLSessionTimeout	设定服务器 SSL 通道会话超时时间
Timeout	线程池等待时间，如果线程在给定的时间内没有接收到新的任务，将自行退出，缺省为 10 分钟
totalBytes	查询服务器已经输出数据的字节数，不包括 HTTP 响应头
totalWorks	查询服务器已处理的请求或者任务
Workers	查询当前工作线程总数

方法

AddHost	为已经创建的服务器添加新的虚拟主机
AttachHost	将已经建立的虚拟主机对象以指定的主机名添加到已经创建的服务器
Close	关闭服务器对象
Create	创建在指定地址端口一个 HTTP 服务器
EnableSSL	装载服务器使用的私钥和证书
Start	启动服务器
Stop	停止服务器运行

注释

使用 HttpServer 对象可以创建一个高性能的多线程 Web 服务器，并可以根据需求设定虚拟主机，执行权限等执行参数。

新创建的服务器不包含主机信息，需要使用 AddHost 方法建立主机信息后才能正确运行。

示例

下面的代码创建一个 HttpServer 对象，初始化一个主机，并启动服务器，等待用户输入回车后退出。

Set Console = Shell.Console
Set httpd = CreateObject("NetBox.HttpServer")

If httpd.Create("", 80) = 0 Then
    Set host = httpd.AddHost("", "\wwwroot")
    host.AddDefault "default.htm"
    httpd.Start

    Console.ReadLine

    httpd.Stop
    httpd.Close
End If

Set httpd = Nothing