Feedback

VB - Prüfen ob ein Dienst gestartet ist

Veröffentlicht von am 7/15/2006
(2 Bewertungen)
Gibt einen boolschen Wert zurück der angibt ob der angegebene Dienst gestartet ist.
'Verweis auf System.ServiceProcess hinzufügen !

Imports system.ServiceProcess

Public Function ServiceAvailable(ByVal Dienst As String) As Boolean
Dim Service As ServiceController = New ServiceController(Dienst)
Return CBool(Service.Status = ServiceProcess.ServiceControllerStatus.Running)
Service.Close()
End Function
Abgelegt unter Dienst, verfügbar, start, stopp.

3 Kommentare zum Snippet

Elwood schrieb am 7/17/2006:
Hallo ,
führt denn die Anweisung "Service.Close()" nicht dazu, dass der Dienst beendet wird?
ciao
Elwood
Tim Hartwig schrieb am 7/18/2006:
Nein der Dienst wird dadurch nicht beendet es wird nur die erstellte Zugriffsschnittstelle geschlossen wie man es auch bei der Arbeit mit Dateien kennt
Apollo schrieb am 2/6/2014:
Die Return Anweisung beendet die Funktion und Service.Close() wird nie ausgeführt. Hier macht die Using-Direktive Sinn.

Public Function IsServiceRunning(dienst As String) As Boolean

Using service As ServiceController = New ServiceController(dienst)
If service Is Nothing Then Return False

If service.Status = ServiceControllerStatus.Running Then
Return True
Else
Return False
End If


End Using

End Function
 

Logge dich ein, um hier zu kommentieren!