Выполнение команды из VB6 в .net Сервис

Question

В VB.net я могу выполнять пользовательские команды на Windows-сервисах:

Desktop:

Const SmartShutdown As Integer = 12  

Dim myService As New ServiceController("SampleService")
myService.ExecuteCommand(SmartShutdown)

Windows-Service:

Protected Overrides Sub OnCustomCommand(ByVal command As Integer)  

Можно ли выполнять команды из VB6 в .net Windows-Service?

Answer 1

Вы можете использовать функцию API ControlService для отправки любых управляющих кодов. Для этого требуется, чтобы вы вызвали OpenService с соответствующим доступом и чтобы ваш процесс работал на требуемом уровне. В Vista + это можно сделать с помощью обычного манифеста (всего процесса) или COM-повышение прав .

Answer 2

Попробуйте использовать функцию VB6 Shell и инструмент командной строки sc.exe для управления службами Windows, например:

Shell("cmd /C 'sc stop SampleService > %APPDATA%\svc.log'")

Обновление

Чтобы отправить пользовательскую команду, например:

Shell("cmd /C 'sc control SampleService 128 > %APPDATA%\svc.log'")

Пользовательская команда должна находиться в диапазоне 128-255.