Código: Seleccionar todo

Option Explicit

'*****************************************************
'*****************************************************
'** Name    : mCheckProcess                         **
'** Version : 1.0                                   **
'** Author  : DARK_J4V13R                           **
'** Date    : 25/12/09 <1:30 a.m.>                  **
'** Email   : [email protected]               **
'** Web     : www.Indetectables.net                 **
'*****************************************************
'*****************************************************

'*****************************************************
'**         Estructura de las api de abajo          **
'*****************************************************

Const Data = (&H1 Or &H2 Or &H4 Or &H8)

Private Type PROCESSENTRY32
    dwSize As Long
    cntUsage As Long
    th32ProcessID As Long
    th32DefaultHeapID As Long
    th32ModuleID As Long
    cntThreads As Long
    th32ParentProcessID As Long
    pcPriClassBase As Long
    dwFlags As Long
    szExeFile As String * 260
End Type

'*****************************************************
'**         Las api para ver los procesos           **
'*****************************************************

Private Declare Function CreateToolhelp32Snapshot Lib "Kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function Process32First Lib "Kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "Kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long)

Public Function CheckProcess(sProcess As String) As Boolean

       Dim x1 As String, Process As PROCESSENTRY32, Ret As String
       
       x1 = CreateToolhelp32Snapshot(Data, 0&) '<<< Obtenemos la información de los procesos
       
       Process.dwSize = Len(Process)
       
       Ret = Process32First(x1, Process) '<<< Obtenemos la información del primer proceso
       
       Do While Ret '<<< No para hasta que haya recorrido todos los procesos
       
            If LCase$(Trim$(Left$(Process.szExeFile, IIf(InStr(1, Process.szExeFile, Chr$(0)) > 0, InStr(1, Process.szExeFile, Chr$(0)) - 1, 0)))) = LCase$(Trim$(sProcess)) Then '<<< Condicion en la que comparamos si el proceso actual es el mismo indicado en la variable 'sProcess
            
                CheckProcess = True '<<< Si encontro el proceso, nos colocamos en true
            
                Exit Do '<<< Salimos del bucle
                
            Else '<<< En caso no lo haya encontrado
            
                CheckProcess = False '<<< Colocamos la funcion en false
                
            End If '<<< Terminamos la condición
                
            Ret = Process32Next(x1, Process) '<<< Siguiente proceso
                 
       Loop '<<< Bucle
       
       CloseHandle x1 '<<< Cerramos el Handle
       
End Function

Código: Seleccionar todo

If CheckProcess("explorer.exe") = True Then
    
    MsgBox "El proceso esta activo"
        
Else

    MsgBox "El proceso no esta activo"
        
End If