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