Visual Basic para Aplicaciones - Crear Kill Process Multiple

Hola a todos, dispongo de un código que encontré por el web para crear un matador de procesos, pero tiene un problema, y es que solo sirve para matar un proceso cada vez, qué tendría que implementar para poder matar varios a la vez? Aclaro que en las propiedades del List Box he activado Multiselect - 2 Extended, pero aun así solo mata el último proceso y no los que marco..

Este es el código:

Option Explicit

' Variables para usar Wmi
Dim ListaProcesos As Object
Dim ObjetoWMI As Object
Dim ProcesoACerrar As Object

Private Function MatarProceso( _
StrNombreProceso As String, _
Optional DecirSINO As Boolean = True) As Boolean

MatarProceso = False

Set ObjetoWMI = GetObject("winmgmts:")

If IsNull(ObjetoWMI) = False Then

'instanciamos la variable
Set ListaProcesos = ObjetoWMI.InstancesOf("win32_process")

For Each ProcesoACerrar In ListaProcesos
If UCase(ProcesoACerrar.Name) = UCase(StrNombreProceso) Then
If DecirSINO Then
If MsgBox("¿Matar el proceso " & _
ProcesoACerrar.Name & vbNewLine & "...¿Está seguro?", _
vbYesNo + vbCritical) = vbYes Then
ProcesoACerrar.Terminate (0)
MatarProceso = True
End If

Else

'Matamos el proceso con el método Terminate
ProcesoACerrar.Terminate (0)
MatarProceso = True

End If
End If

Next
End If

'Elimina las variables
Set ListaProcesos = Nothing
Set ObjetoWMI = Nothing
End Function

Private Sub Listar()

Set ObjetoWMI = GetObject("winmgmts:")

If IsNull(ObjetoWMI) = False Then
' En esta variable se obtienen los procesos
Set ListaProcesos = ObjetoWMI.InstancesOf("win32_process")
'Recorremos toda la coleccion en la lista de procesos _
y la añadimos al control listbox
For Each ProcesoACerrar In ListaProcesos
List1.AddItem LCase$(ProcesoACerrar.Name)
Next
End If

'Eliminamos las variables de objeto

Set ListaProcesos = Nothing
Set ObjetoWMI = Nothing

End Sub

Private Sub Command1_Click()

'Llamamos a MatarProceso pasandole el nombre
MatarProceso LCase$(List1), True
'Borramos el list
List1.Clear
'Volvemos a listar los procesos
Call Listar

End Sub

Private Sub Command2_Click()
'Borramos la lista y volvemos a listar los procesos
List1.Clear
Call Listar
End Sub

Private Sub Form_Load()
Command2.Caption = " Listar Procesos"
Command1.Caption = " Cerrar Proceso "
Me.Caption = " Wmi - ejemplo para manipular procesos de windows "
End Sub

Muchas gracias.

deberías hacer un bucle en Command1_Click()

Dim i%
For i = 0 To Listb.ListCount - 1
If Listb.Selected(i) Then
'//MatarProceso (Listb.List(i)), True
End If
Next

Saludos, desde Baires, JuanC

Gracias JuanC!!!

Funcionó a la perfección!

Saludos desde Salamanca, España

Hola de nuevo, ya resuelto el anterior problema y toqueteando alguna cosa más, surge un nuevo problema..

Lo que necesito es que al seleccionar varios y pulsar para matar los procesos, que muestre un solo msgbox con el listado, en vez de un msgbox para cada archivo.

Podríais decirme cómo sería? adjunto el code de cómo va quedando:

Option Explicit

' Variables para usar Wmi
Dim ListaProcesos As Object
Dim ObjetoWMI As Object
Dim ProcesoACerrar As Object

Private Function MatarProceso( _
StrNombreProceso As String, _
Optional DecirSINO As Boolean = True) As Boolean

MatarProceso = False

Set ObjetoWMI = GetObject("winmgmts:")

If IsNull(ObjetoWMI) = False Then

'instanciamos la variable
Set ListaProcesos = ObjetoWMI.InstancesOf("win32_process")

For Each ProcesoACerrar In ListaProcesos
If UCase(ProcesoACerrar.Name) = UCase(StrNombreProceso) Then
If DecirSINO Then
If MsgBox("Matar el proceso " & _
ProcesoACerrar.Name & vbNewLine & "Estás seguro?", _
vbYesNo + vbQuestion, "Kill Process") = vbYes Then
ProcesoACerrar.Terminate (0)
MatarProceso = True
End If

Else

'Matamos el proceso con el método Terminate
ProcesoACerrar.Terminate (0)
MatarProceso = True

End If
End If

Next
End If

'Elimina las variables
Set ListaProcesos = Nothing
Set ObjetoWMI = Nothing
End Function

Private Sub Listar()

Set ObjetoWMI = GetObject("winmgmts:")

If IsNull(ObjetoWMI) = False Then
' En esta variable se obtienen los procesos
Set ListaProcesos = ObjetoWMI.InstancesOf("win32_process")
'Recorremos toda la coleccion en la lista de procesos _
y la añadimos al control listbox
For Each ProcesoACerrar In ListaProcesos
List1.AddItem LCase$(ProcesoACerrar.Name)
Next
End If

'Eliminamos las variables de objeto

Set ListaProcesos = Nothing
Set ObjetoWMI = Nothing

End Sub

Private Sub Command1_Click()

Dim i%
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
MatarProceso (List1.List(i)), True
End If
Next

'Llamamos a MatarProceso pasandole el nombre
'Borramos el list
List1.Clear
'Volvemos a listar los procesos
Call Listar

End Sub

Private Sub Command2_Click()
'Borramos la lista y volvemos a listar los procesos
List1.Clear
Call Listar
End Sub

Private Sub Form_Load()
Call Listar
Command2.Caption = " Listar Procesos"
Command1.Caption = " Cerrar Proceso/s "
Me.Caption = " Multi Kill Process By Metal_Kingdom "
Form1.Picture = LoadPicture()
End Sub

Muchas gracias por vuestra ayuda.

basta con insertar la pregunta del MsgBox antes del For ... Next
que cierra todos todos los procesos...
demasiado simple no?

Saludos, desde Baires, JuanC

Gracias, aunque debo estar haciéndolo mal porque no consigo poner el msgbox y que funcione, estoy aprendiendo y me repatea no conseguir una chorrada así..