Tuer une application windows

0/5 (5 avis)

Snippet vu 11 886 fois - Téléchargée 48 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
mormoil Messages postés 36 Date d'inscription mercredi 25 mai 2005 Statut Membre Dernière intervention 26 octobre 2007
26 oct. 2007 à 12:17
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
cs_Cerbere Messages postés 6 Date d'inscription dimanche 1 décembre 2002 Statut Membre Dernière intervention 1 décembre 2002
7 févr. 2003 à 11:17
Merci fabiin,
Très pratique, fonctionne très bien sous Windows 2ooo.
DarkBoss Messages postés 154 Date d'inscription samedi 3 août 2002 Statut Membre Dernière intervention 12 décembre 2008
10 déc. 2002 à 20:58
Salut ton code m' est tres utile (en + il rare a trouvé)
cs_blabla Messages postés 112 Date d'inscription mercredi 28 août 2002 Statut Membre Dernière intervention 13 mars 2004
8 nov. 2002 à 17:50
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 @++
cs_Astalavista Messages postés 192 Date d'inscription lundi 24 décembre 2001 Statut Membre Dernière intervention 3 février 2010
8 janv. 2002 à 19:56
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.