Get and Destroy a List of Active Windows and associated Process Names in VB.NET

This Article will make you understand that how to get a List of Active Windows and the Processes which they are assosiated with, how you can Destroy the selected process.
 
Following are the Steps:-

• So to start the working Firstly create a new Windowforms project. Than from the tool box add one ListBox, two Buttons on form. You can select these control from the ToolBox as shown below.
  
  
  
  
  
  
  
• Give the names to the controls as lstMain to ListBox, btnRefresh to Button1 and btnDestroy to Button2. Now your form will look like the below form.
  
  
   
• Now double click on btnReferesh button and put the below code on Button_click Event.
  
    Private Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh.Click
          lstMain.Items.Clear()
          For Each p As Process In Process.GetProcesses
             If p.MainWindowTitle = String.Empty = False Then
                  lstMain.Items.Add(p.ProcessName & " # " & p.MainWindowTitle & " # " & p.Id)
             End If
          Next
    End Sub
   
• If you run your project the ListBox will be populated by active window names of most of the running application. by this working you will get all the active windows and associated processes with them.
   
• if you also want to destroy any of the selected process than go on windowforms double click on btnDestroy button and add the below code on Button_click Event.

    Private Sub btnDestroy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDestroy.Click
        Try
            Dim whole As String = lstMain.SelectedItem.ToString
            Dim pid = whole.Substring(whole.LastIndexOf(" # "))
            pid = pid.Replace(" # ", "")
            Dim p As Process = Process.GetProcessById(pid)
            Try
                p.Kill()
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
            Catch ex As Exception
                MessageBox.Show(ex.Message)
        End Try
    End Sub
 
Output:-