Einen Prozess beenden VB-Version:  VB5, VB6
	Views:  2.438

Einen Prozess gezielt beenden - wenn die TaskId bekannt ist - geht so:

Private Declare Function CloseHandle Lib "kernel32" ( _
  ByVal hObject As Long) As Long
 
Private Declare Function OpenProcess Lib "kernel32" ( _
  ByVal dwDesiredAccess As Long, _
  ByVal bInheritHandle As Long, _
  ByVal dwProcessId As Long) As Long
 
Private Declare Function TerminateProcess Lib "kernel32" ( _
  ByVal hProcess As Long, _
  ByVal uExitCode As Long) As Long
 
Const PROCESS_TERMINATE = &H1
 
Public lTaskID as Long
 
Private Sub cmdTerminate_Click()
   Dim hTask As Long
   Dim lResult As Long
   hTask = OpenProcess(PROCESS_TERMINATE, 0&, lTaskID)
   lResult = TerminateProcess(hTask, 1&)
   lResult = CloseHandle(hTask)
End Sub

Ein Beispiel wie man alle laufenden Anwendungen und auch die TaskID der Anwendungen ermitteln kann finden Sie in unserem Tipp  Alle laufenden Programme ermitteln .