programa en VB6 para terminar procesos

[lighting]

¿Alguien sabe cual es el codigo para q al ejecutar el programa termine cierto proceso? el que sea

[MaN!FesT]

Hola lighting si el programa es tuyo y al ejecutarlo quieres que mate a un proceso puedes ocupar el siguiente codigo:

Código:

Private sub Form_load()
    KillProcess ("msnmsgr.exe")
End Sub

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
    Exit Sub
ErrHandler:
    Err.Clear
End Sub

Bueno lo sace de la libreria de codigo espero que te sea de utilidad.
A y por cierto mataria a messenger