NetBox 2.7 使用手册

RunService 方法

标准的服务支持方法，提供通常的服务安装、卸载、运行的封装

语法

Shell.Service.RunService strName[, strDisplayName, strDescription]
 

参数

注释

RunService 不是基本功能，是由服务的基本功能组合而成的常用实现，使用 RunService，可以更加方便的实现绝大多数的服务应用。RunService 所实现的功能，等同于下面的代码：

Set service = Shell.Service
Set Arg = Shell.Arguments

service.Name = strName
service.DisplayName = strDisplayName
service.Description = strDescription

If LCase(Arg(1)) = "-install" Then
    service.Install
    Shell.Quit 0
ElseIf LCase(Arg(1)) = "-remove" Then
    service.Remove
    Shell.Quit 0
End If

OnScriptStart
service.DoEvents

示例

使用 RunService 可以大大简化服务应用编程的复杂程度，下面给出的例子就是一个完整的服务应用，其功能完全等同于 Service 文档中的例子：

Shell.Service.RunService "MySrv", "My Service Application", "This is my NetBox Service"

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

Sub OnServiceStart
    Shell.Service.SetTimer 1000
End Sub

Sub OnServiceStop
End Sub

Sub OnServicePause
End Sub

Sub OnServiceResume
End Sub

Sub OnServiceTimer
    Shell.Beep
End Sub

应用于