[Tutorial] Task Manager

--------------------------
Name: ichimage
Modifier: Friend
Text: Imagename
Width: 100

Name: ichcaption
Modifier: Friend
Text: Caption
Width: 200
 
Name: ichuser
Modifier: Friend
Text: Responding
Width: 100

Name: ichid
Modifier: Friend
Text: SessionID
Width: 100

---------------------------------

' Description:This code is used in making a working taskmanager
' By: NextGen1 of Mpgh.net
' This code is copyrighted and comes  with no warranties.
' This code is intended for demonstration and all rights are granted soley to mpgh.net and it's members
' If you require any further information please contact me at mpgh.net via PM (Get an account if you don't have one) 
' Tutorials and apps create by me for mpgh.net will contain the following agreement 
' By adding this code in whole or part to any existing or new application you agree to the following terms 
' You agree to keep these notes connected with this code.
' You agree to grant credit to it's source (Mpgh.net)   
' You agree to keep this note in whole without edit inside of your code

'Required Namespaces , allows us to check system diagnostics including Task, Processes, Cpu, Memory, Etc. 
Imports System
Imports System.Diagnostics
Public Class Form1
' Asthetics    
Inherits System.Windows.Forms.Form


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Sets the textbox to the machinename        
TextBox1.Text = System.Environment.MachineName.ToString
'Fills the list with running processes
Call FillList(TextBox1.Text)
    End Sub

' Gets running processes    
Sub FillList(ByVal MachineName As String)
        Dim Prc() As Process
        Dim i As Integer
        Dim lvwP As ListViewItem
        Try
            lvwProcesses.Items.Clear()
            Prc = Process.GetProcesses(MachineName)

            For i = 0 To UBound(Prc)
                lvwP = lvwProcesses.Items.Add(Prc(i).ProcessName.ToUpper)

                If MachineName <> System.Environment.MachineName Then
                    lvwP.SubItems.Add("Unavailable...")
                    lvwP.SubItems.Add("Unavailable...")
                    lvwP.SubItems.Add(Prc(i).Id)
                Else
                    lvwP.SubItems.Add(Prc(i).MainWindowTitle)
                    lvwP.SubItems.Add(Prc(i).Responding)
                    lvwP.SubItems.Add(Prc(i).Id)
                End If

            Next
        Catch
            lvwProcesses.Items.Add("Error enumerating items...")
        End Try
    End Sub

    Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
        Dim Prc As Process

        If TextBox1.Text = System.Environment.MachineName.ToString Then
            Try
                Prc = Process.GetProcessById(lvwProcesses.SelectedItems(0).SubItems(3).Text)
                Prc.Kill()
                lvwProcesses.Items.Remove(lvwProcesses.SelectedItems.Item(0))
            Catch
                MessageBox.Show("Could not close process, " & Err.Description, "Error:", MessageBoxButtons.OK, MessageBoxIcon.Stop)
            End Try
        Else
            MessageBox.Show("You cannot close processes on a remote machine, only view them!", "Error:", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End If
    End Sub

    Private Sub ButtonX2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX2.Click
        TextBox1.Text = TextBox1.Text.ToUpper
        Call FillList(TextBox1.Text)
    End Sub
End Class