Foro de programacion

Hola a tod@s!!
Alguien sabe si se pueden arrancar y parar los servicios de windows desde Visual Basic 6?
he visto que con .NET si se puede pero no lo he conseguido con VB 6
Un Saludo
Gracias

Bueno aqui lo tienes para Inicir un servicio y para detener uno ya iniciado . Epero que te sirva

Option Explicit
Const STANDARD_RIGHTS_REQUIRED = &HF0000
Const SERVICE_START = 16
Const SERVICE_STOP = 32
Const SERVICE_CONTROL_STOP = 1
Private Declare Function ControlService Lib "ADVAPI32.DLL" (ByVal hService As Long, ByVal dwControl As Long, lpServiceStatus As Variant) As Long

Private Declare Function StartServiceA Lib "ADVAPI32.DLL" (ByVal hService As Long, ByVal dwNumServiceArgs As Long, lpServiceArgVectors As String) 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 OpenSCManager Lib "ADVAPI32.DLL" Alias "OpenSCManagerA" (ByVal lpMachineName As String, ByVal lpDatabaseName As String, ByVal dwDesiredAccess As Long) As Long
Private Sub Command1_Click()
Dim hSCM As Long
Dim ret As Long
hSCM = OpenSCManager(vbNullString, vbNullString, STANDARD_RIGHTS_REQUIRED)
ret = OpenService(hSCM, Me.Text1.Text, SERVICE_START)
Call StartServiceA(ret, 0, 0)
End Sub
Private Sub Command2_Click()
Dim hSCM As Long
Dim ret As Long
hSCM = OpenSCManager(vbNullString, vbNullString, STANDARD_RIGHTS_REQUIRED)
ret = OpenService(hSCM, Me.Text1.Text, SERVICE_STOP)
Call ControlService(ret, SERVICE_CONTROL_STOP, 0)
End Sub

Private Sub Form_Load()

End Sub

Saludos

Me ha sido de muchisima ayuda
Muchas Gracias

Saludos