|
Task manager using .Net Or Task manager using VB.net Or Control processes using .Net
With this code you could inherit task manager control in your windows form using VB.net. If you find difficulty in using this code, you could download form from here and attach it to your project.
Solution code:
Imports System Imports System.Diagnostics Public Class taskmanage Inherits System.Windows.Forms.Form Private Sub taskmanage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load txtMachine.Text = System.Environment.MachineName.ToString Call FillList(txtMachine.Text) End Sub 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 cmdEndProc_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdEndProc.Click Dim Prc As Process
If txtMachine.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 cmdRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRefresh.Click txtMachine.Text = txtMachine.Text.ToUpper Call FillList(txtMachine.Text) End Sub
Private Sub tpgProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tpgProcess.Click
End Sub End Class
Download form, Click Here.
|
|
|