NetBox使用方法 - baobao的日志

NetBox使用方法

电脑技术 2010-03-22 00:43:59 阅读292 评论0 字号：大中小

第一步、安装
1、先将NETBOX安装。一路点下一步。安装好不要去打开主程序
2、我们首先创建一个空目录，如

D:\web（或随便什么目录都行，桌面下都行，但最好是空的，因为方便打包），然后在在目录中创建一个新文件，并命名为：main.box，（也就是在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 的样子
（2）：我把上面代码的主要内容讲一下：
httpd.Create("",
80)是指使用80端口开设服务器，如果不喜欢，可以更改为别的！
那么访问地址后面必须加 :端口号 才能正常访问
Set host = httpd.AddHost("", "\www")
中的www就是你放网站程序的目录。也就是一定要与第二步将建立的目录名称相同！
host.AddDefault
"index.htm"   
--\
host.AddDefault
"index.asp"       
| 这些就是指设置默认首页文件，
host.AddDefault
"default.htm"    
| 你可以自己更改，添加删除一行一个
host.AddDefault
"default.asp"   --/
第二步：

然后在D:\WEB下面创建一个名为 www 的目录，如：d:\web\www
（注意，他和上面的main.box 文件一定要在同一个文件夹里。
然后再在www文件夹中其下创建一个 index.asp
文件，编辑内容如下：
I Love You！
然后保存！
或者将你的asp程序 放到这个目录下比如bbs论坛程序！
三、调试运行
然后，我们双击运行
main.box，这时候，系统托盘处应该出现一个红色的 .b 样的小图标。
好，我们打开浏览器，地址栏输入：127.0.0.1，或 localhost
看看：
如果出现了 I Love You！ ，说明成功了！
如果自己还不会可加我QQ:770157374 加时说明原因。

注意了：如果你的机器正在运行iis或者apache，还有迅雷。那么要先关闭它们。目的是防止这些程序占用80端口。如果你双击“main.box”而没有反应的话，99%是因为你机器上的80端口被占用了。）
;
四、运行为服务
因为这个例程是以服务方式创建的 Web 服务器，所以你可以使用：myapp
-install
将应用安装成为服务，这样，系统无须手动运行便可以自动运行了。
如果需要卸载服务，则可以执行下面的命令：myapp -remove
来删除服务

使用NetBox测试网站

一、创建 asp 运行环境
首先创建一个空的目录，在你喜欢的位置，假设是 d:\web。在目录中创建一个文件：main.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("", "\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

上面的代码摘自《创建一个 WEB 服务器》。其中加粗的部分是缺省文件名，如果你的应用不同，可以自行添加修改。

二、复制 asp 应用
在目录中再创建一个子目录：wwwroot，将你的网站文件中的文件解压到 wwwroot 中。此时，你的 asp 运行环境应该已经准备好了。
三、测试运行
为了运行你刚才新建的 netbox 应用，你必须确认你的 iis 或者其他占用 80 端口的程序已经停止，较大的可能是你的 iis 在使用这个端口，所以最好停止你的 iis，或者将iis 的使用端口更换为其他端口。
在确保 iis 已经停止后，你便可以执行你的 netbox 应用了。双击 main.box 文件，很快，你将在窗口右下角看见 netbox 的图标。此时，netbox 已经正常运行了。你需要做的是使用 ie 访问 http://127.0.0.1 测试你的 asp 应用是否也已经正常运行。一般情况下此时 asp 也已经完全正常运行了。
四、编译
编译的过程是简单的，执行 nbdw.exe。
点 Select Folder，找到刚才我们建立的目录 d:\websvr，点 Browser，设定要生成的执行文件名，点 Build...，开始编译。成功喽……
最后，我们得到了编译成功的那个执行文件，这个就是我们的最后目标。
因为这个例程是以服务方式创建的 Web 服务器，所以你可以使用：myapp -install
将应用安装成为服务，这样，系统无须登录便可以自动运行应用了。如果需要卸载服务，则可以执行下面的命令：myapp -remove