hola que tal,. keria saber si les parecia conveniente utilizar esta funcion para listar los proceso en un listbox
opinen nomas xD
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!
El codigo asi no iria.
Te lo modifico:
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 :D
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 ;D ;D