main.box源码用网络盒子本地调试Asp程序

以下是本人收集的 main.box 中控制生成可执行程序窗体实现不同功能和效果的代码很不错：

ht.caption                   '控制是否显示标题栏
ht.toolwindow=false          '控制是否在任务栏显示
ht.topmost=true              '控制在最前端显示
ht.scrollbar=false           '是否显示滚动条
ht.resizable=false           '是否允许调整窗体大小
ht.maximizebox=true          '是否允许最大化
ht.minimizebox=true          '是否允许最小化
ht.maximized=ture            '窗口最大化
ht.height=600                '高
ht.width=400                 '宽
ht.center                    '距屏幕中间显示窗体
ht.resizeto 100,200          '移动左右..
ht.icon="biaozhi.ico"        '窗体标题栏标志

 

main.box  源码：

以下是代码片段：

Dim httpd
Shell.Service.RunService "DataAnalyse", "NetBox Web Server", "DataAnalyse software WEB"
Shell.service.Name = "MM pic"
Shell.service.DisplayName = "MMPHOTOS"
Shell.service.Description = "MMPHOTOS"
Shell.Service.Desktop = true
Shell.Service.TrayIcon = True
Shell.Service.Icon "ico.ico"
'---------------------- Service Event ---------------------
Sub OnServiceStart()
Set httpd = NetBox.CreateObject("NetBox.HttpServer")
If httpd.Create("", 5678) = 0 Then
Set host = httpd.AddHost("", "\www")
host.EnableScript = true
host.AddDefault "index.asp"
host.AddDefault "index.htm"
host.AddDefault "index.html"
httpd.Start
'自定义内容，这里是重点，
Set ht = CreateObject("NetBox.HtmlWindow")
'控制显示窗口
'ht.Caption=false '控制不显示标题栏
'ht.ToolWindow = false '控制不在任务栏显示
'ht.TopMost = true
'ht.scrollbar = false '无变化
ht.resizable = true '控制手动调整大小
'ht.ContextMenu = true '无变化
ht.MaximizeBox = true '无变化 因为已经隐藏标题栏
ht.MinimizeBox = true '无变化 因为已经隐藏标题栏
ht.Maximized = true '控制窗口最大化
'ht.height = 680 '控制窗口高度
'ht.width = 960 '控制窗口宽度
'ht.scrollbar = false '有无滚动条
'ht.Center = true
'ht.ReSizeTo 700, 560
ht.Title="冲破视觉的科幻壁纸-高清-宽屏(梦幻世界·AHB1987制作)"
ht.Icon = "ico.ico"
'自动打开窗口
ht.Open "http://127.0.0.1:5678/" '使打开本软件；自动打开某链接。
ht.showDialog
Shell.Quit 0
Shell.Service.AppendCommand "150","开启系统服务"
Shell.Service.AppendCommand "151","停止系统服务"
Shell.Service.AppendCommand "152","重启系统服务"
Shell.Service.AppendCommand "-1",""
Shell.Service.AppendCommand "153","支持站点"
Shell.Service.AppendCommand "154","关于数据管理分析系统"

else
Shell.Quit 0
end if
End Sub

Sub OnServiceCommand(n)
Select Case n
Case 150
httpd.Start
Shell.Service.Icon "ico.ico"
Case 151
httpd.Stop
Shell.Service.Icon "ico.ico"
Case 152
'重新启动
Shell.Service.Restart
Case 153
'//打开支持站点
Shell.Execute "http://www.sql8.net/"
Case 154
Shell.MsgBox "网站"&vbcrlf&""&vbcrlf&"网站用"&vbcrlf&""&vbcrlf&"2012年","梦幻世界",0
Case Else
Exit Sub
End Select
End Sub
Sub OnServiceStop()
httpd.Close
End Sub
Sub OnServicePause()
httpd.Stop
End Sub
Sub OnServiceResume()
httpd.Start
End Sub

使用方法：

1、将以上 main.box 代码复制到记事本，保存为 main.box ；必须是 .box 的扩展名

2、建立一个 www 的文件夹与 main.box 放在同一个目录

3、将你要测试的 asp 源码放到 www 文件夹中，运行 main.box 即可

4、main.box 中的某些内容根据自己的需要自行修改

5、如果要封装网站（将网站封装成一个可执行程序），并且使用ico图标，请将ico图片放到www文件夹中

注意：

如果无法识别 main.box 请先 按照网络盒子（netbox），就可以使用了；

Netbox 封装网站技术，本站将在以下的文章中详细介绍