Controle de processos windows

[AnonymousKesha 11]

Vou deixar alguns códigos para verificar e manipular processos do windows!

 

Verificar se o processo está aberto

Dim s() As Process

s = Process.GetProcessesByName("nome_do_processo_sem_.exe")

If s.Length = 0 Then ' Se o tamanho do array for = 0

MsgBox("Processo nao encontrado")

Else

MsgBox("Processo aberto")

End If

 

Listar todos os processos e programas abertos numa listbox

 

For Each processo As Process In Process.GetProcesses()

If (processo.MainWindowTitle <> "") Then

ListBox1.Items.Add("Programa: " & processo.MainWindowTitle)

Else

ListBox1.Items.Add("Processo: " & processo.ProcessName)

End If

Next processo

End Sub

 

Finalizar um processo

 

My.Computer.Audio.Play(My.Resources.Aviso, AudioPlayMode.Background)

Try

Dim Processos() As Process = System.Diagnostics.Process.GetProcessesByName("nome_do_processo_sem_.exe")

 

For Each x As Process In Processos

x.Kill()

Next

Catch

MsgBox("Processo não encontrado, não foi possivel executar o comando!", MsgBoxStyle.Information, Title:="Processo")

End Try

 

Iniciar um processo

 

My.Computer.Audio.Play(My.Resources.Aviso, AudioPlayMode.Background)

Try

Process.Start(TXT_Iniciar.Text & ".exe")

Catch

MsgBox("Nome do processo a ser iniciado incorreto!", MsgBoxStyle.Critical, Title:="Processo")

End Try

 

Nesse ultimo observem o TXT_Iniciar.Text & ".exe em vermelho, indica que o nome do processo é dado em uma textbox, e para não ter que colocar .exe no final já foi add ao código!

 

Obs: sempre ignorem My.Computer.Audio.Play(My.Resources.Aviso, AudioPlayMode.Background), essa linha eu uso para executar um som!