vb.net关闭程序进程的方法(实例)

Public Class Form1

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

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pProcess() As Process
        pProcess = Process.GetProcesses()
        Dim i As Integer
        For i = 0 To pProcess.Length() - 1
            Console.WriteLine(pProcess(i).ProcessName)
            If (pProcess(i).ProcessName = "iexplore") Then   '关闭IE浏览器
                pProcess(i).Kill()   '关闭进程
            End If

            If (pProcess(i).ProcessName = "TheWorld") Then   '关闭 世界之窗浏览器
                pProcess(i).Kill()   '关闭进程
            End If

            If (pProcess(i).ProcessName = "Maxthon") Then   '关闭 遨游浏览器
                pProcess(i).Kill()   '关闭进程
            End If

            If (pProcess(i).ProcessName = "GreenBrowser") Then   '关闭 绿色浏览器
                pProcess(i).Kill()   '关闭进程
            End If

            If (pProcess(i).ProcessName = "chrome") Then   '关闭 GOOGLE浏览器
                pProcess(i).Kill()   '关闭进程
            End If

            If (pProcess(i).ProcessName = "opera") Then   '关闭 opera浏览器
                pProcess(i).Kill()   '关闭进程
            End If

            If (pProcess(i).ProcessName = "firefox") Then   '关闭 火狐浏览器
                pProcess(i).Kill()   '关闭进程
            End If

            If (pProcess(i).ProcessName = "Netscape") Then   '关闭 网景浏览器
                pProcess(i).Kill()   '关闭进程
            End If

            If (pProcess(i).ProcessName = "Safari") Then   '关闭苹果浏览器
                pProcess(i).Kill()   '关闭进程
            End If

            If (pProcess(i).ProcessName = "IES") Then   '关闭IE加加浏览器
                pProcess(i).Kill()   '关闭进程
            End If

            If (pProcess(i).ProcessName = "360SE") Then   '关闭360浏览器
                pProcess(i).Kill()   '关闭进程
            End If

            If (pProcess(i).ProcessName = "sogouexplorer") Then   '关闭搜狗浏览器
                pProcess(i).Kill()   '关闭进程
            End If
        Next
    End Sub
End Class