[scl]

Creare una task manager con gestione dei processi

Occorrente:
Due Button;
Un form;
Una Listbox.

Sopra Public Class form1 scriviamo:

Codice:

Imports System.Diagnostics.Process

Nel button che deve aprire il processi scriviamo:

Codice:

Dim processi() As Process        processi = GetProcesses()


        For x = 0 To processi.Length - 1
            ListBox1.Items.Add(processi(x).ProcessName & ".exe")


        Next

Nel button che deve chiudere i processi scriviamo:

Codice:

Dim processo As String = ListBox1.SelectedItem        Using Salva As New System.IO.StreamWriter("C:\Users\" & Environment.UserName & "\Desktop\TaskManager.bat")
            Salva.Write("taskkill /f /im " & processo)
        End Using
        Shell("C:\Users\" & Environment.UserName & "\Desktop\Taskmanager.bat")

Attenzione, dopo che chiuderete un processo, vi creerà un file .bat nel vostro desktop.

Fonte: Mia