按照上面的网址下载,然后正常解压安装
创建一个空白文件夹,在文件夹内创建一个main.box,如果第一步成功,那么这个main.box会被赋予.b的红色图标,如果没有那就重新安装。
main.box内容:
Dim httpd
Shell.Service.RunService "NBWeb", "NetBox Web Server", "NetBox Http Server Sample"
Sub OnServiceStart()
Set httpd = NetBox.CreateObject("NetBox.HttpServer")
If httpd.Create("", 80) = 0 Then
Set host = httpd.AddHost("", "www")
host.EnableScript = true
host.AddDefault "index.htm"
host.AddDefault "index.asp"
host.AddDefault "default.htm"
host.AddDefault "default.asp"
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
If httpd.Create(“”, 80) = 0 Then这是端口号;
Set host = httpd.AddHost(“”, “www”)这是下载文件的地址
其余没啥了。
只是自己记录使用,目前只有这一个需求,后续再拓展吧