这个工具是本人经常用来测试的，优化后保留了Netbox的核心组件，绿色文件，体积小。
3 P2 i8 I' X/ c$ F& R
把serv.box用记事本打开，里面的各项参数可以自己设定。
复制内容到剪贴板
代码:
Dim httpd
Shell.Service.RunService "NBWeb", "NetBox Web Server", "NetBox Http Server Sample"
'---------------------- Service Event ---------------------
Sub OnServiceStart()
Set httpd = CreateObject("NetBox.HttpServer")
If httpd.Create("", 80) = 0 Then
Set host = httpd.AddHost("", "\wwwroot") //wwwroot为根目录
host.EnableScript = true
host.AddDefault "index.htm"
host.AddDefault "index.html"
host.AddDefault "index.asp"
host.AddDefault "default.asp"
host.AddDefault "default.htm"
host.AddDefault "default.html"
httpd.Start
else
Shell.MsgBox "服务器启动失败，80端口可能被占用!请停止当前WEB服务器或用记事本打开serv.box文件修改端口.","错误提示"
Shell.Quit 0
end if
End Sub
Sub OnServiceStop()
httpd.Close
End Sub
Sub OnServicePause()
httpd.Stop
End Sub
Sub OnServiceResume()
httpd.Start
End Sub
