Dim httpd

'------------设置在服务中运行的名称，可适当修改进行隐藏---------------------
　　Shell.Service.RunService "NBWeb", "NetBox Web Server", "NetBox Http Server Sample"
　　'---------------------- 设置服务器启动---------------------
　　Sub OnServiceStart()
　　  Set httpd = CreateObject("NetBox.HttpServer")
　　'-------以下设置浏览端口，可修改为其他参数，或更改wwwroot目录----
　　  If httpd.Create("", 8080) = 0 Then
　　  Set host = httpd.AddHost("", "\wwwroot")
　　  host.EnableScript = true
　　  host.AddDefault "default.asp"
　　  host.AddDefault "default.htm"
　　  httpd.Start
　　  else
　　  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