background image

这里有教程

 

下面是 使用方法,简单介绍一下:

一、安装

1、先将 NETBOX 安装。跟普通软件安装没有什么两样的!略过!

2

 

、我们首先创建一个空目录,如 D:\web(或随便什么目录都行,桌面下都行,

但最好是空的,因为方便打包),然后在在目录中创建一个新文件,并命名
为:main.box,修改其内容如下:

Dim httpd
Shell.Service.RunService "NBWeb", "NetBox Web Server", "NetBox 
Http Server Sample"
Sub OnServiceStart()
Set httpd = 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
最后保存!

说明:
(1):如果你成功安装了网络盒子,那么他的后缀是可以被识别的,图标 

 

为红色 .b 的样子