[VB 2008]Criando um gerenciador de processos Básico (passo-a-passo)

por **schnaidinha** Sáb Mar 17, 2012 5:20 pm

Eae galera,
hoje estarei demostrando como criar um gerenciador de processos básico no Visual Basic 2008.

Agora vamos ao trabalho...

1- Primeiro de tudo adicione ao seu form:
1 TextBox
1 ListBox
3 Button's
1 Process

2- Renomeie:
Button1 = "&Atualizar"
Button2 = "&Finalizar processo"
Button3 = "&Iniciar processo"

3- Códigos:

Primeiramente Importe:

Código:: Imports System.Diagnostics

Primeiro faremos o procedimento ListaProc(), responsável por carregar os processos ativos no seu computador na listbox.

Código:: Private Sub ListaProc() For Each processo As Process In Process.GetProcesses() If (processo.MainWindowTitle <> "") Then ListBox1.Items.Add(processo.ProcessName) Else ListBox1.Items.Add(processo.ProcessName) End If Next processo End Sub

Em seguida listamos esses processos na ListBox.

Faremos agora com que o programa ao ser aberto a lista de processos já venha carregada.
Então no evento Form_Load do form coloque:

Código:: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ListaProc() End Sub

- Button1
Utilizaremos um dos botões para atualizar a lista ao ser apertado.
Então no evento button_Click faça:

Código:: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ListBox1.Items.Clear() ListaProc() End Sub

Aqui limpamos a lista que passada e re-listamos a mesma com os novos processos.

-Button2
Agora que temos um visualizador de processos, faremos com que seja possível finaliza-los.
Há várias formas de se fazer, a forma que abordarei nesse tutorial será finalizando o processo que está selecionado no listbox.

Código:: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim s() As Process Try s = Process.GetProcessesByName(ListBox1.SelectedItem) s(0).Kill() Catch MessageBox.Show("Não foi possivel finalizar o processo.", "DownloadsGratix Erro!") End Try

Nesse trecho instanciamos um novo array s() de process e através do método GetProcessesByName pegamos todas as instancias de processos com o nome do parâmetro dele e logo em seguida finalizamos o processo da primeira posição da lista(a primeira instancia).

- Button3
E por fim faremos o iniciar processo.

Código:: Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Try Process1.StartInfo.FileName = TextBox1.Text Process1.EnableRaisingEvents = True Process1.Start() Catch MessageBox.Show("O processo não existe ou não pôde ser iniciado.", "DownloadsGratix Erro!") End Try End Sub

Aqui fazemos uso ao componente Process xD
Iremos inciar o processo que cujo caminho foi digitado no textbox.
OBS: Pagina inicial é a do windows, processos como notepad, calc, etc não precisão digitar o caminho.

Pronto, seu gerenciador de processos está feito =D
Esperam que tenha gostado e comente ai não custa nada!!!

Créditos: Schnaidinha(EU)
E o outro cara eu não sei