Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

42 - Listar y cerrar los ejecutables cargados en el sistema

Nota. en el siguiente link, se puede descargar un módulo de clase que permite listar procesos y también obtener información de la lista de aplicaciones de windows y otras funciones útiles

Módulo para aplicaciones y procesos

Ejemplo 1 - Solo listar los ejecutables usando la función CreateToolhelp32Snapshot

Este es un ejemplo basado del Api guide y lo modifiqué para ponerlo dentro de un control ListView para que además de listar el nombre de los ejecutables, obtener otra información de los procesos, como en el siguiente gráfico:

La Página del Apiguide infaltable para descargar: http://www.allapi.net

Vista del formulario y el listView con los datos de los procesos abiertos en windows

listar procesos y programas mediante el Api

Controles

Colocar un control ListView
un CommandButton y pegar el siguiente código en el formulario

Nota: El nombre del proceso ejecutable se obtiene consultando la variable szExeFile

Código fuente

'Constantes '----------------------------------- Const TH32CS_SNAPHEAPLIST = &H1 Const TH32CS_SNAPPROCESS = &H2 Const TH32CS_SNAPTHREAD = &H4 Const TH32CS_SNAPMODULE = &H8 Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or _ TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE) Const TH32CS_INHERIT = &H80000000 Const MAX_PATH As Integer = 260 'Estructura para los procesos '----------------------------------- Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long ' Flags szExeFile As String * MAX_PATH ' nombre del ejecutable End Type 'Funciones Api para listar los procesos '-------------------------------------------------------- Private Declare Function CreateToolhelp32Snapshot Lib "Kernel32" ( _ ByVal lFlags As Long, _ ByVal lProcessID As Long) As Long Private Declare Function Process32First Lib "Kernel32" ( _ ByVal hSnapShot As Long, _ uProcess As PROCESSENTRY32) As Long Private Declare Function Process32Next Lib "Kernel32" ( _ ByVal hSnapShot As Long, _ uProcess As PROCESSENTRY32) As Long Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long) Private Sub Command1_Click() 'Elemento para el ListView Dim elemento As ListItem Dim hSnapShot As Long, uProcess As PROCESSENTRY32 hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&) uProcess.dwSize = Len(uProcess) R = Process32First(hSnapShot, uProcess) 'Añade los encabezados al control listview With ListView1.ColumnHeaders .Add , , "szExeFile" .Add , , "cntUsage" .Add , , "th32ProcessID" .Add , , "th32DefaultHeapID" .Add , , "cntThreads" .Add , , "th32ModuleID" .Add , , "th32ParentProcessID" .Add , , "pcPriClassBase" End With 'Vista de reporte ListView1.View = lvwReport 'Recorre los procesos y agrega la información al ListView Do While R R = Process32Next(hSnapShot, uProcess) 'rellenar los datos de la estructura en el listView Set elemento = ListView1.ListItems.Add(, , uProcess.szExeFile) elemento.SubItems(1) = uProcess.cntUsage elemento.SubItems(2) = uProcess.th32ProcessID elemento.SubItems(3) = uProcess.th32DefaultHeapID elemento.SubItems(4) = uProcess.cntThreads elemento.SubItems(5) = uProcess.th32ModuleID elemento.SubItems(6) = uProcess.th32ParentProcessID elemento.SubItems(7) = uProcess.pcPriClassBase Loop Set elemento = Nothing Call CloseHandle(hSnapShot) End Sub Private Sub Form_Load() Command1.Caption = " Listar procesos " End Sub Private Sub Form_Resize() On Local Error Resume Next ListView1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight - (Command1.Height + 100) Command1.Move Me.ScaleWidth - (Command1.Width + 100), _ ListView1.Top + ListView1.Height + 50 End Sub

Ejemplo 2 - Listar y cerrar procesos y ejecutables

Este código fuente, lista los ejecutables abiertos y los visualiza en un Listview con dos columnas. En la primera columna se agrega el nombre del ejecutable o proceso y en la segunda el ID de proceso

Al presionar en el Command2 " Terminar proceso ", se cierra el mismo, mediante su Pid o id de proceso

Formulario :

formulario para visualizar los procesos y poder cerrarlos

Ejemplo

Añadir al formulario un control Listview , dos controles CommandButton, y un módulo bas

Código fuente en el formulario

Option Explicit ' botón que enumera y lista los procesos _ abiertos en el control Listview '''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command1_Click() Dim i As Long Dim proc As PROCESSENTRY32 Dim snap As Long Dim Flag_Process As Long Dim ret As Long Dim Nombre As String ListView1.ListItems.Clear snap = CreateToolhelpSnapshot(TH32CS_SNAPall, 0) proc.dwSize = Len(proc) Flag_Process = ProcessFirst(snap, proc) i = 0 ' Bucle que enumera los procesos abiertos en windows While Flag_Process <> 0 Nombre = proc.szExeFile ' nombre del proceso ListView1.ListItems.Add , "first" & CStr(i), Nombre ' loa grega ' agrega el número de id de proceso ListView1.ListItems("first" & CStr(i)).SubItems(1) = proc.th32ProcessID ' id i = i + 1 ' siguiente proceso abierto Flag_Process = ProcessNext(snap, proc) Wend Call CloseHandle(snap) End Sub 'Botón que Cierra el process indicado Private Sub Command2_Click() Dim i As Long Dim hand As Long ' Obtiene el handle del proceso a partir de su id ( Valor de la segunda columna del LV) hand = OpenProcess(PROCESS_TERMINATE, True, CLng(ListView1.SelectedItem.SubItems(1))) ' le pasa el handle del proceso Call TerminateProcess(hand, 0) ' vuelve a listar los procesos Command1_Click End Sub Private Sub Form_Load() Dim header As ColumnHeader ListView1.View = lvwReport ListView1.ColumnHeaders.Clear ' agrega dos columnas ( Proceso e Id de proceso) Set header = ListView1.ColumnHeaders.Add(, "first", "Nombre del Proceso", 4200) Set header = ListView1.ColumnHeaders.Add(, "second", "ID de Proceso", 1200) Command1.Caption = "Listar procesos" Command2.Caption = "Terminar proceso" End Sub

Código fuente en un módulo bas

Option Explicit ' declaraciones api UDT y constantes ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias _ "CreateToolhelp32Snapshot" ( _ ByVal lFlags As Long, _ ByVal lProcessID As Long) As Long Public Declare Function ProcessFirst Lib "kernel32" Alias _ "Process32First" ( _ ByVal hSnapShot As Long, _ uProcess As PROCESSENTRY32) As Long Public Declare Function ProcessNext Lib "kernel32" Alias _ "Process32Next" ( _ ByVal hSnapShot As Long, _ uProcess As PROCESSENTRY32) As Long Public Declare Function TerminateProcess Lib "kernel32" ( _ ByVal hProcess As Long, _ ByVal uExitCode As Long) As Long Public Declare Function OpenProcess Lib "kernel32" ( _ ByVal dwDesiredAccess As Long, _ ByVal bInheritHandle As Long, _ ByVal dwProcessId As Long) As Long Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long ' constante/mensaje para cerrar el proceso Public Const PROCESS_TERMINATE As Long = (&H1) Public Const TH32CS_SNAPPROCESS = &H2 Public Const TH32CS_SNAPheaplist = &H1 Public Const TH32CS_SNAPthread = &H4 Public Const TH32CS_SNAPmodule = &H8 Public Const TH32CS_SNAPall = TH32CS_SNAPPROCESS + TH32CS_SNAPheaplist _ + TH32CS_SNAPthread + TH32CS_SNAPmodule Public Const MAX_PATH As Integer = 260 'estructura para las funciones ProcessNext, ProcessFirst Public Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szExeFile As String * MAX_PATH End Type

Enumerar los procesos con el Api WTSEnumerateProcesses

Código de muestra enviado por Mariano M Villarel, que lista los procesos en un List View, mediante la función del api de windows WTSEnumerateProcesses de la librería wtsapi32.dll , visualizando el Session Id, el Process Id, Process name y el User Id, y un command button para refrescar el listado

Vista previa del proyecto de ejemplo

Descargar

vb 6 - Enlaces relacionados:

vb.net - Enlaces relacionados

Métodos GetProcesses y Kill del objeto Process

Buscar en Recursos vb