Lista de Programas Rodando

por **Vector** Qua Fev 08, 2012 8:26 pm

Bom Pessoal Hoje Vamos Aprender a Fazer um Programa que Lista outros Programas que estão Rodando no Momento!

Oque ele faz?

Simples Lista os Programas que estão Rodando no Momento!

Vídeo Aula em HD:

Como Fazer:

Adicione:

1 Button
1 RichTextBox

Renomeie:

Button1 - Capturar Programas

Código:
Imports System.Text Imports System.Management Public Class Form1 Public Shared Function getApplications() As String Dim a As New StringBuilder() Dim b As New Process() For Each b In Process.GetProcesses(".") Try If b.MainWindowTitle.Length > 0 Then a.Append("Nome da janela: " + b.MainWindowTitle.ToString() + Environment.NewLine) a.Append("Nome do processo: " + b.ProcessName.ToString() + Environment.NewLine) a.Append(Environment.NewLine) End If Catch End Try Next Return a.ToString() End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click RichTextBox1.Text = getApplications() End Sub End Class