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

最新推荐文章于 2024-06-10 10:02:02 发布

看淡烟云

最新推荐文章于 2024-06-10 10:02:02 发布

阅读量6.4k

点赞数

分类专栏： netbox 文章标签： netbox

本文链接：https://blog.csdn.net/zhaoyipei1977/article/details/70340929

版权

netbox 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

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