再过半个小时就是十一了,先祝大家双节快乐,比较国庆和中秋同时放假的机会难得,大家一定要抓住机会好好放松一下哦!
最近一直没有时间,也没有什么心情来写日志,百度最近的算法调整让我很是郁闷,虽然收录量有所上升,但针对此次算法调整之后的应对策略一直没有研究出来,很是郁闷!
先不说这个了,今天看到有网友问打包程序,就说一下打包程序吧。
流程先简单介绍一下:
1、先写程序,用ASP+Access,这是前题,因为NexBox只支持Asp,程序开发完成后后,全部文件和数据库都放在一个目录里面,例如wwwroot,然后再建立一个文件夹,命名自定义,这里举例为balldata,即目录结构为:
balldata
|-wwwroot
|-文件及数据库
2、下载NexBox 2.8,并安装,官方下载地址为:http://www.netbox.cn:88/download/index.htm ,另还有帮助文档也可一并下载,你也可以通过本站下载,下载地址为:nbsetup.rar
3、配置NexBox,具体步骤如下:
1)在balldata下面建立一个记事本,命名为main.box,注意后缀名为.box,用记事本打开并把以下代码粘贴进去
Shell.Service.RunService ”DataAnalyse”, ”NetBox Web Server”, ”DataAnalyse software 数据管理分析系统”
‘Shell.service.Name = ”DataAnalyse V1.0″
‘Shell.service.DisplayName = ”数据管理分析系统”
‘Shell.service.Description = ”数据管理分析系统 V1.0″
‘Shell.Service.Desktop = True
‘Shell.Service.TrayIcon = True
‘Shell.Service.Icon ”ok.ico”
‘———————- Service Event ———————
Sub OnServiceStart()
Set httpd = NetBox.CreateObject(“NetBox.HttpServer”)
If httpd.Create(“”, 5678) = 0 Then
Set host = httpd.AddHost(“”, ”\wwwroot”)
host.EnableScript = true
host.AddDefault ”index.asp”
host.AddDefault ”index.htm”
host.AddDefault ”index.html”
httpd.Start
‘自定义内容,这里是重点,
Set ht = CreateObject(“NetBox.HtmlWindow”)
‘控制显示窗口
ht.scrollbar = false
ht.resizable = false
ht.ContextMenu = false
ht.MaximizeBox = false
ht.MinimizeBox = true
‘ht.Maximized = true
ht.height = 680
ht.width = 1024
ht.Center
‘ht.ReSizeTo 700, 560
ht.Title=”数据管理分析系统 V1.0″
ht.Icon = ”ok.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 ”ok.ico”
Case 151
httpd.Stop
Shell.Service.Icon ”no.ico”
Case 152
’重新启动
Shell.Service.Restart
Case 153
’//打开支持站点
Shell.Execute ”http://www.cookseo.com”
Case 154
Shell.MsgBox ”数据管理分析系统 V1.0″&vbcrlf&”"&vbcrlf&”该软件为共享软件,可自由传播、使用。”&vbcrlf&”"&vbcrlf&”2009 - 2012 Powered By daniel”,”数据管理分析系统”,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
具体的意思我就不解释了,目前这个代码基本上能满足一般的需求,我也是费了很大的劲才整理出来的,不明白的可以到网上搜索一下或者给我留言,我会尽量解释清楚.
先抓张图,看一下现在的目录结构,如果和下面的图片一样的话,就没有问题,有个ok.icon图标是用来显示在程序界面最左上角的:
然后双击NexBox.exe,打开打包程序,参数配置如下:
继续加油,马上就成功了!点击Build就可以生成程序了,再找到生成程序的位置,双击程序就可以运行了。
好了,大致过程就是这样,有一些细节我没有说出来,如果有疑问,欢迎提出来大家交流!
我把我做的打包出来,给大家做个参考,密码是123456,附上下载地址:
DataAnalyse.rar
再次祝大家十一快乐!中秋快乐!
感谢分享,我试试先~
下载了,到本机上运行你原来的那个代码是一切正常的。但我自己写的asp程序,却总是出错,不知道是什么原因?
问题已经解决了,但是我发现这个打包的也可以把源文件解密出来,不能彻底保护源代码。
现在打包的网站能运行了,就是需要查询数据库的页面显示:数据库连接错误。
没打包的时候没问题。
我怎么打包成exe文件以后就出现找不到页面的错误:
404 File Not Found
——————————————————————————–
Host by NetBox Version 2.8 Build 4128
没打包的时候可以正常浏览网站,编译成exe就不行了,编译方法跟你上面写的一样。
楼主能不能发些NETBOX的技术资料给我呢?(比喻你上面的main.box)我对NETBOX只知道一般的资料。到NETBOX的官网去又看不明白. 比喻怎样用NETBOX做成一个桌面. 我也很想学一学SEO优化.
邮箱loay007@163.com QQ:185560172
楼主,为什么打包成的exe像有些页面没有滚动条呢?这个东西是还需设置的吗?
[双击没有启动,可能的原因是端口有冲突,或者是杀毒软件、防火墙的原因造成的。
尝试个性main.box里面的端口
If httpd.Create("", 5678) = 0 Then
把5678换成别的试一下,把杀毒软件或者迅雷、BT之类的软件也退出试一下,再不行的话联系我。]
都不是这些原因,因为你的“数据分析..”我能打开,我自己做的虽然打不开页面,但右下角的小
图标时出现的,端口我用了2345。因此我估计我没处理好“缺省文件”,请指教一下如何出路缺省文件?
楼主有没有nexbox传个给我呀 那网站下不了了.. 谢谢
我一天12小时在线:QQ 365508392 邮箱:chinasjl@126.com
谢谢大哥!总算编译成功了,可是双击那个大红.b就是打不开,还望大哥再次指教!
谢谢!
[daniel 于 2009-10-14 23:33:55 回复
你需要先安装NetBox程序,然后用NetBox先打包一下文件夹,之后就会出现netbox了。
404是找不到页面,不是禁止访问!]
NetBox程序当然已经按装啦,先打包那个文件夹呀是不是兴建的那个?
我用了《用NetBox级ASP程序打包流程简介》的方法试了试,结果不能如愿:1、浏览器不能显,只显示了…404…(禁止访问),但我下载了你做的,就显示正常了。2、balldata中没有netbox。请大哥详解!
楼主牛人啊!一直幻想把自己的asp弄成个.exe的,没想到今天如愿了
老兄,真强悍,自己写的程序!
这个是压缩的吗?
不错不错!一会儿送完女友上班回来后好好实践一下哈哈