VB6 - Gerenciando processos do Windows

Este exemplo permite listar e encerrar processo do Windows usando o Windows Management Instrumentation - WMI .

O Windows Management Instrumentation (WMI) é um conjunto de extensões para o modelo de driver do Windows que fornece uma interface do sistema operacional através do qual os componentes instrumentados fornecem informação e notificação. O WMI é a implementação da Microsoft dos padrões da gestão empresarial baseados na Web (WBEM) e do Common Information Model (CIM) da Distributed Management Task Force (DMTF).

O WMI permite linguagens de script como VBScript ou Windows PowerShell para gerenciar computadores pessoais e servidores com Microsoft Windows, tanto local quanto remotamente.

fonte: http://en.wikipedia.org/wiki/Windows_Management_Instrumentation

O código para listar os processo existentes é dado a seguir:

Private Sub Listar()
      
        Set ObjetoWMI = GetObject("winmgmts:")
      
        If IsNull(ObjetoWMI) = False Then
            ' Nesta variavel obtemos os processos
            Set ListaProcesos = ObjetoWMI.InstancesOf("win32_process")
            For Each ProcessoAEncerrar In ListaProcesos
                List1.AddItem LCase$(ProcessoAEncerrar.Name)
            Next
        End If
      
        'Eliminamos as variaveis objeto
        Set ListaProcesos = Nothing
        Set ObjetoWMI = Nothing
      
    End Sub

Abaixo temos a visão do formulário do projeto:

O formulário usa apenas os controles ListBox, e CommandButton.

Para encerrar um processo usamos a função MatarProceso que fecha o processo. Ela é chamada passando o nome do processo, que neste caso, é nome selecionado no ListBox, e o segundo parâmetro é um valor booleano opcional se deseja cancelar.

Tudo muito simples e prático com o jeitão do bom e velho Visual Basic.

o projeto completo aqui: ManipularProcessosVB6.zip

Veja os Destaques e novidades do SUPER CD VB 2013 (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Veja mais sistemas completos para a plataforma .NET no Super DVD .NET , confira...

Quer aprender C# ??

Chegou o Super DVD C# 2013 com exclusivo material de suporte e vídeo aulas com curso básico sobre C#.

João 15:4 Permanecei em mim, e eu permanecerei em vós; como a vara de si mesma não pode dar fruto, se não permanecer na videira, assim também vós, se não permanecerdes em mim.

João 15:5 Eu sou a videira; vós sois as varas. Quem permanece em mim e eu nele, esse dá muito fruto; porque sem mim nada podeis fazer.

Referências:

José Carlos Macoratti