netbox开启服务后自动访问首页

最新推荐文章于 2025-06-02 09:02:33 发布

郑某人

最新推荐文章于 2025-06-02 09:02:33 发布

阅读量2k

点赞数

CC 4.0 BY-SA版权

分类专栏：【 NetBox与IIS 】文章标签： server service web

本文链接：https://blog.youkuaiyun.com/zhengzhichen/article/details/2611689

【 NetBox与IIS 】专栏收录该内容

7 篇文章

订阅专栏

本文介绍如何在NetBox中配置服务启动后自动访问首页。通过在main.box文件中加入特定代码实现，包括创建HttpServer实例、设置监听端口、添加默认页面并使用HtmlWindow自动打开首页。

netbox开启服务后自动访问首页

想要把做好的程序打开后自动访问首页，需在main.box里加入下面的语句：





Dim httpd



Shell.Service.RunService "NBWeb", "NetBox Web Server", "NetBox Http Server Sample"

'---------------------- Service Event ---------------------

Sub OnServiceStart()

    Set httpd = NetBox.CreateObject("NetBox.HttpServer")

    If httpd.Create("", 800) = 0 Then

        Set host = httpd.AddHost("", "/wwwroot")

        host.EnableScript = true

        host.AddDefault "index.html"

        httpd.Start

    else

        Shell.Quit 0

    end if

// begin :加入的语句

 Set ht = CreateObject("NetBox.HtmlWindow")

 ht.open "http://localhost/index.html"

 ht.showDialog

//end



End Sub

Sub OnServiceStop()

    httpd.Close

End Sub

Sub OnServicePause()

    httpd.Stop

End Sub

Sub OnServiceResume()

    httpd.Start

End Sub