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 封装网站技术，本站将在以下的文章中详细介绍