FUNCTION TERMINER(KILL) UN PROCESSUS PAR SON NOM
Satirik
Messages postés
44
Date d'inscription
mardi 2 juillet 2002
Statut
Membre
Dernière intervention
3 août 2004
-
8 juil. 2003 à 23:15
JPF - 10 févr. 2018 à 18:08
JPF - 10 févr. 2018 à 18:08
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/7838-function-terminer-kill-un-processus-par-son-nom
https://codes-sources.commentcamarche.net/source/7838-function-terminer-kill-un-processus-par-son-nom
10 févr. 2018 à 18:08
25 nov. 2008 à 17:04
25 nov. 2008 à 17:02
11 juil. 2006 à 22:29
9 juil. 2006 à 19:01
merci pour ce code exemplaire.
Je me sert de celui-ci pour tué un processus de lecteur vidéo lancé par Meedio.
Est-il possible de récupérer la ligne de commande qui à déclencher le process, de façon à en extraire le chemin du film lancé?.
J'ai trouvé sur le site des infos mais ne sait pas les appliquées.
Merci de votre aide.
16 sept. 2005 à 00:56
17 août 2005 à 21:34
15 avril 2005 à 11:55
dans la fonction killprocess.
elle était inutile et alourdissée l'ensemble.
Bravo tout de même pour ton programme
très pratique!!!!!!
Public Function KillProcessus(nom_process) As String
Dim i As Integer
Dim hSnapshot As Long
Dim uProcess As PROCESSENTRY32
Dim r As Long
Dim nom(1 To 100)
Dim num(1 To 100)
Dim nr As Integer
Dim v As Long
nr = 0
hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If hSnapshot = 0 Then Exit Function
uProcess.dwSize = Len(uProcess)
r = ProcessFirst(hSnapshot, uProcess)
v = 0
Do While r And v = 0
nr = nr + 1
nom(nr) = uProcess.szexeFile
num(nr) = uProcess.th32ProcessID
If InStr(UCase(nom(nr)), UCase(nom_process)) = 0 Then
r = ProcessNext(hSnapshot, uProcess)
Else
ProcessTerminate (num(nr))
v = 1
End If
Loop
End Function
31 mars 2005 à 16:43
2 févr. 2005 à 15:00
Super pour killer les virus actifs et les supprimer :)
Bonne continuation !
18 déc. 2004 à 23:19
26 nov. 2004 à 14:52
merci beaucoup et chapeau
27 mai 2004 à 17:33
D'autant que le processus reste actif tant qu'on ne reboote pas l'ordinateur !
J'avoue ne rien comprendre à ton code, mais intégeré in extenso, ça fonctionne.
Alors bravo et merci
9 mai 2004 à 00:28
28 déc. 2003 à 20:05
Je vais même pas étudier le code.
Je voulais faire la même chose à partir de la même source mais comme on dit : on va pas réinventer la roue ! et ça fait gagner du temps.
Good Job
ciao
9 juil. 2003 à 13:34
j ai modifier ma source pour l adapter a mon soft j'ai pas fais gaffe!!!
c la fonction killprocessus qui utilise la sous fonction processterminate.
9 juil. 2003 à 13:22
chez mou nom_process c'est pas n° process ...InStr(UCase(nom(i)), UCase(nom_process)) ... c'est un reconaissance de quoi ca ???
et puis fait une recherche dans ton code , ya aucune fonction TerminerProcessus , a par quand tu l'appelle a la derniere ligne donc bon ... et au passage le "as string" de la fonction killprocessus on se demande pk il est pas a l'interieur des parenthèses
8 juil. 2003 à 23:28
killprocessus (n° du processus)
avec la fonction terminerprocessus(iexplore.exe) ca cherche ds la liste des processus le soft et lance Killprocessus avec le nr du process correspondant !! voila.....
8 juil. 2003 à 23:15