cbuffer est une chaîne
cListeProcessus est une chaîne
pID est un entier = 0
j est un entier = 1
cListeProcessus = ExeListeProcessus ( exePID , exeNomCourt )
cbuffer = ExtraitChaîne(cListeProcessus,j,RC,DepuisDébut)
TANTQUE cbuffer <> EOT
SI ExtraitChaîne(cbuffer,1,TAB,DepuisFin) = fExtraitChemin(ExeInfo(exeNom),fFichier+fExtension) ALORS
pID = ExtraitChaîne(cbuffer,1,TAB,DepuisDébut)
FIN
j++
cbuffer = ExtraitChaîne(cListeProcessus,j,RC,DepuisDébut)
FIN
Info(pID)
ps est un entier
//---pID est le numéro récupéré juste dans le code au dessus
ps = AppelDLL32("kernel32","OpenProcess" , 1, Faux, pID)
SI ps ALORS
SI AppelDLL32("kernel32","TerminateProcess" , ps, -9) ALORS
Info("Process tué avec succès !")
SINON
Info("Impossible de tuer le process !")
FIN
SINON
Info("Impossible d'ouvrir le process")
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=1960&post_id=8179