Excel VBA: остановка и запуск фоновой службы

Question

Можно ли остановить и запустить фоновый сервис.

Существует сторонняя служба, которая взаимодействует с плагином Excel.Я хочу временно остановить его, когда я запускаю свой код, а затем снова включить его в конце.

Answer 1

Всякий раз, когда вы захотите сделать что-то подобное, Google, использующий «WMI», вероятно, даст вам что-то полезное.

Например -

От: https://docs.microsoft.com/en-us/windows/desktop/cimwin32prov/stopservice-method-in-class-win32-service

Set ServiceSet = GetObject("winmgmts:").ExecQuery( _
          "select * from Win32_Service where Name='ClipSrv'")

for each Service in ServiceSet
 RetVal = Service.StopService()
 if RetVal = 0 then 
  WScript.Echo "Service stopped" 
 elseif RetVal = 5 then 
  WScript.Echo "Service already stopped" 
 end if
next

Аналогично: https://docs.microsoft.com/en-us/windows/desktop/cimwin32prov/startservice-method-in-class-win32-service

Set ServiceSet = GetObject("winmgmts:").ExecQuery( _
           "select * from Win32_Service where Name='ClipSrv'")

for each Service in ServiceSet
 RetVal = Service.StartService()
 if RetVal = 0 then WScript.Echo "Service started"
 if RetVal = 10 then WScript.Echo "Service already running"
next