提取OBJ对象。

tttbbb999

有个软件叫‘NetBox’1.79M
安装后就能成一个脚本。编译后就是一个仅有600K的ASP服务器。
脚本内容如下：

Dim httpd 
Shell.Service.RunService "NBWeb", "NetBox Web Server", "NetBox Http Server Sample"  ;如果加参数'-insert' ,就会安装到系统服务，这里分别是‘服务名，显示名，描述‘。
Sub OnServiceStart() 
    Set httpd = CreateObject("NetBox.HttpServer") 
    If httpd.Create("",83) = 0 Then   ；设置监听IP,端口
       Set host = httpd.AddHost("", "")  ;默认目录
       host.EnableScript = true 
       host.AddDefault "1.asp" ;默认首页
       httpd.Start  ;开始服务
   else 
       Shell.Quit 0 
   end if 
End Sub

Sub OnServiceStop()  ;停止服务
   httpd.Close 
End Sub

Sub OnServicePause() ;暂停服务
   httpd.Stop 
End Sub

Sub OnServiceResume() ;启动服务
   httpd.Start 
End Sub

我想有没人能把这个OBJ对象单独提取出来。然后用AU3把他写成ASP服务器呢？

tttbbb999

没人关注，自己顶~

shqf

NetBox 提供了完全与操作系统无关的高性能的一个 HttpServer 对象，且完整支持 asp 服务器脚本技术，可以方便地将成熟的 asp 应用通过 NetBox 部署到各种操作环境，由于不再局限于操作系统的限制，甚至可以在 Windows XP 上达到超出 Windows 2000 Advance Server 的性能支持。
你下载一个NetBox安装一下，你就有了啊。至于如何 用AU3编写以使用这个NetBox，感觉可参照有关文章，在知道NetBox.HttpServer对象的属性、方法等后可尝试编写了。
  希望对你有帮助。

xms77

对于OBJ不熟的路过，上次搞个XMLdoc都搞不出来，晕死了，后来只能用正则解决问题。

tttbbb999

NetBox 提供了完全与操作系统无关的高性能的一个 HttpServer 对象，且完整支持 asp 服务器脚本技术，可以方 ...
shqf 发表于 2012-3-27 10:27

   我的意思就是不想去安装他，只接提取关键文件用AU3进行 'regsvr32'注册。
至于用AU3编写控制台就是小菜了。

nerdpal

netbox用了很久，这几天才开始diy，希望LZ早日完成，记得共享一下啊

f4李文杨

netbox 用AU3调用，我前几天看了！没有看出头继出来！！有望高手共享！！