vb控制NT服务的停止、暂停和开启

第一种方法-Win32API:

  Public Const MachineName = "s1"     '换成你的机器名
  Public Const ServiceName = "Schedule"     '换成你的服务名
  Public Const SERVICES_ACTIVE_DATABASE = "ServicesActive"
  'Controls
  Public Const SERVICE_CONTROL_STOP = &H1
  Public Const SERVICE_CONTROL_PAUSE = &H2
  Public Const SERVICE_CONTROL_CONTINUE = &H3
  
  'Service State -- for CurrentState
  Public Const SERVICE_STOPPED = &H1
  Public Const SERVICE_START_PENDING = &H2
  Public Const SERVICE_STOP_PENDING = &H3
  Public Const SERVICE_RUNNING = &H4
  Public Const SERVICE_CONTINUE_PENDING = &H5
  Public Const SERVICE_PAUSE_PENDING = &H6
  Public Const SERVICE_PAUSED = &H7
  
  ' Service Control Manager object specific access types
  Public Const STANDARD_RIGHTS_REQUIRED = &HF0000
  Public Const SC_MANAGER_CONNECT = &H1
  Public Const SC_MANAGER_CREATE_SERVICE = &H2
  Public Const SC_MANAGER_ENUMERATE_SERVICE = &H4
  Public Const SC_MANAGER_LOCK = &H8
  Public Const SC_MANAGER_QUERY_LOCK_STATUS = &H10
  Public Const SC_MANAGER_MODIFY_BOOT_CONFIG = &H20
  
  Public Const SC_MANAGER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SC_MANAGER_CONNECT Or SC_MANAGER_CREATE_SERVICE Or SC_MANAGER_ENUMERATE_SERVICE Or SC_MANAGER_LOCK Or SC_MANAGER_QUERY_LOCK_STATUS Or SC_MANAGER_MODIFY_BOOT_CONFIG)
  'Service object specific access types
  Public Const SERVICE_QUERY_CONFIG = &H1
  Public Const SERVICE_CHANGE_CONFIG = &H2
  Public Const SERVICE_QUERY_STATUS = &H4
  Public Const SERVICE_ENUMERATE_DEPENDENTS = &H8
  Public Const SERVICE_START = &H10
  Public Const SERVICE_STOP = &H20
  Public Const SERVICE_PAUSE_CONTINUE = &H40
  Public Const SERVICE_INTERROGATE = &H80
  Public Const SERVICE_USER_DEFINED_CONTROL = &H100
  
  Public Const SERVICE_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SERVICE_QUERY_CONFIG Or SERVICE_CHANGE_CONFIG Or SERVICE_QUERY_STATUS Or SERVICE_ENUMERATE_DEPENDENTS Or SERVICE_START Or SERVICE_STOP Or SERVICE_PAUSE_CONTINUE Or SERVICE_INTERROGATE Or SERVICE_USER_DEFINED_CONTROL)
  
  Type SERVICE_STATUS
      dwServiceType As Long
      dwCurrentState As Long
      dwControlsAccepted As Long
      dwWin32ExitCode As Long
      dwServiceSpecificExitCode As Long
      dwCheckPoint As Long
      dwWaitHint As Long
  End Type
  
  Declare Function CloseServiceHandle Lib "advapi32.dll" (ByVal hSCObject As Long) As Long
  Declare Function ControlService Lib "advapi32.dll" (ByVal hService As Long, ByVal dwControl As Long, lpServiceStatus As SERVICE_STATUS) As Long
  Declare Function OpenSCManager Lib "advapi32.dll" Alias "OpenSCManagerA" (ByVal lpMachineName As String, ByVal lpDatabaseName As String, ByVal dwDesiredAccess As Long) As Long
  Declare Function OpenService Lib "advapi32.dll" Alias "OpenServiceA" (ByVal hSCManager As Long, ByVal lpServiceName As String, ByVal dwDesiredAccess As Long) As Long
  Declare Function QueryServiceStatus Lib "advapi32.dll" (ByVal hService As Long, lpServiceStatus As SERVICE_STATUS) As Long
  Declare Function StartService Lib "advapi32.dll" Alias "StartServiceA" (ByVal hService As Long, ByVal dwNumServiceArgs As Long, ByVal lpServiceArgVectors As Long) As Long
  
  Public Function FindServiceStatus(Computer As String, Service As String) As String
    Dim ServiceStatus As SERVICE_STATUS
    Dim lhSCManager As Long
    Dim lhService As Long
    Dim lhServiceStatus As Long
  
    lhSCManager = OpenSCManager(Computer, SERVICES_ACTIVE_DATABASE, SC_MANAGER_ALL_ACCESS)
        
    If lhSCManager <> 0 Then
          
      lhService = OpenService(lhSCManager, Service, SERVICE_ALL_ACCESS)
        
      If lhService <> 0 Then
              
          lhServiceStatus = QueryServiceStatus(lhService, ServiceStatus)
              
          If lhServiceStatus <> 0 Then
            Select Case ServiceStatus.dwCurrentState
              Case SERVICE_STOPPED
                  FindServiceStatus = "Stopped"
              Case SERVICE_START_PENDING
                  FindServiceStatus = "Start Pending"
              Case SERVICE_STOP_PENDING
                  FindServiceStatus = "Stop Pending"
              Case SERVICE_RUNNING
                  FindServiceStatus = "Running"
              Case SERVICE_CONTINUE_PENDING
                  FindServiceStatus = "Coninue Pending"
              Case SERVICE_PAUSE_PENDING
                  FindServiceStatus = "Pause Pending"
              Case SERVICE_PAUSED
                  FindServiceStatus = "Paused"
            End Select
          End If
          CloseServiceHandle lhService
      End If
      CloseServiceHandle lhSCManager
    End If
  
  End Function
  
  
  Public Sub vbPauseService(Computer As String, Service As String)
    Dim ServiceStatus   As SERVICE_STATUS
    Dim lhSCManager   As Long
    Dim lhService   As Long
    Dim lresult   As Long
      
    lhSCManager = OpenSCManager(Computer, SERVICES_ACTIVE_DATABASE, SC_MANAGER_ALL_ACCESS)
    If lhSCManager <> 0 Then
      lhService = OpenService(lhSCManager, Service, SERVICE_ALL_ACCESS)
        
      If lhService <> 0 Then
          lresult = ControlService(lhService, SERVICE_CONTROL_PAUSE, ServiceStatus)
          CloseServiceHandle lhService
      End If
      CloseServiceHandle lhSCManager
    End If
        
  End Sub
  
  Public Sub vbContinueService(Computer As String, Service As String)
    Dim ServiceStatus   As SERVICE_STATUS
    Dim lhSCManager   As Long
    Dim lhService   As Long
    Dim lresult   As Long
      
    lhSCManager = OpenSCManager(Computer, SERVICES_ACTIVE_DATABASE, SC_MANAGER_ALL_ACCESS)
    If lhSCManager <> 0 Then
      lhService = OpenService(lhSCManager, Service, SERVICE_ALL_ACCESS)
        
      If lhService <> 0 Then
          lresult = ControlService(lhService, SERVICE_CONTROL_CONTINUE, ServiceStatus)
          CloseServiceHandle lhService
      End If
      CloseServiceHandle lhSCManager
    End If
        
  End Sub
  
  Public Sub vbStartService(Computer As String, Service As String)
    Dim ServiceStatus   As SERVICE_STATUS
    Dim lhSCManager   As Long
    Dim lhService   As Long
    Dim lresult   As Long
      
    lhSCManager = OpenSCManager(Computer, SERVICES_ACTIVE_DATABASE, SC_MANAGER_ALL_ACCESS)
      
    If lhSCManager <> 0 Then
      lhService = OpenService(lhSCManager, Service, SERVICE_ALL_ACCESS)
        
      If lhService <> 0 Then
          lresult = StartService(lhService, 0, 0)
          CloseServiceHandle lhService
      End If
      CloseServiceHandle lhSCManager
    End If
        
  End Sub
  
  Public Sub vbStopService(Computer As String, Service As String)
    Dim ServiceStatus   As SERVICE_STATUS
    Dim lhSCManager   As Long
    Dim lhService   As Long
    Dim lresult   As Long
      
    lhSCManager = OpenSCManager(Computer, SERVICES_ACTIVE_DATABASE, SC_MANAGER_ALL_ACCESS)
      
    If lhSCManager <> 0 Then
      lhService = OpenService(lhSCManager, Service, SERVICE_ALL_ACCESS)
        
      If lhService <> 0 Then
          lresult = ControlService(lhService, SERVICE_CONTROL_STOP, ServiceStatus)
          CloseServiceHandle lhService
      End If
      CloseServiceHandle lhSCManager
    End If
  End Sub

第二种方法-Net命令法：
Shell "net start 服务名称 [服务器]", vbHide
Shell "net stop 服务名称 [服务器]", vbHide
Shell "net pause 服务名称 [服务器]", vbHide
Shell "net continue 服务名称 [服务器]", vbHide