从VB6到.net服务的ExecuteCommand

Question

在VB.net中，我可以在Windows-Services上执行自定义命令：

桌面：

Const SmartShutdown As Integer = 12  

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

Windows-服务：

Protected Overrides Sub OnCustomCommand(ByVal command As Integer)  

是否也可以执行从VB6到.net Windows-Service的命令？

Answer 1

您可以使用ControlService接口函数发送任何控制代码。这要求您已经使用适当的访问权限调用了OpenService，并且您的进程正在所需的级别上运行。在Vista+上，这可以使用普通的清单(进程范围)或COM elevation来完成。

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范围内。