Título: es conveniente esta funcion?
Publicado por: elmaro en 15 Agosto 2006, 18:49 pm
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!
Título: Re: es conveniente esta funcion?
Publicado por: ivantj en 15 Agosto 2006, 20:00 pm
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
Título: Re: es conveniente esta funcion?
Publicado por: andoba en 15 Agosto 2006, 22:46 pm
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
|