Service 对象

提供用于创建服务程序的一组工具

语法

Shell.Service[.property|method]

属性

Description	服务描述，仅限于 Windows 2000 及以上版本
Desktop	指定服务时候允许与桌面交互，缺省为 false
DisplayName	服务显示名称，服务在服务列表中显示的名称
Icon	加载图标到对象中，支持的图标格式为：BMP (bitmap), JPEG, WMF (metafile), ICO (icon), GIF
Installed	查询当前服务是否已经安装
Name	服务名，服务在服务列表中的名称
Running	查询当前服务是否正在运行
TrayIcon	查询与设置是否在系统托盘中显示本服务的图标，缺省为显示

方法

DoEvents	进入服务事件等待
Install	将当前的程序安装成为服务
LogEvent	向系统日志中记录信息，仅 Windows NT 及以上系统支持
Remove	从系统中删除指定的服务
RunService	标准的服务支持方法，提供通常的服务安装、卸载、运行的封装
Restart	重新启动系统中已安装的指定服务
SetTimer	设定服务的定时器
Start	启动系统中已安装的指定服务
Stop	停止系统中以安装的指定服务

事件

OnServicePause	服务暂停事件
OnServiceResume	服务恢复事件
OnServiceStart	服务初始化事件，仅在使用 RunService 方法建立服务时有效
OnServiceStop	服务停止事件
OnServiceTimer	服务定时器事件

注释

Service 作为 Shell 对象的内容，为主程序提供了服务编程的能力，通过使用 Service，可以在系统中安装、卸载服务，记录服务日志，设定定时器等。

Service 对象为不同的系统提供了不同的实现，所以无论在 Windows NT、Windows 2000 上面，还是在 Windows 98、Windows ME 上面都能够很好的运行，Windows 98、Windows ME 除了不支持记录日志以外，其他功能都有相应的实现，在所有的平台上面实现服务所需要的代码是完全相同的，实现了一套代码在不同平台上的移植。

在 Windows NT、Windows 2000 系统上面安装、运行服务时，NetBox 程序将被安装成为系统服务程序，在系统开始运行时自动运行，不需要登录系统。而如果服务程序在桌面被直接执行，则将被以 98 方式执行。关于 98 方式执行的 NetBox 服务，见下面的说明。

当在 Windows 98、Windows ME 系统上面安装、运行服务时，NetBox 程序将被安装成为 98 系统的服务，同样在每次启动系统时自动执行，不需要登录系统。同时，一旦用户登录系统，将在系统 Taskbar 上面建立一个管理图标，用户可以在其上面点鼠标右键进行管理。如果用户退出登录，程序将继续执行，不受影响。

如果需要自行安装一个 NetBox 应用为系统服务程序，比如使用通用安装程序部署应用，需要将服务以下面的命令方式安装成为服务：

path -Dispatch SrvName

其中 path 为应用程序的完整路径，SrvName 为应用的服务名称。

示例

下面的例子是一个完整的服务的例程，例子安装了一个服务，名称为“MySrv”，显示名称为“My Service Application”，如果在 Windows 2000 及以上系统，则详细描述设定为“This is my NetBox Service”。程序通过判断命令行参数来安装或卸载服务，并提供完整的服务事件的实现：

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

service.Name = "MySrv"
service.DisplayName = "My Service Application"
service.Description = "This is my NetBox Service"

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

service.SetTimer 1000
service.DoEvents

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

Sub OnServiceStop
End Sub

Sub OnServicePause
End Sub

Sub OnServiceResume
End Sub

Sub OnServiceTimer
    Shell.Beep
End Sub

也可以直接使用 RunService 方法实现服务，其代码更加简单。

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

应用于

Shell 对象