netbox开启服务后自动访问首

 1 
 2 
 3 Dim httpd
 4 
 5 
 6 
 7 Shell.Service.RunService "NBWeb", "NetBox Web Server", "NetBox Http Server Sample"
 8 
 9 '---------------------- 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