Soyez le premier à donner votre avis sur cette source.
Snippet vu 11 738 fois - Téléchargée 46 fois
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
tout cela est très intéressant mais comme je n'y connait absolument rien en vbs je ne sais pas où, dans le code, mettre le nom de mon application à tuer...
Y aurait-il une ame charitable pour m'éclairer ???
Merci
Très pratique, fonctionne très bien sous Windows 2ooo.
esail de la maitre en local sans pour autan sinfecter @++
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.