FERMER N'IMPORTE QUEL PROCESS DEPUIS VB

moumoul1982 Messages postés 5 Date d'inscription mardi 17 février 2004 Statut Membre Dernière intervention 18 février 2004 - 18 févr. 2004 à 10:27
celiahd Messages postés 4 Date d'inscription jeudi 4 mai 2006 Statut Membre Derniè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.

https://codes-sources.commentcamarche.net/source/8428-fermer-n-importe-quel-process-depuis-vb

celiahd Messages postés 4 Date d'inscription jeudi 4 mai 2006 Statut Membre Derniè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és 50 Date d'inscription vendredi 6 août 2004 Statut Membre Derniè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és 56 Date d'inscription jeudi 26 décembre 2002 Statut Membre Dernière intervention 28 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és 57 Date d'inscription mercredi 22 décembre 2004 Statut Membre Dernière intervention 29 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és 1 Date d'inscription jeudi 9 novembre 2000 Statut Membre Dernière intervention 27 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és 8 Date d'inscription mercredi 21 juillet 2004 Statut Membre Derniè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és 18 Date d'inscription mardi 7 janvier 2003 Statut Membre Derniè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és 5 Date d'inscription mardi 17 février 2004 Statut Membre Dernière intervention 18 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és 18 Date d'inscription mardi 7 janvier 2003 Statut Membre Derniè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és 5 Date d'inscription mardi 17 février 2004 Statut Membre Dernière intervention 18 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
Rejoignez-nous