Bonjours à tous,
Sur le code voir ci-dessous- je voudrai désactiver le service "Sonycard" mais celui-ci reste en automatique alors que mon code devrait le desactiver, je comprend pas..........
ou se trouve l'erreur ??? peut-on me corriger l'erreur ??
Merci
Option Explicit
Private Declare Function OpenSCManager Lib "ADVAPI32.DLL" Alias "OpenSCManagerA" (ByVal lpMachineName As String, ByVal lpDatabaseName As String, ByVal dwDesiredAccess As Long) As Long
Private Declare Function OpenService Lib "ADVAPI32.DLL" Alias "OpenServiceA" (ByVal hSCManager As Long, ByVal lpServiceName As String, ByVal dwDesiredAccess As Long) As Long
Private Declare Function ChangeServiceConfig Lib "ADVAPI32.DLL" Alias "ChangeServiceConfigA" (ByVal hService As Long, ByVal dwServiceType As Long, ByVal dwStartType As Long, ByVal dwErrorControl As Long, ByVal lpBinaryPathName As String, ByVal lpLoadOrderGroup As String, lpdwTagId As Long, ByVal lpDependencies As String, ByVal lpServiceStartName As String, ByVal lpPassword As String, ByVal lpDisplayName As String) As Long
Private Declare Function CloseServiceHandle Lib "ADVAPI32.DLL" (ByVal hSCObject As Long) As Long
Const GENERIC_ALL As Long = &H10000000
Const SERVICES_ACTIVE_DATABASE As String = "ServicesActive"
Const SERVICE_AUTO_START As Long = &H2
Const SERVICE_ERROR_IGNORE As Long = &H0
Const SERVICE_INTERACTIVE_PROCESS As Long = &H100
Const SERVICE_WIN32_OWN_PROCESS As Long = &H10
Const SERVICE_DISABLED = &H4
Const SERVICE_CHANGE_CONFIG = &H2
Const SERVICE_NO_CHANGE = &HFFFFFFFF
Private Sub Form_Load()
Dim scManager As Long
Dim service As Long
Dim ret As Variant
service = OpenService(scManager, "Sonycard", SERVICE_CHANGE_CONFIG)
scManager = ChangeServiceConfig(service, SERVICE_NO_CHANGE, SERVICE_NO_CHANGE, SERVICE_DISABLED, vbNull, vbNull, ByVal 0&, vbNull, vbNull, vbNull, vbNull)
CloseServiceHandle service
CloseServiceHandle scManager
End Sub