Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: elmaro en 15 Agosto 2006, 18:49 pm


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

Código:
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:

Código:
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


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines