Quitter une appli ouverte avec Shell
vinsus51
Messages postés
39
Date d'inscription
vendredi 30 avril 2004
Statut
Membre
Dernière intervention
7 juin 2013
-
17 mai 2004 à 11:51
gmni Messages postés 91 Date d'inscription mercredi 6 novembre 2002 Statut Membre Dernière intervention 20 mars 2009 - 17 mai 2004 à 17:47
gmni Messages postés 91 Date d'inscription mercredi 6 novembre 2002 Statut Membre Dernière intervention 20 mars 2009 - 17 mai 2004 à 17:47
1 réponse
gmni
Messages postés
91
Date d'inscription
mercredi 6 novembre 2002
Statut
Membre
Dernière intervention
20 mars 2009
17 mai 2004 à 17:47
17 mai 2004 à 17:47
Essais avec ca (deux boutons):
'''''''''
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CLOSE = &H10
Private lhWnd As Long
'ouvrir
Private Sub Command1_Click()
Call Shell("programme.exe", vbNormalFocus)
DoEvents
lhWnd = GetForegroundWindow
End Sub
'fermer
Private Sub Command2_Click()
Call SendMessage(lhWnd, WM_CLOSE, 0, 0)
End Sub
'''''''''''
'''''''''
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CLOSE = &H10
Private lhWnd As Long
'ouvrir
Private Sub Command1_Click()
Call Shell("programme.exe", vbNormalFocus)
DoEvents
lhWnd = GetForegroundWindow
End Sub
'fermer
Private Sub Command2_Click()
Call SendMessage(lhWnd, WM_CLOSE, 0, 0)
End Sub
'''''''''''