FERMETURE APPLICATION

Commentaire de UKR6900 le 24/06/2006 12:50:45

Correction pour que ça marche avec VB6 + exemple de code un peu plus explicite(voir ci-dessous avec Notepad).
Corrections:
Inversion dans l'API FindWindow entre lpClassName et
lpWindowName dans ton code (ça ne peut pas marcher) +
déclaration du handle changer le nom et emplacement
A+

Option Explicit

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

Private Const WM_CLOSE = &H10
Private lHandle As Long

Private Sub Command1_Click()
  lHandle = FindWindow("Notepad", vbNullString)
'Mettre exactement le nom du programme tel qu'il est notté quand CTRL-ALT-SUP
  Call PostMessage(lHandle, WM_CLOSE, 0, 0)
End Sub

Private Sub Form_Load()
  Shell "notepad", vbNormalFocus
End Sub