NETBOX-关闭窗口同时关闭服务程序的方法

Dim httpd

Shell.Service.RunService 'GBServer', 'Lilo GBServer', 'Powered By Netbox'

Sub OnServiceStart()

Set httpd = CreateObject('NetBox.HttpServer')

If httpd.Create('', 8000) = 0 Then

Set host = httpd.AddHost('', '\wwwroot')

host.EnableScript = true

host.AddDefault 'index.asp'

host.AddDefault 'index.htm'

host.AddDefault 'default.asp'

host.AddDefault 'default.htm'

httpd.Start

Showindow()

Else

Showindow()

'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

Sub Showindow()

Set htWin = CreateObject('NetBox.HtmlWindow')

htWin.Open 'http://localhost:8000/'

htWin.border=True

htWin.Caption=False

htWin.ContextMenu=False

htWin.Height=144

htWin.Width=176

htWin.MaximizeBox=False

htWin.Maximized=False

htWin.MinimizeBox=False

htWin.Minimized=False

htWin.resizable=False

htWin.scrollbar=False

htWin.ToolWindow=False

htWin.Top = 200

htWin.TopMost =True

htWin.WindowEdge=True

htWin.Center

htWin.showDialog

'关键语句 关闭程序的方法

'--------------------

Shell.Halt 0

'--------------------

End Sub