netbox开启服务后自动访问首页

netbox开启服务后自动访问首页

Dim httpd

Shell.Service.RunService "NBWeb", "NetBox Web Server", "NetBox Http Server Sample"

'---------------------- Service Event ---------------------

Sub OnServiceStart()
Set httpd = NetBox.CreateObject("NetBox.HttpServer")

If httpd.Create("", 800) = 0 Then
Set host = httpd.AddHost("", "\wwwroot")

host.EnableScript = true
host.AddDefault "index.html"

httpd.Start
else
Shell.Quit 0
end if
Set ht = CreateObject("NetBox.HtmlWindow")
ht.open " http://localhost/index.html "
ht.showDialog
End Sub

Sub OnServiceStop()
httpd.Close
End Sub

Sub OnServicePause()
httpd.Stop
End Sub

Sub OnServiceResume()
httpd.Start
End Sub