VB6代码从任务管理器中结束进程

 1Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
 2Public Sub KillProcess(ByVal ProcessName As String)
 3       Set oWMI = GetObject("winmgmts:")
 4       Set oServices = oWMI.InstancesOf("win32_process")
 5       For Each oService In oServices
 6           servicename = LCase(Trim(CStr(oService.Name) & ""))
 7           If InStr(1, servicename, LCase(ProcessName), vbTextCompare) > 0 Then
 8              oService.Terminate
 9           End If
10       Next
11End Sub

1Private Sub Command1_Click()
2KillProcess ("Cmd.exe") '终结进程名称
3End Sub