es conveniente esta funcion?

[elmaro]

hola que tal,. keria saber si les parecia conveniente utilizar esta funcion para listar los proceso en un listbox
opinen nomas xD

Código [Seleccionar] Expandir


Dim ListaProcesos As Object
Dim ObjetoWMI As Object
Dim ProcesoACerrar As Object
Sub Listar()

Set ObjetoWMI = GetObject("winmgmts:")

If IsNull(ObjetoWMI) = False Then


Set ListaProcesos = ObjetoWMI.InstancesOf("win32_process")

'Recorremos toda las coleccion en lista de procesos y la añadimos al list
For Each ProcesoACerrar In ListaProcesos
frm.List1.AddItem LCase$(ProcesoACerrar.Name)
Next
End If
End Function


saludos


El MaRo!

[ivantj]

El codigo asi no iria.
Te lo modifico:

Código [Seleccionar] Expandir

Dim ListaProcesos As Object
Dim ObjetoWMI As Object
Dim ProcesoACerrar As Object
Sub Listar()

Set ObjetoWMI = GetObject("winmgmts:")

If IsNull(ObjetoWMI) = False Then


Set ListaProcesos = ObjetoWMI.InstancesOf("win32_process")

'Recorremos toda las coleccion en lista de procesos y la añadimos al list
For Each ProcesoACerrar In ListaProcesos
List1.AddItem LCase$(ProcesoACerrar.Name)
Next
End If
End Sub

Private Sub Form_Load()
Listar
End Sub

Asi si iria

[andoba]

Eh you tengo una idea:

ExExecuteProcess taskmgr.exe
FindWindow Administrador de tareas de Windows

Y luego cojes el contenido de el ListBox, y lo pegas a el list box en tu programa