• Microsoft Visual Basic 2008
• 2 Adet ToolStrip
• 1 Adet ListView
• 1 Adet Timer

Imports System

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Computer Name  : " & Environment.MachineName ' Form un başlıgı bilgisayarımızın Adıdır
        ListView1.View = View.Details ' Listwiev Özelliği
        ListView1.GridLines = True ' Listwiev Özelliği GridLines Acık.
        ListView1.Dock = DockStyle.Fill ' ' Listwiev Özelliği Full Olarak gösterme.
        Me.Height = 400 ' Form Boyutları
        Me.Width = 300  ' Form Boyutları
        ToolStrip1.Dock = DockStyle.Top
        ToolStrip2.Dock = DockStyle.Bottom




        Dim durum As String
        Dim durumson As String

        Dim i As Integer = 0
        Dim Process As New Process() ' Process Adında Değişken. Çalışan programları tutan değişken.
        ListView1.Items.Clear() ' İtemleri temizledik her bir yenilemede eklenmesin diye.
        For Each p In Process.GetProcesses(My.Computer.Name)
            ListView1.Items.Add(p.ProcessName)
            ListView1.Items(i).SubItems.Add(p.Id)
            ListView1.Items(i).SubItems.Add(FormatNumber(Math.Round(p.PrivateMemorySize64 / 1024), 0) + "KB")

            durum = p.Responding
            durumson = Replace(durum, "True", "Çalışıyor")
            ListView1.Items(i).SubItems.Add(durumson)

            
            i += 1
        Next

        ToolStripLabel1.Text = "Çalışan : " & ListView1.Items.Count 'Çalışan Toplam Program Sayısı
        ToolStripLabel2.Text = "işlemci Sayısı : " & Environment.ProcessorCount ' işlemci Sayısı



    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Try
            For Each Process As ListViewItem In ListView1.SelectedItems
                System.Diagnostics.Process.GetProcessById(Process.SubItems(1).Text).Kill()



            Next
            MsgBox("Kapatıldı")


        Catch ex As Exception
            MsgBox("Hata : " + ErrorToString())
        End Try
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Form1_Load(Nothing, Nothing)
    End Sub

   
End Class

Yukarıdaki kodu açtığınız projenin kod satırına kopyalayıp yapıştırabilirsiniz, ya da kaynak dosyadan alarak çalışabilirsiniz.

Imports System yapmayı unutmayın sakın.

Hepinize iyi çalışmalar...

Yemeğimizin yapımı burada sona ermiştir .

Hadi Afiyet Olsun sizlere

Kaynak dosyayı indirmek için tıklayın