moumoul1982
Messages postés5Date d'inscriptionmardi 17 février 2004StatutMembreDernière intervention18 février 2004
-
18 févr. 2004 à 10:27
celiahd
Messages postés4Date d'inscriptionjeudi 4 mai 2006StatutMembreDernière intervention 7 avril 2010
-
5 juin 2008 à 19:05
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
celiahd
Messages postés4Date d'inscriptionjeudi 4 mai 2006StatutMembreDernière intervention 7 avril 2010 5 juin 2008 à 19:05
Bonsoir,
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.
TITOMBOSS
Messages postés50Date d'inscriptionvendredi 6 août 2004StatutMembreDernière intervention 6 juillet 2007 11 mars 2006 à 22:36
ce code marche-t-il pour tuer un process qui etaits déjà lancé avant l'execution du code???
cs_trouduc
Messages postés56Date d'inscriptionjeudi 26 décembre 2002StatutMembreDernière intervention28 septembre 2005 6 août 2005 à 06:36
'facile copier ceci et le mettre dans une form
'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
ticomic
Messages postés57Date d'inscriptionmercredi 22 décembre 2004StatutMembreDernière intervention29 avril 2005 24 avril 2005 à 00:10
On trouve comment le numéro du process?
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.
frosth
Messages postés1Date d'inscriptionjeudi 9 novembre 2000StatutMembreDernière intervention27 février 2005 27 févr. 2005 à 23:33
moi aussi je débute et ya rien qui marche...Se script est remplit derror dsl si ses moi lolll....
WolfAryx
Messages postés8Date d'inscriptionmercredi 21 juillet 2004StatutMembreDernière intervention 7 février 2005 5 févr. 2005 à 14:13
Bonjours, ton code me serai tres utile mais jarrive pas la faire fonctionner ( je débute :) ). Je linsere dans le code VB, je le lance pour tester, et il me met une erreur : "Des constantes, chaine de caractere ... types définit par l'utilisateur et instruction Declare ne sont pas autorisés comme membre Public des modules d'objets.
Ekinoks2
Messages postés18Date d'inscriptionmardi 7 janvier 2003StatutMembreDernière intervention 5 décembre 2003 18 févr. 2004 à 11:37
;) ben de rien, tant mieux alors... j'ai encore pas mal de petits programmems que j'ai fais, faudrait que je pense a les mettre sur le site :)
moumoul1982
Messages postés5Date d'inscriptionmardi 17 février 2004StatutMembreDernière intervention18 février 2004 18 févr. 2004 à 11:30
je l ai pas tester pendant des heures mais pour le process que j ai a fermer (telnet) il marche du feu de dieu !!!!!
Merci Boc !!!
Ekinoks2
Messages postés18Date d'inscriptionmardi 7 janvier 2003StatutMembreDernière intervention 5 décembre 2003 18 févr. 2004 à 11:22
Hello,
Tu peux enlever le OPTION COMPARE DATABASE il est utilisé uniquement si tu veux utiliser cette fonction sous ACCESS.
Est-ce que sinon il fonctionne correctement mon code ?
moumoul1982
Messages postés5Date d'inscriptionmardi 17 février 2004StatutMembreDernière intervention18 février 2004 18 févr. 2004 à 10:27
j ai l impression que chez moi le VB n encaisse pas le
"Option Compare Database" il me dit qu il veut du text ou du binaire ....
Peux tu m aider ????
En tout cas il a l air bien terrible comme code et je t en remercie
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
5 févr. 2005 à 14:13
18 févr. 2004 à 11:37
18 févr. 2004 à 11:30
Merci Boc !!!
18 févr. 2004 à 11:22
Tu peux enlever le OPTION COMPARE DATABASE il est utilisé uniquement si tu veux utiliser cette fonction sous ACCESS.
Est-ce que sinon il fonctionne correctement mon code ?
18 févr. 2004 à 10:27
"Option Compare Database" il me dit qu il veut du text ou du binaire ....
Peux tu m aider ????
En tout cas il a l air bien terrible comme code et je t en remercie