' --------------------------------------------------
' Déclarations API
' --------------------------------------------------
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Const PROCESS_TERMINATE = &H1
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 Long


' --------------------------------------------------
' Termine un processus
' --------------------------------------------------
' Parametres
' ProcessID : ID du processus
' --------------------------------------------------
Public Function KillProcess(ProcessID As Long) As Long
    Dim hProcess As Long
    ' Ouvre le processus
    hProcess = OpenProcess(PROCESS_TERMINATE, 0, ProcessID)
    ' Termine le processus
    KillProcess = TerminateProcess(hProcess, 0)
    CloseHandle hProcess
End Function

02/11/2006 : Javais oublié les déclarations API
Le 30/12/2006 par MadMatt : Petit bug daffichage