Fermer les applications à paretir de VB

Je te remercie pour ton massage, je continue par chercher. Mais ce n'est pas facile de fouiller les API.
Si tu une methode qui explique le fonctionnement de chaque API tu peux me la filer.
A+

Salut Samouret.
Hier je ne me suis pas connecté.
J'ai finalement trouver une solution.
Je vais mettre ça tout à l'heure dans le forum.
A+

Salut Samouret,

J'ai finalement eu quelque chose, je l'ai testé et ça a marché.

C'est Wolfkiller qui m'as envoyé le code sur vbfrance.

Comment fermer une application externe depuis un programme VB?
Pour ce genre de chose, il faut passer par des fonctions API. Avant de pouvoir utiliser cette méthode il est essentiel de connaître le nom de la fenêtre que l'on cherche à fermer. La fonction cherche alors le handle de cette fenêtre et lui demande de se fermer (en passant par la fonction SendMessage on devrait obtenir un résultat similaire).

' Déclarations de fonctions API
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
' Déclaration de constante
Private Const WM_CLOSE = &H10
Public Sub FermeApplication(stApplication As String)
' Cette fonction ferme l'application dont le titre de
' la fenêtre est passé en paramètre.
Dim lgHwnd As Long, lgRep As Long
lgHwnd = FindWindow(vbNullString, stApplication)
lgRep = PostMessage(lgHwnd, WM_CLOSE, vbNull, vbNull)
End Sub


A+
Dav