杀死列表框中的所有进程？ (VB.NET)

Question

我正在尝试创建一个小型生产力程序，以便在编程时保持专注；具体来说，关闭任何可能分散我工作注意力的进程。为了简单起见，我用 VB.NET 编写它。

终止列表框中列出的所有进程的最简单方法是什么？我已经知道如何使用以下代码将进程添加到列表框：

        Dim newProc As New OpenFileDialog

    '// Settings for the open file dialog. (I like how I use ' to start the comment, but // so I recognize it! :)

    newProc.Filter = "Executable files (*.exe)|*.exe"
    newProc.FileName = "..choose a file.."
    newProc.Multiselect = True
    newProc.CheckFileExists = True
    newProc.CheckPathExists = True
    newProc.AutoUpgradeEnabled = True
    newProc.AddExtension = True

    If (newProc.ShowDialog = Windows.Forms.DialogResult.OK) Then
        ListBox1.Items.AddRange(newProc.SafeFileNames)
    End If

这非常整齐地将进程添加到列表框，完全按照我想要的方式添加。我有一个计时器，按下按钮即可启用，该按钮应关闭列表框中的所有进程，但我不确定应该使用什么。我可以寻求帮助吗？ :(

Answer 1

Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("notepad")

For Each p As Process In pProcess
   p.Kill()
Next

你可以尝试上面的方法。请查看此链接以获取更多信息。