如何用vb实现，杀死task manager中的进程？

Question

谢谢，如题

Answer 1

放listview,两个按钮Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As LongPrivate Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _
    ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As LongPrivate Declare Function TerminateProcess Lib "kernel32" (ByVal ApphProcess As Long, _
    ByVal uExitCode As Long) As LongPrivate Type PROCESSENTRY32
    dwSize As Long
    cntUsage As Long
    th32ProcessID As Long
    th32DefaultHeapID As Long
    th32ModuleID As Long
    cntThreads As Long
    th32ParentProcessID As Long
    pcPriClassBase As Long
    dwFlags As Long
    szExeFile As String * 1024
End TypeConst TH32CS_SNAPHEAPLIST = &H1
Const TH32CS_SNAPPROCESS = &H2
Const TH32CS_SNAPTHREAD = &H4
Const TH32CS_SNAPMODULE = &H8
Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Const TH32CS_INHERIT = &H80000000Private Sub Command1_Click()
    If MsgBox("你想删除 " & ListView1.SelectedItem.SubItems(2) & " 进程?", vbYesNo + vbQuestion) <> vbYes Then
        Exit Sub
    End If
    
    Dim mProcID As Long
    mProcID = OpenProcess(1&, -1&, ListView1.SelectedItem)
    TerminateProcess mProcID, 0&
    DoEvents
    ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
    ListView1.Refresh
End SubPrivate Sub CProcess_Click()
  Dim my As PROCESSENTRY32
  Dim l As Long
  Dim l1 As Long
  Dim mlistitem As ListItem
  
'  List1.Clear
  l = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
  If l Then
    my.dwSize = 1060
    If (Process32First(l, my)) Then '遍历第一个进程
      Do
       Set mlistitem = ListView1.ListItems.Add(, , my.th32ProcessID)
             mlistitem.SubItems(1) = my.th32ParentProcessID
             mlistitem.SubItems(2) = my.szExeFile
      Loop Until (Process32Next(l, my) < 1) '遍历所有进程知道返回值为False
    End If
    l1 = CloseHandle(l)
  End If
End SubPrivate Sub Form_Load()
    ListView1.ListItems.Clear
    ListView1.ColumnHeaders.Clear
    ListView1.FullRowSelect = True
    ListView1.ColumnHeaders.Add , , "Process ID", 1500
    ListView1.ColumnHeaders.Add , , "Process Parent ID", (1500)
    ListView1.ColumnHeaders.Add , , "Name", (Me.Width - 3200)
    ListView1.View = lvwReport
End Sub