Truco de Visual Basic 6.0 - Eliminar un proceso

Con este truco podrás eliminar un proceso que corre en la memoria. Para implementarlo basta con copiar el código fuente en un modulo de Visual Basic 6.0 y realizar la llamada con la función:

KillProcess(“nombreProceso”). Si existe mas de un proceso con el mismo nombre eliminará todos los procesos con ese nombre.

Public Sub KillProcess(ByVal processName As String)
On Error GoTo ErrHandler
Dim oWMI
Dim ret
Dim sService
Dim oWMIServices
Dim oWMIService
Dim oServices
Dim oService
Dim servicename
Set oWMI = GetObject("winmgmts:")
Set oServices = oWMI.InstancesOf("win32_process")
For Each oService In oServices

servicename = LCase(Trim(CStr(oService.Name) & ""))

If InStr(1, servicename, LCase(processName), vbTextCompare) >; 0 Then
ret = oService.Terminate
End If

Next

Set oServices = Nothing
Set oWMI = Nothing

ErrHandler:
Err.Clear
End Sub