Soyez le premier à donner votre avis sur cette source.
Snippet vu 13 953 fois - Téléchargée 35 fois
Option Compare Database Option Explicit Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long 'API de fermeture de Process Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long 'Ouverture de Process 'Procedure qui tue un processus Sub KillProcess() 'Const PROCESS_QUERY_INFORMATION = &H400 Static ProcessId: Dim hProcess, Termine& If MsgBox("OUI = OUVRIR, NON = FERMER", vbYesNo) = vbYes Then ProcessId = Shell("C:\Test.exe", vbHide) Else 'On le numéro de son Process hProcess = OpenProcess(1, False, ProcessId) ' On Ferme le process lancé par un TerminateProcess Termine& = TerminateProcess(hProcess, 4) End If End Sub
5 juin 2008 à 19:05
Je viens de tester ce code dans VBA sous Access. Il ne ferme pas un processus déjà ouvert mais plutôt un 'programme'. Pour exemple : j'ai un processus Excel en cours que je ne peux fermer que par le gestionnaire de tâche, ce code ne le ferme pas. Il fonctionne très bien pour ouvrir un executable définit et le fermer mais pas pour ce qui est déjà ouvert.
11 mars 2006 à 22:36
6 août 2005 à 06:36
'et ajoute un bouton Command1
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 IDProg As Integer
Private Sub Command1_Click()
Dim hProcess, Termine&
If Command1.Caption = "Start" Then
Command1.Caption = "Stop"
IDProg = Shell("calc.exe", vbNormalFocus)
Else
Command1.Caption = "Start"
hProcess = OpenProcess(1, False, IDProg)
Termine& = TerminateProcess(hProcess, 4)
End If
End Sub
Private Sub Form_Load()
Command1.Caption = "Start"
End Sub
24 avril 2005 à 00:10
On invoque quand la procédure Killprocess?
Il manque plein de choses la-dedans!
Fais-en un programme et met le zip pour voir si ca fonctionne, et verras p-e ce qu'il manque, parce que on peut rien faire avec ce code la sans le modifier!
Je mets pas de notes, on dirait pas un travail finit.
27 févr. 2005 à 23:33
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.