Menu Horisontal

Selasa, 09 Juli 2013

Visual Basic 6 Check Windows Service Running Or Not

kadangkala dalam program dengan visual basic 6 kita perlu untuk mengecek beberapa service windows, apakah sudah jalan apa tidak. Nah bagi yang membutuhkan kode untuk mengeceknya inilah function nya


Function IsServiceRunning(sServiceName As String) As Boolean
    Dim objInst As Object, objSet As Object
    IsServiceRunning = False
    Set objSet = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_Service")
    For Each objInst In objSet
        If (UCase(sServiceName) = UCase(objInst.Name)) And (UCase(objInst.State) = UCase("Running")) Then
            IsServiceRunning = True
        End If
    Next
End Function


Sumber : http://vbgue.blogspot.com/

Tidak ada komentar: