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