- Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
- Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
- Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
- Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
-
- Private Sub KillProgram(ClassName As String, Titre As String)
- Dim ProcessHandle As Long
- Dim ProcessId As Long
- Dim Appli As Long
- Const PROCESS_TERMINATE = 1
-
- Appli = FindWindow(ClassName, Titre)
- GetWindowThreadProcessId Appli, ProcessId
- ProcessHandle = OpenProcess(PROCESS_TERMINATE, False, ProcessId)
- TerminateProcess ProcessHandle, 4
- End Sub
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
Private Sub KillProgram(ClassName As String, Titre As String)
Dim ProcessHandle As Long
Dim ProcessId As Long
Dim Appli As Long
Const PROCESS_TERMINATE = 1
Appli = FindWindow(ClassName, Titre)
GetWindowThreadProcessId Appli, ProcessId
ProcessHandle = OpenProcess(PROCESS_TERMINATE, False, ProcessId)
TerminateProcess ProcessHandle, 4
End Sub