vb.net windows进程结束

' 结束所有名为"notepad.exe"的进程
For Each proc In Process.GetProcessesByName("notepad")
proc.Kill()
Next

 

Imports System.Diagnostics
Public Class Form1
    Dim a As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Dim processName As String = "Notepad.exe" ' 要终止的进程名

        'For Each p In Process.GetProcessesByName(processName)
        '    Try
        '        p.Kill()
        '        ' Console.WriteLine($"已终止进程 {p.ProcessName}(PID:{p.Id})")
        '    Catch ex As Exception
        '        ' Console.WriteLine($"终止进程失败: {ex.Message}")
        '    End Try
        'Next
        a = a + 1
        Label1.Text = a
        If a = 1800 Then
            ' 结束所有名为"notepad.exe"的进程
            Dim processName As String = TextBox1.Text.Trim ' 要终止的进程名
            For Each proc In Process.GetProcessesByName(processName)
                proc.Kill()
            Next
            a = 0
        End If
     
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
        Timer2.Enabled = False
        a = 0
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Timer2.Enabled = True
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        ' 结束所有名为"notepad.exe"的进程
        Dim processName As String = TextBox1.Text.Trim ' 要终止的进程名
        For Each proc In Process.GetProcessesByName(processName)
            proc.Kill()
        Next
        Timer2.Enabled = False


    End Sub
End Class