设为首页收藏本站订阅更新

无忧脚本

 找回密码
 加入无忧

QQ登录

只需一步,快速开始

搜索
查看: 7412|回复: 10

[求助] 求助netbox编译后单独运行的问题。

[复制链接]
发表于 2007-12-22 13:13:28 | 显示全部楼层 |阅读模式
前几日有兄弟翻出了biyuan版主的老贴子:http://bbs.51js.com/viewthread.php?tid=43933&page=2#pid535177

其中biyuan版主在第二楼提供了一个程序下载:“msgbox模拟winxp窗口.exe”

我下载回来后运行,发现有几个地方让我有很大兴趣想要学习并学会:

 一、双击此程序运行后,就像是一个普通的例如用VB等开发出来的应用软件一样,在任务栏有窗口显示,在托盘处没有netbox的红色b字图标。
 二、此程序是一个HTML+JS的网页,经过netbox编译成exe后运行,不需要在浏览器里再输入:http://localhost来打开网页,而且显示的窗口皮肤就是网页中做出来的皮肤效果。


在弟在此请教各位:

  我应该怎么做才能做成像biyuan版主的那个“模拟winxp窗口.exe”程序一样呢?
  我用biyuan版主给的方法,把这个“模拟winxp窗口.exe”程序里的源码及图片都扣下来了,普通的用浏览器打开运行正常(但是窗口的最大化、最小化、关闭、改变窗口大小等功能就无法用),但是我用netbox编译成exe后,运行此EXE程序,在托盘里显示一个红色的b图标,而且还需要我在浏览器里再输入:http://localhost/才能运行,这样一来跟我双击打开HTML文件来运行没什么区别了。我需要做到的是经过netbox编译后,能与biyuan版主发布的这个程序一样的运行方式。。。

 
先在此谢谢各位!!
发表于 2007-12-22 13:32:45 | 显示全部楼层
按ctrl+n可以查看源码
把文件单独保存后
建个JavaScript工程 然后输出就可以了
不需要建ASP服务器
那样只能浏览器打开
比如:

#language javascript

var ht = new ActiveXObject("Netbox.HtmlWindow");//创建一个HtmlWindow对象

ht.Width = 756;//设定窗口的宽
ht.Height = 584;//设定窗口的高
ht.Center
ht.scrollbar = false;//设定窗口无滚动条
ht.MinimizeBox
ht.open("Netbox:/wwwroot/index.htm");//设定打开的页面 文件位置

ht.showDialog();//显示窗口
发表于 2007-12-22 13:33:26 | 显示全部楼层
Set ht = CreateObject("NetBox.HtmlWindow")
ht.ToolWindow = true
ht.TopMost = true
ht.SetTransparentMask "netbox:/XP窗口.gif"
ht.open "netbox:/xxxx.htm"
ht.DropShadow = true
ht.showDialog

其中XP窗口.gif为窗口风格的图片。
 楼主| 发表于 2007-12-22 14:09:19 | 显示全部楼层
谢jiusky及21EClub两位兄弟,我这就去试一下先。再次表示感谢。
发表于 2007-12-22 14:18:29 | 显示全部楼层
嘻嘻,我的发帖只比jiusky慢了一秒。
 楼主| 发表于 2007-12-24 17:13:14 | 显示全部楼层
用大家教的方法,加上自己看那个netbox的手册,我贴子内容所需要的效果已经实现了。。。可是,我想再进一步,把ASP代码也打包进这个独立的窗口中来运行,才发现,行不通。。。郁闷得我。。。

我还幻想着既然能自定义窗口独立运行,又可以自己设置窗口皮肤,如果我把ASP代码打包进去,岂不是能做得像一个真正的客户端软件一样了。。。:lol :lol 。。。不过还是失望了,我试了两天还是不成功。。。

这么说,要想运行ASP,则必须在运行了netbox的main.box后,再在浏览器里输入:http://localhost才行。而如果只是单纯的客户端代码(不涉及服务器端脚本),则可以脱离浏览器来独立运行。。。只是,这样我就没看出来这有什么意义了。。。

再次向各位大大们求教!!!
发表于 2008-6-29 19:23:29 | 显示全部楼层
httpd...这怎么能不用呢
发表于 2008-6-29 19:43:49 | 显示全部楼层
#language JScript
var httpd;
Shell.Service.RunService("byweb", "biyuan Web Server", "biyuan Http Server Sample");
function OnServiceStart(){
        httpd = new ActiveXObject("NetBox.HttpServer");
        if(httpd.Create("",  8080) == 0){
                var host = httpd.AddHost("", "\wwwroot");
                host.EnableScript = true;
                host.AddDefault("index.asp");
                httpd.Start();
                OpenFrm("http://localhost:8080");
        }
        else{
                Shell.Quit(0);
        }
}
function OpenFrm(urlStr){
        var htWin = new ActiveXObject("NetBox.HtmlWindow");
        htWin.Center;
        htWin.Open(urlStr);
        htWin.Maximized = true;
        htWin.Icon = "netbox:/wwwroot/ico.ico";
        htWin.ShowDialog;
        Shell.Quit(0);
}
发表于 2008-7-3 22:47:55 | 显示全部楼层

vbs 版

  1. Dim htWin
  2. Dim httpd
  3. Shell.Service.RunService "NBWeb"
  4. Sub OnServiceStart()
  5.     Set httpd = NetBox.CreateObject("NetBox.HttpServer")

  6.     If httpd.Create("",1099) = 0 Then
  7.         Set host = httpd.AddHost("", "wwwboot")
  8.         host.EnableScript = true
  9.         host.AddDefault "default.asp"
  10.         host.AddDefault "default.htm"
  11.         host.AddDefault "index.asp"
  12.         host.AddDefault "index.htm"
  13.         httpd.Start
  14.                
  15.                 Set htWin= CreateObject("NetBox.HtmlWindow")
  16.                 htWin.icon = "css/ico.ico"
  17.                 htWin.width = 500
  18.                 htWin.height = 320
  19.                 htWin.Open "http://127.0.0.1:1099/"
  20.                 htWin.center
  21.                 htWin.ShowDialog
  22.                 Shell.Halt 0
  23.     else
  24.         Shell.Quit 0
  25.     end if
  26. End Sub

  27. Sub OnServiceStop()
  28.     httpd.Close
  29. End Sub

  30. Sub OnServicePause()
  31.     httpd.Stop
  32. End Sub

  33. Sub OnServiceResume()
  34.     httpd.Start
  35. End Sub
复制代码

[[I] 本帖最后由 eisn 于 2008-7-3 22:49 编辑 [/I]]
发表于 2012-6-10 16:08:11 | 显示全部楼层
谢了
发表于 2015-4-29 23:32:06 | 显示全部楼层
netbox编译后单独运行  试试scrun.dll问题
您需要登录后才可以回帖 登录 | 加入无忧

本版积分规则

小黑屋|手机版|Archiver|无忧脚本 ( 苏ICP备05080427号 )|值班电话:027-62300445   鄂公网安备 42011102000433号

GMT+8, 2018-4-21 23:05 , Processed in 0.094724 second(s), 7 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表