1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Tuer une application windows

Tuer une application windows

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 738 fois - Téléchargée 46 fois

Commenter

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
Signaler
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
Signaler
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.
Signaler
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é)
Signaler
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 @++
Signaler
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 ?
S'inscrire maintenant

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.

Du même auteur (fabiin)