Tecnología

Inicio

Cómo determinar si un servicio se está ejecutando en Visual Basic

Cómo determinar si un servicio se está ejecutando en Visual Basic


Conocer cómo comprobar el estado de un servicio de Microsoft Windows utilizando Microsoft Visual Basic.NET (VB.NET) le puede ahorrar tiempo cuando se trabaja con los servicios. De acuerdo con Microsoft, un servicio le permite crear aplicaciones ejecutables que se ejecutan en sus propias sesiones de Windows. VB.NET es un lenguaje de programación orientado a objetos que se utiliza comúnmente por los programadores por su facilidad de uso. En unos pocos pasos, se puede escribir un programa VB.NET para encontrar el estado de un servicio.

Instrucciones

1 Iniciar Microsoft Visual Basic Express y haga clic en "Nuevo proyecto ..." en el panel izquierdo de la pantalla. Haga doble clic en "Aplicación de consola."

2 Haga clic en el menú "Proyecto" y seleccione "<proyecto> Propiedades". Haga clic en "Referencias" y luego seleccione "Agregar". Seleccione "NET" y haga clic en "System.ServiceProcess." Haga clic en Aceptar." Pulse la tecla "Ctrl" y "A" y presione "Borrar" para eliminar el código existente.

3 Copia y pega el código siguiente para su módulo "Module1.vb". Este código determinará el estado del servicio "Apple Mobile Device":

Las importaciones System.ServiceProcess

Module Module1

Sub Main()

Tratar

Dim ServiceCtrler Como Nueva ServiceController ( "Apple Mobile Device")

Si ServiceCtrler.Status.Equals (ServiceControllerStatus.Running) Y ServiceCtrler.CanStop Entonces

Console.WriteLine (ServiceCtrler.ServiceName)

Console.WriteLine ( "estado =" + ServiceCtrler.Status.ToString ())

Console.WriteLine ( "¿Puede pausar y continuar =" + _

ServiceCtrler.CanPauseAndContinue.ToString ())

Console.WriteLine ( "puede apagar =" + ServiceCtrler.CanShutdown.ToString ())

Console.WriteLine ( "Can Stop =" + ServiceCtrler.CanStop.ToString ())

Terminara si

Console.ReadLine ()

Catch ex As Exception

Console.WriteLine (ex.Message)

Try End

End Sub

Módulo fin

4 Editar la siguiente línea de código y escriba el nombre del servicio que desea utilizar:

Dim ServiceCtrler Como Nueva ServiceController ( "Apple Mobile Device")

5 Pulse la tecla "F5" para ejecutar el programa.