创建刷新结束进程的实例
乐博网lob.cn提示:调试环境为 vs2005 + windows2003 / windows2008 / xp / vista + .NET Framework 2.0
代码如下:
Public Class taskmgr ' Dim i As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.ListView1.ContextMenuStrip = ContextMenuStrip1 ProcessList() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If MessageBox.Show("乐博网提示:确定结束进程", "结束进程", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.OK Then Dim proid As Integer = Int32.Parse(ListView1.SelectedItems(0).SubItems(1).Text) Dim pro As Process = Process.GetProcessById(proid) If Not pro.CloseMainWindow Then pro.Kill() pro.WaitForExit() pro.Close() ProcessList() End If End Sub Public Sub ProcessList() Try Dim pros() As Process Dim pro As Process pros = Process.GetProcesses ListView1.BeginUpdate() ListView1.Clear() ListView1.Columns.Add("进程名", 100, HorizontalAlignment.Center) ListView1.Columns.Add("进程ID", 100, HorizontalAlignment.Center) ListView1.Columns.Add("优先级", 100, HorizontalAlignment.Center) ListView1.Columns.Add("占用内存", 100, HorizontalAlignment.Center)
For Each pro In pros Dim listviewitem As ListViewItem = New ListViewItem() listviewitem.Text = pro.ProcessName listviewitem.SubItems.Add(pro.Id.ToString) listviewitem.SubItems.Add(pro.BasePriority.ToString) listviewitem.SubItems.Add(pro.WorkingSet64.ToString) ListView1.Items.Add(listviewitem) Next ListView1.EndUpdate() Label1.Text = "进程数:" & pros.Length Catch e As Exception MessageBox.Show(e.Message) End Try End Sub Private Sub 刷新进程ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 刷新进程ToolStripMenuItem.Click Button3_Click(sender, e) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click ProcessList() End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim properform As tPropertyForm = New tPropertyForm properform.Text = "乐博网:进程" & ListView1.SelectedItems(0).Text properform.proID = Int32.Parse(ListView1.SelectedItems(0).SubItems(1).Text) properform.ShowDialog() End Sub
Private Sub 进程属性ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 进程属性ToolStripMenuItem.Click Button4_Click(sender, e) End Sub
Private Sub 结束进程ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 结束进程ToolStripMenuItem.Click Button1_Click(sender, e) End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim newp As tNewProcessForm = New tNewProcessForm newp.Text = "乐博网:新建进程" newp.ShowDialog() End Sub
Private Sub 新建进程ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建进程ToolStripMenuItem.Click Button2_Click(sender, e) End Sub 'Sub a() ' Dim pro As Process ' Dim pross() As Process ' pro = Process.GetCurrentProcess() ' pro = Process.GetProcessById(900) ' pross = Process.GetProcesses() ' pross = Process.GetProcessesByName("taskmgr") ' Process.Start("dsgg") ' pro.Close() 'End Sub End Class
|