Fermer une application "facilement"
Résolu
taj88
Messages postés
113
Date d'inscription
mercredi 9 mai 2007
Statut
Membre
Dernière intervention
28 août 2007
-
7 août 2007 à 11:55
Utilisateur anonyme - 7 août 2007 à 12:17
Utilisateur anonyme - 7 août 2007 à 12:17
2 réponses
Utilisateur anonyme
7 août 2007 à 12:17
7 août 2007 à 12:17
' Déclaration APIs
Private Declare Function TerminateProcess Lib "kernel32" ( _
ByVal hProcess As Long, _
ByVal uExitCode As Long) As Long 'API de fermeture de Process
Private Declare Function OpenProcess Lib "kernel32" ( _
ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessID As Long) As Long 'Ouverture de Process
Dim PId As Long, hP As Long
'Ouverture
PId = Shell("calc.exe")
' Fermeture
hP = OpenProcess(&H1, False, PId)
Call TerminateProcess(hP, &H4),
----
(Nouveau forum VBA/Office
Private Declare Function TerminateProcess Lib "kernel32" ( _
ByVal hProcess As Long, _
ByVal uExitCode As Long) As Long 'API de fermeture de Process
Private Declare Function OpenProcess Lib "kernel32" ( _
ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessID As Long) As Long 'Ouverture de Process
Dim PId As Long, hP As Long
'Ouverture
PId = Shell("calc.exe")
' Fermeture
hP = OpenProcess(&H1, False, PId)
Call TerminateProcess(hP, &H4),
----
(Nouveau forum VBA/Office
Utilisateur anonyme
7 août 2007 à 12:10
7 août 2007 à 12:10
Salut,
Avec les APIs OpenProcess et TerminateProcess.
__________
Kenji
(
Nouveau forum VBA/Office
Avec les APIs OpenProcess et TerminateProcess.
__________
Kenji
(
Nouveau forum VBA/Office
