紧急求助：请问在VB中如何用Windows API函数终止一个进程，谢谢！

Question

是终止一个进程，而不是关机。
很急很急，麻烦各位大侠多多帮忙，谢谢！

Answer 1

Option Explicit
Const PROCESS_QUERY_INFORMATION = &H400
Const PROCESS_TERMINATE = &H1
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As LongSub main()
    Dim ProcessId As Long
    Dim hProcess  As Long
    ProcessId = Shell("notepad.exe", 1) '此处利用了 Shell当函数使用时返回的任务标识
    hProcess = OpenProcess(PROCESS_TERMINATE Or PROCESS_QUERY_INFORMATION, False, ProcessId)
    Call TerminateProcess(hProcess, 3838)
End Sub

Answer 2

详细请见贴：http://community.csdn.net/Expert/topic/3245/3245384.xml?temp=.7991297

Answer 3

显示进程、关闭进程
首先通过CreateToolhelp32Snapshot函数创建一个进程的快照，然后通过调用Process32First使用快照返回的句柄对进程进行遍历，相关的信息存放在PROCESSENTRY32结构类型的实例中，然后显示出来。
 
Winxp+vb6+sp6
代码如下：
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 = &H80000000
'添加listview控件,3个按钮
'删除listview中选定的进程
Private Sub Command2_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 Sub
'得到进程填充listview
Private Sub Command1_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'循环检测进程中是否有指定进程，如果有，关闭，如果没有，启动一个程序
Private Sub Command3_Click()
  Dim my As PROCESSENTRY32
  Dim l As Long
  Dim l1 As Long
  Dim flag As Boolean
  Dim mName As String
  Dim i As Integer  l = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
  If l Then
    my.dwSize = 1060
    If (Process32First(l, my)) Then '遍历第一个进程
      Do
             i = InStr(1, my.szExeFile, Chr(0))
             mName = LCase(Left(my.szExeFile, i - 1))
        If mName = "winword.exe" Then
             PID = my.th32ProcessID
             pname = mName
             MsgBox "找到word"
              If MsgBox("你想删除 " & mName & " 进程?", vbYesNo + vbQuestion) <> vbYes Then
                    Exit Sub
                End If
    
             Dim mProcID As Long
             mProcID = OpenProcess(1&, -1&, PID)
             TerminateProcess mProcID, 0&
             
             flag = True
             Exit Sub
         Else
             flag = False
         End If
      Loop Until (Process32Next(l, my) < 1) '遍历所有进程知道返回值为False
    End If
    l1 = CloseHandle(l)
  End If
  
  If flag = False Then
    MsgBox "没有找到word"
    Shell "c:\Program Files\Microsoft Office\Office\WINWORD.EXE", vbNormalFocus
  End If
End Sub

Answer 4

先用ToolHelp函数枚举进程
然后用OpenProcess打开进程
再用TerminateProcess终止进程
最后别忘用CloseHandle关闭进程句柄