comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Listar los procesos

  • 0 Respuestas
  • 1168 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5380
  • Actividad:
    81.67%
  • Reputación 31
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 12:13:04 pm »
Colocaremos en el formulario un ListBox de nombre List1.
Y luego copiar este codigo...

Código: Visual Basic
  1. Private Declare Function CreateToolhelpSnapshot Lib "Kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVallProcessID As Long) As Long
  2.  
  3. Private Declare Function ProcessFirst Lib "Kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
  4.  
  5. Private Declare Function ProcessNext Lib "Kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
  6.  
  7. Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long)
  8.  
  9. Private Type PROCESSENTRY32
  10. dwSize As Long
  11. cntUsage As Long
  12. th32ProcessID As Long
  13. th32DefaultHeapID As Long
  14. th32ModuleID As Long
  15. cntThreads As Long
  16. th32ParentProcessID As Long
  17. pcPriClassBase As Long
  18. dwFlags As Long
  19. szExeFile As String * 260
  20. End Type
  21.  
  22.  
  23. Private Sub Form_Load()
  24. Dim hSnapShot As Long
  25. Dim uProceso As PROCESSENTRY32
  26. Dim res As Long
  27.  
  28. hSnapShot = CreateToolhelpSnapshot(2&, 0&)
  29. If hSnapShot <> 0 Then
  30. uProceso.dwSize = Len(uProceso)
  31. res = ProcessFirst(hSnapShot, uProceso)
  32. Do While res
  33. List1.AddItem Left$(uProceso.szExeFile, InStr(uProceso.szExeFile, Chr$(0)) - 1)
  34. res = ProcessNext(hSnapShot, uProceso)
  35. Loop
  36. Call CloseHandle(hSnapShot)
  37. End If
  38. End Sub
« Última modificación: Mayo 12, 2014, 03:11:00 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



Listar Las Fuentes Del Sistema En ComboBox

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1408
Último mensaje Julio 26, 2010, 04:06:50 pm
por ANTRAX