Tuer une application windows

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 777 fois - Téléchargée 47 fois

Contenu du snippet

Cetter fonction permet de tuer une application windows en cour d'execution

Source / Exemple :


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

Conclusion :


exemple d'utilisation:
KillProgram vbNullString, "Calculatrice"
mettre vbNullString sur le paramètre dont on ne connait pas l'information

A voir également

Ajouter un commentaire Commentaires
Messages postés
36
Date d'inscription
mercredi 25 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2007

Bonjour,
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
Messages postés
6
Date d'inscription
dimanche 1 décembre 2002
Statut
Membre
Dernière intervention
1 décembre 2002

Merci fabiin,
Très pratique, fonctionne très bien sous Windows 2ooo.
Messages postés
154
Date d'inscription
samedi 3 août 2002
Statut
Membre
Dernière intervention
12 décembre 2008

Salut ton code m' est tres utile (en + il rare a trouvé)
Messages postés
112
Date d'inscription
mercredi 28 août 2002
Statut
Membre
Dernière intervention
13 mars 2004

heum nan ca marche pas ... moi jen est une source ki fai ca mais elle marche sur 1 client de trojans (http://www.vbfrance.com/article.aspx?Val=6135)
esail de la maitre en local sans pour autan sinfecter @++
Messages postés
192
Date d'inscription
lundi 24 décembre 2001
Statut
Membre
Dernière intervention
3 février 2010

Comment je fait pour Killer Systray STP ?

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.