![]() |
设定服务的定时器
Shell.Service.SetTimer nElapse
对于需要定时进行一些处理的程序,可以使用服务的定时器进行处理。通过设定定时器的定时时间,可以在服务等待时定时触发 OnServiceTimer 事件。当服务管理程序向服务提出暂停请求时,定时器也将暂停工作,直至服务管理程序恢复服务的运行为止。
由于系统原因,SetTimer 不是精确定时器,不能依赖 SetTimer 实现精确时钟,如果需要精确的定时操作(比如每天上午 7 点做一次数据同步),需要在 OnServiceTimer 事件中自行实现时间判断。
下面的每秒系统发出一次声音:
Set service = Shell.Service service.Name = "MySrv" service.DisplayName = "My Service Application" service.SetTimer 1000 service.DoEvents '---------------------- Service Event --------------------- Sub OnServiceTimer Shell.Beep End Sub