quinta-feira, 9 de dezembro de 2010

Processos em execução

Para listar os processos em execução no Visual Basic 6 faça conforme abaixo:

Crie um novo projeto e no form coloque um CommandButtom e um Listbox, copie e cole o código abaixo no evento click do CommandButton conforme abaixo:

 

Private Sub Command1_Click()

    Dim p, lista

    Set lista = GetObject("winmgmts:").InstancesOf("Win32_Process")

    For Each p In lista

       List1.AddItem " " & p.Name

    Next

End Sub

Resultado:

image

Nenhum comentário :

Postar um comentário

Related Posts Plugin for WordPress, Blogger...