Visual Basic - Servicios

Life is soft - evento anual de software empresarial
 
Vista:

Servicios

Publicado por Silvia (9 intervenciones) el 31/03/2004 18:31:58
¿Es posible desde vb iniciar un servicio windows 2000 que está en estado detenido?
Grcias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Servicios

Publicado por Dennis Baldeon (7 intervenciones) el 31/03/2004 19:09:45
Porsupueto que es posibles, es solo un pequeño truquito, ejecuta el comando net start nombreservicio desde vb aca te va el ejemplo que inicia, pausa y para el servicio telnet

shell "net start telnet",vbHide
shell "net pause telnet",vbHide
shell "net stop telnet",vbHide

Saludos, Dennis Bye
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Servicios

Publicado por Dennis Baldeon (7 intervenciones) el 31/03/2004 19:10:38
Por supueto que es posibles, es solo un pequeño truquito, ejecuta el comando net start nombreservicio desde vb aca te va el ejemplo que inicia, pausa y para el servicio telnet

shell "net start telnet",vbHide
shell "net pause telnet",vbHide
shell "net stop telnet",vbHide

Saludos, Dennis Bye
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Servicios

Publicado por Silvia (9 intervenciones) el 31/03/2004 19:17:24
funciona perfectamente en 2000,sabes si tendría algún problema al ejecutarlo en nt wk,nt server y 98 se.?
Muchísimas gracias por tu ayuda Dennis
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Servicios

Publicado por Stump Kops (41 intervenciones) el 10/04/2004 00:07:20
Usando la función RegisterServiceProcess. Por ejemplo:

Private Declare Function RegisterServiceProcess Lib "kernel32" _
(ByVal dwProcessId As Long, ByVal Register As Integer) As Long

Private Sub Form_Load()
'Registra como un servicio al proceso actual.
'
RegisterServiceProcess 0&, 1&
End Sub

Private Sub Form_Unload(Cancel As Integer)
'Quita la característica de servicio.
'
RegisterServiceProcess 0&, False
End Sub

Esto es así en Win95/98/ME pero quizás funcione en Windows 2000
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar