exe相关文章列表 – CUTEPIG BLOG

2021年4 月08日2022年9 月09日

VB.net强制结束指定进程

<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

lyingzhu 0

exe

app.config文件配置和修改

VB.net强制结束指定进程