Windows NT/2000/XP 中如何结束一个进程, 请给出代码

Question

现在只知道会有一个 ABC.EXE 可能会在进程中, 如果查询到进程中存在该进程就结束他, 谢谢

Answer 1

試用"END"看看﹐我也不知道行不行﹖

Answer 2

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 Long
Private 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 = &H80000000Dim pid As Long
Dim pname As StringPrivate Sub Command1_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 = "ABC.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 "没有找到ABC.EXE"
    Shell "c:\windows\ABC.EXE", vbNormalFocus
  End If
End Sub