使用NetBox简单实现ASP封装为EXE带图的详细教程

使用NetBox简单实现ASP封装为EXE带图的详细教程

NetBox是一个使用脚本语言进行应用软件开发与发布的开发环境和运行平台，使用 NetBox，可以完全使用脚本语言(比如 VBScript，Javascript) 创建出稳定高效的应用软件，并且可以平滑移植到从 Windows 98 到 Windows .NET Server 的全部操作系统上。适用范围对于 WEB 应用，可以迅速将已有的iis+asp 的应用平滑移植到NetBox应用中，除极少数高级编程外，代码不需要任何修改，同时NetBox还提供大量扩展部件，使得 WEB 应用更加方便。由于NetBox可以将全部代码最终发布成为应用程序，保护了开发人员的利益和代码的完整性。同时，NetBox还可以方便地编写更多的桌面应用、系统服务器应用、定制网络应用等等。

运行环境要求NetBox的基本运行环境要求很低，最低要求只需要 Windows 98 或者 Windows NT + IE4 即可运行。而如果需要使用系统其他部件(比如ado)，则需要根据系统情况，如果系统本身未缺省安装，需要自行安装。下面列出的是经过测试的所有系统平台：

Windows 98

Windows 98 SE

Windows ME

Windows NT+IE4

Windows 2000

Windows XP

Windows .NET Server

以上为该软件的说明文件内的内容。

简单的形容就是把ASP文件打包成一个EXE文件，并且不需要在调试的机器上安装IIS即可正常调试。如果按照说明书来操作的话，观看比较繁琐，本人为方便大家使用，现制作一个简单的使用教程。

封装过程

1、首先安装NetBox,安装时全部是英文界面，默认安装。

2、准备步骤：

2.1、在任意（如D）盘根目录下建立web文件夹（在哪个盘符下建立都可以，根据自己的喜好变换位置。）；

2.2、把需要封装的ASP文件拷贝至D盘web文件夹下的wwwroot文件夹内（是

拷贝至wwwroot文件夹内哦，免得你的源文件丢失哦）；

2.3、在D盘web文件夹内新建一个main.txt的文本文档，将以下面代码拷贝进去：

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"

httpd.Start

Set htWin= CreateObject("NetBox.HtmlWindow")

htWin.ContextMenu=false

htWin.Width=375

htWin.Height=200

htWin.Title="测试"

htWin.scrollbar=false

htWin.Open "http://127.0.0.1:8222/"

htWin.ShowDialog

'Set Console = Shell.Console

'httpd.Stop

'httpd.Close

'Set httpd = Nothing

else

Shell.Quit 0

end if

End Sub

Sub OnServiceStop()

httpd.Stop

httpd.Close

End Sub

Sub OnServicePause()

Shell.Quit 0

End Sub

Sub OnServiceResume()

httpd.Start

End Sub

box

将以上代码拷贝后保存并把main.txt更名为：main.

代码说明：

host.AddDefault "default.asp" //如果首页文件如果为default.asp就不用修改

host.AddDefault "index.asp" //首如果首页文件如果为index.asp就把default.asp修改为index.asp（*****.html也是相同的方法）

htWin.Open "http://127.0.0.1:80/"//这一行主要意思是用IE浏览器打开htWin.Open "http://127.0.0.1:80/"页面。

If httpd.Create("", 80) = 0 Then//80是指端口，最好是80，也可以改成其他的。

Set host = httpd.AddHost("", "\wwwroot") //wwwroot是指web文件夹下wwwroot文件夹名称

3、开始封装：

3.1、打开桌面上的NetBox Deployment Wizard快捷方式

3.2、单击选择文件夹选中D盘下的web文件夹；

封装后的文件夹所在的位置