VB.net强制结束指定进程-CUTEPIG BLOG-可爱猪博客

<pre class="inline:true class:language-dotnet decode:1 " >Public Sub Main()

            '正在运行的MyPro.exe”的情况下，全部强制结束。

            If ProcessOnN("MyPro") &gt; 0 Then
                KillProcess("MyPro")
            End If

End Sub

Public Function ProcessOnN(ByVal ProcessName As String) As Integer

        '有“.EXE”的话删除

        Dim s As String = ProcessName.ToUpper.Replace(".EXE", "").Trim

        '返回指定进程的个数

        Return Process.GetProcessesByName(s).Length

End Function

Public Sub KillProcess(ByVal comObjProcessName As String)
        Dim mProcessList As Process()
        mProcessList = Process.GetProcessesByName(comObjProcessName)
        For Each tmpProcess As Process In mProcessList

            '有正在执行的“程序”时，全部强制结束

            tmpProcess.Kill()
        Next
End Sub

<pre class="inline:true class:language-dotnet decode:1 " >Public Sub Main()

'正在运行的MyPro.exe”的情况下，全部强制结束。

If ProcessOnN("MyPro") > 0 Then

KillProcess("MyPro")

End If

End Sub

Public Function ProcessOnN(ByVal ProcessName As String) As Integer

'有“.EXE”的话删除

Dim s As String = ProcessName.ToUpper.Replace(".EXE", "").Trim

'返回指定进程的个数

Return Process.GetProcessesByName(s).Length

End Function

Public Sub KillProcess(ByVal comObjProcessName As String)

Dim mProcessList As Process()

mProcessList = Process.GetProcessesByName(comObjProcessName)

For Each tmpProcess As Process In mProcessList

'有正在执行的“程序”时，全部强制结束

tmpProcess.Kill()

End Sub

Visits: 97

VB.net强制结束指定进程

相关文章

群晖 NAS 外网访问设置 – 腾讯 DNSPod

PHP获取当前url路径的函数及服务器变量

VS2013使用NuGet下载资源时提示“Newtonsoft.Json”已拥有为“Microsoft.CSharp”定义的依赖项的错误