VB.NET定时检测并终止管理员权限cmd.exe进程问题求助

嘿，我来帮你解决这个问题！首先得明确两个核心点：咱们的应用是标准用户身份，要终止管理员启动的cmd，必须用管理员凭据；另外得避免无cmd运行时的报错，还要精准识别管理员权限的cmd。下面一步步来：

先解决无cmd时的报错问题 #

你现在的代码报错，大概率是遍历进程时没先判断进程是否存在就直接操作了。先整个安全的枚举方式，确保没cmd的时候直接跳过，不会报错：

' 先把所有还在运行的cmd进程捞出来，过滤掉已经退出的
Dim cmdProcesses = Process.GetProcessesByName("cmd").Where(Function(p) Not p.HasExited).ToList()
If cmdProcesses.Count = 0 Then
    ' 没找到cmd，直接返回，避免后续操作报错
    Return
End If

怎么判断cmd是管理员权限运行的？ #

要识别管理员进程，咱们得用Windows API去查进程的令牌权限。这里还有个小技巧：如果标准用户没法打开某个进程的令牌，那它肯定是管理员权限的（因为标准用户没权限访问管理员进程的令牌）。直接上代码：

Imports System.Security.Principal
Imports System.Runtime.InteropServices

' 写个辅助函数，判断进程是不是管理员权限
Private Function IsProcessRunningAsAdmin(process As Process) As Boolean
    Try
        Dim hToken As IntPtr = IntPtr.Zero
        ' 尝试打开进程令牌
        If OpenProcessToken(process.Handle, TokenAccessLevels.Query, hToken) Then
            Dim identity As New WindowsIdentity(hToken)
            Dim principal As New WindowsPrincipal(identity)
            CloseHandle(hToken)
            ' 检查是否属于管理员组
            Return principal.IsInRole(WindowsBuiltInRole.Administrator)
        End If
    Catch ex As Exception
        ' 捕获到异常？说明咱们没权限打开这个进程的令牌，那它就是管理员权限的
        Return True
    End Try
    Return False
End Function

' 导入需要的系统API
<DllImport("advapi32.dll", SetLastError:=True)>
Private Shared Function OpenProcessToken(hProcess As IntPtr, desiredAccess As TokenAccessLevels, ByRef hToken As IntPtr) As Boolean
End Function

<DllImport("kernel32.dll", SetLastError:=True)>
Private Shared Function CloseHandle(hObject As IntPtr) As Boolean
End Function

用管理员凭据终止进程 #

因为咱们的应用是标准用户，要杀管理员进程，必须用管理员账号的凭据来执行终止操作。这里用taskkill命令结合凭据的方式最直接：

' 专门用来杀管理员进程的函数，要传管理员账号密码
Private Sub KillAdminProcess(processId As Integer, adminUsername As String, adminPassword As String)
    Dim psi As New ProcessStartInfo()
    psi.FileName = "taskkill.exe"
    psi.Arguments = $"/PID {processId} /F" ' /F是强制终止
    psi.UserName = adminUsername
    ' 把密码转成安全字符串
    Dim securePassword As New SecureString()
    For Each c As Char In adminPassword
        securePassword.AppendChar(c)
    Next
    psi.Password = securePassword
    psi.Domain = Environment.UserDomainName ' 如果是本地管理员账号，这里可以留空或者填机器名
    psi.UseShellExecute = False
    psi.CreateNoWindow = True ' 不让命令窗口弹出来
    Try
        Process.Start(psi)
    Catch ex As Exception
        ' 处理可能的错误，比如凭据不对、进程已经没了
        Console.WriteLine($"终止进程失败：{ex.Message}")
    Finally
        securePassword.Dispose() ' 记得释放安全字符串
    End Try
End Function

把逻辑整合到Timer的定时检测里 #

最后把这些代码放到Timer的Tick事件里，定时检测就行：

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    ' 第一步：捞所有活着的cmd进程
    Dim cmdProcesses = Process.GetProcessesByName("cmd").Where(Function(p) Not p.HasExited).ToList()
    If cmdProcesses.Count = 0 Then Return

    ' 这里的管理员账号密码别硬编码！最好从加密的配置文件里读
    Dim adminUsername As String = "你的管理员账号"
    Dim adminPassword As String = "你的管理员密码"

    ' 遍历每个cmd进程，检测并终止
    For Each proc In cmdProcesses
        If IsProcessRunningAsAdmin(proc) Then
            KillAdminProcess(proc.Id, adminUsername, adminPassword)
            Console.WriteLine($"已干掉管理员权限的cmd，PID：{proc.Id}")
        End If
    Next
End Sub

几个重要提醒 #

• 绝对别硬编码管理员凭据：把账号密码存在加密的配置文件或者注册表项里，不然泄露了就麻烦了
• 注意安全风险：传递管理员凭据有一定风险，确保你的应用是可信的，别被恶意利用
• 加好异常处理：比如进程在检测和终止之间退出了，或者凭据不对，这些情况都要处理
• Timer间隔别太密：比如设置成1秒或者5秒就行，太密了占系统资源

内容的提问来源于stack exchange，提问作者John Doe