shell方法停用启用服务
'停用服务
Private Sub Command1_Click() Shell "cmd /c NET STOP THEMES" End Sub '启用服务 Private Sub Command2_Click() Shell "cmd /c NET START THEMES" End Sub '*******************************************************************************
API方法停用启用服务
Option Explicit Private Declare Function OpenSCManager Lib "advapi32" Alias "OpenSCManagerA" (ByVal lpMachineName As String,ByVal lpDatabaseName As String,ByVal dwDesiredAccess As Long) As Long
Private Declare Function OpenService Lib "advapi32" Alias "OpenServiceA" (ByVal hSCManager As Long,ByVal lpServiceName As String,ByVal dwDesiredAccess As Long) As Long '** Change SERVICE_NAME as needed
Private Declare Function ControlService Lib "advapi32" (ByVal hService As Long,ByVal dwControl As SERVICE_CONTROL,lpServiceStatus As SERVICE_STATUS) As Long Private Declare Function CloseServiceHandle Lib "advapi32" (ByVal hSCObject As Long) As Long
Private 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 Private Enum SERVICE_CONTROL SERVICE_CONTROL_STOP = 1& SERVICE_CONTROL_PAUSE = 2& SERVICE_CONTROL_CONTINUE = 3& SERVICE_CONTROL_INTERROGATE = 4& SERVICE_CONTROL_SHUTDOWN = 5& End Enum
Private Const SC_MANAGER_CONNECT = &H1& Private Const SERVICE_STOP = &H20& Private Const SERVICE_NAME As String = "themeS" '服务名
Public Function StopNTService() As Long Dim hSCManager As Long,hService As Long,Status As SERVICE_STATUS hSCManager = OpenSCManager(vbNullString,vbNullString,_ SC_MANAGER_CONNECT) If hSCManager <> 0 Then hService = OpenService(hSCManager,SERVICE_NAME,SERVICE_STOP) If hService <> 0 Then If ControlService(hService,SERVICE_CONTROL_STOP,Status) = 0 Then StopNTService = Err.LastDllError End If CloseServiceHandle hService Else StopNTService = Err.LastDllError End If CloseServiceHandle hSCManager Else StopNTService = Err.LastDllError End If End Function
Private Sub Command1_Click() Call StopNTService MsgBox "OK!" End Sub (编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|