[网络工具] 网络盒子，快速搭建asp网站

happy886rr

网络盒子 又叫netbox，很老一个软件，已去壳汉化。数秒内快速搭建asp网站服务器，虽说过时，但可以自定地box脚本。
比如配置一个简单的服务器

Dim httpd
Shell.Service.RunService "NBWeb", "NetBox Web Server", "NetBox Http Server Sample"
'---------------------- Service Event ---------------------

Sub OnServiceStart()
Set httpd = CreateObject("NetBox.HttpServer")
If httpd.Create("", 80) = 0 Then
Set host = httpd.AddHost("", "\www")
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
复制代码

codegay

很老了。
原作者在GITHUB上开源了。

happy886rr

回复 2# codegay
多谢提示，去爬它的源码去。

codegay

回复 3# happy886rr


    作者 响马 微博上可以关注他。