Register

Você não está conectado. Conecte-se ou registre-se

 #1Ter 28 maio - 22:02

SnowaY


Membro

Membro

SnowaY


[VB.NET] Criando um Gerenciador de Processos Básico Empty [VB.NET] Criando um Gerenciador de Processos Básico
Olá galera eu aqui de novo
vou esta mostrando agora a como fazer seu Gerenciador de Tarefas
no VB.Net e muito facio . bom vamos lá.


[img">[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

1- Primeiro de tudo adicione ao seu form:

1 TextBox
1 ListBox
3 Button's
1 Process


2- Renomeie o Text:

Button1 = "&Atualizar" - Qual Nome Quiser
Button2 = "&Finalizar processo" - " " "
Button3 = "&Iniciar processo" - " " "


3- Códigos:
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: Eu Por o Post e o projeto em VB
Schnaidinha Post original



Download do projeto.
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]


Scan
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]


Anúncios



Ver o tópico anterior Ver o tópico seguinte Ir para o topo Mensagem [Página 1 de 1]

Permissões neste sub-fórum
Não podes responder a tópicos

 

Banner