netbox问题， 无法创建NetBox.HttpServer，错误800A01AD

netbox问题， 无法创建NetBox.HttpServer，错误800A01AD

改成这样就可以了：
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("", 8009) = 0 Then

Set host = httpd.AddHost("", "\wwwroot")

host.EnableScript = true

host.AddDefault "index.asp"

host.AddDefault "default.asp"

host.AddDefault "index.htm"

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