Liste des Process [Résolu]

Cjvg 330 Messages postés mercredi 6 décembre 2000Date d'inscription 26 octobre 2017 Dernière intervention - 26 oct. 2012 à 17:07 - Dernière réponse : ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention
- 27 oct. 2012 à 11:53
Bonjour,

Je souhaite arrêter un process dont je ne connais que le chemin et le Nom du Projet
- C:\Directorie\AZERTY.EXE

En prenant l'exemple ci-dessus, je l'ai trouvé dans la liste des process portant le nom AZERTY.

Dans cet autre exemple:

- C:\Directorie\Factures1.exe
Il porte le Nom --> Portefeuille Factures. (Je pensais trouver Factures1)

QUESTION: Comment peut on supprimer un process en ne connaissant que son chemin et son Nom.
(Bien entendant sans consulter au préalable la liste process).
Afficher la suite 

Votre réponse

11 réponses

Meilleure réponse
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 26 oct. 2012 à 21:30
3
Merci
POour illustrer mon message précédent :
Si lancé à l'aide de Shell, voilà le genre de ce que l'on peut faire.En exemple
Un bouton ouvrir et un bouton fermer
Option Explicit
Private Declare Function TerminateProcess Lib "kernel32" (ByVal monprocessid 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 dwmonappid As Long) As Long 'Ouverture de Process
Private monappid As Long


Private Sub ouvrir_Click()
  monappid = Shell("notepad.exe d:\essai.txt", 1) ' mettre un fichier existant chez toi
End Sub

Private Sub fermer_Click()
  Dim monprocessid As Long
  monprocessid = OpenProcess(1, False, monappid)
  TerminateProcess monprocessid, 4
End Sub



________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Merci ucfoutu 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 75 internautes ce mois-ci

Commenter la réponse de ucfoutu
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 26 oct. 2012 à 18:52
0
Merci
Bonjour,
Le chemin ne te servira à rien.
Si tu ne veux pas consulter la liste des processus (et l'opérateur Like) pour tuer le processus dont il s'agit, tu pourrais (entres autres et en fonction de ce que te permet de connaître ton appli) :
1) extraire le hwnd de la fenêtre ouverte (grâce par exemple à son caption, si connu)
2) zigouiller la fenêtre par la fonction DestroyWindow de la libraire User32 de l'Api de Windows


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
Commenter la réponse de ucfoutu
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 26 oct. 2012 à 19:00
0
Merci
Tu as aussi les fonctions ExitProcess et TerminateProcess de l'Api de Windows, mais elles impliquent :
- que tu ais extrait le pseudo handle du process
- l'utilisation de quelques autres fonctions de l'Api de Windows
Impossible de te conseiller un choix (entre la solution suggérée précédemment et ces deux dernières) sans rien savoir de ce que tu as et peut contrôler en fonction de ce que tu lances et de comment tu le lances.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
Commenter la réponse de ucfoutu
Cjvg 330 Messages postés mercredi 6 décembre 2000Date d'inscription 26 octobre 2017 Dernière intervention - 26 oct. 2012 à 19:19
0
Merci
Bonjour,

Je n'ai aucune information en dehors du NOM du projet.

L'application que je développe ne connaît pas LES projets qu'elle exécute et qu'elle devra ensuite zigouiller.

Le problème est peut-être insoluble.


Encore Merci.
Commenter la réponse de Cjvg
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 26 oct. 2012 à 19:29
0
Merci
Insoluble, non, mais très scabreux.
Un timer tournant sans cesse dès que l'autre appli est lancée pour identifier ladite appli et son process, donc.
Coûteux de chez coûteux, un tel mécanisme...


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
Commenter la réponse de ucfoutu
Cjvg 330 Messages postés mercredi 6 décembre 2000Date d'inscription 26 octobre 2017 Dernière intervention - 26 oct. 2012 à 19:46
0
Merci
Je pense avoir compris votre message.

- Juste avant de lancer l'exécution du projet, je sauvegarde en mémoire la liste de tous les Process.

- Immédiatement après avoir lancé l'exécution du projet, je sauvegarde la nouvelle liste des
process.

- Reste à chercher la différence entre les deux Listes pour identifier le projet qui vient d'être initialisé.

?....................
Commenter la réponse de Cjvg
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 26 oct. 2012 à 19:53
0
Merci
Ouais .... lourd, hein !
Existe peut-être une solution moins gourmande, mais uniquement à condition que l'autre appli soit lancée (par code) à l'aide de Shell.
Qu'en est-il ?


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
Commenter la réponse de ucfoutu
Charles Racaud 3181 Messages postés dimanche 15 février 2004Date d'inscription 9 avril 2017 Dernière intervention - 26 oct. 2012 à 23:48
0
Merci
Voilà ma solution
Cependant, il y a des testes à effectuer car elle ne semble pas fonctionner correctement avec tous les processus (Calculatrice Windows par exemple).
De plus y'aura peut-être des problèmes de comptabilité x86/x64

A tester quand même pour tes programmes

Private Const MAX_PATH = 260
Private Const INVALID_HANDLE_VALUE As Long = -1
Private Const TH32CS_SNAPPROCESS As Long = &H2
Private Const PROCESS_TERMINATE As Long = &H1
Private Const PROCESS_VM_READ As Long = &H10
Private Const PROCESS_QUERY_INFORMATION As Long = &H400

Private Type PROCESSENTRY32
  dwSize As Long
  cntUsage As Long
  th32ProcessID As Long
  th32DefaultHeapID As Long
  th32ModuleID As Long
  cntThreads As Long
  th32ParentProcessID As Long
  pcPriClassBase As Long
  dwFlags As Long
  szExeFile As String * MAX_PATH
End Type

Private Declare Function CreateToolhelp32Snapshot Lib "kernel32.dll" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long
Private Declare Function Process32First Lib "kernel32.dll" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32.dll" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function EnumProcessModules Lib "psapi.dll" (ByVal hProcess As Long, ByRef lphModule As Long, ByVal cb As Long, ByRef lpcbNeeded As Long) As Long
Private Declare Function GetModuleFileNameEx Lib "psapi.dll" Alias "GetModuleFileNameExW" (ByVal hProcess As Long, ByVal hModule As Long, ByVal lpFileName As Long, ByVal nSize As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32.dll" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Private Function KillProcessByPath(ByVal Path As String) As Boolean
  Dim ok As Boolean
  Dim hSnapshot As Long
  Dim ppe As PROCESSENTRY32
  Dim hProcess As Long
  Dim hModule As Long
  Dim buffer As String
  Dim bufferSize As Long
  Path = VBA.StrConv(Path, vbLowerCase)
  ppe.dwSize = Len(ppe)
  buffer = VBA.String$(MAX_PATH, VBA.Chr$(0&))
  hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)
  If Not hSnapshot = INVALID_HANDLE_VALUE Then
    If Process32First(hSnapshot, ppe) Then
      Do
        hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ Or PROCESS_TERMINATE, 0&, ppe.th32ProcessID)
        If hProcess = 840 Then Stop
        If Not hProcess = 0& Then
          If Not EnumProcessModules(hProcess, hModule, 0&, 0&) = 0& Then
            bufferSize = GetModuleFileNameEx(hProcess, hModule, StrPtr(buffer), MAX_PATH)
            If bufferSize > 0& Then
              buffer = VBA.StrConv(buffer, vbLowerCase)
              ok VBA.Left$(buffer, bufferSize) Path
              If ok Then
                KillProcessByPath Not TerminateProcess(hProcess, 0&) 0&
              End If
            End If
          End If
          Call CloseHandle(hProcess)
        End If
      Loop While Not ok And Process32Next(hSnapshot, ppe)
    End If
    Call CloseHandle(hSnapshot)
  End If
End Function



_____________
Kenji
Commenter la réponse de Charles Racaud
Cjvg 330 Messages postés mercredi 6 décembre 2000Date d'inscription 26 octobre 2017 Dernière intervention - 27 oct. 2012 à 09:55
0
Merci
Je vais faire des essais !

Encore merci.
Commenter la réponse de Cjvg
Cjvg 330 Messages postés mercredi 6 décembre 2000Date d'inscription 26 octobre 2017 Dernière intervention - 27 oct. 2012 à 11:15
0
Merci
C'est encore Moi,

J'ai écrit la procédure ci-dessous que j'utilise depuis longtemps sans savoir qu'elle comportait une anomalie.


'------------------------------------------------------------------------------------'
' '
' Load et Unload de Process '
' '
'------------------------------------------------------------------------------------'
' Call AppelApplication("Openw", "C:\Directorie\Projet.exe") ' Exécuter un Projet '
' Call AppelApplication("Close" ' Pour arrêter le Projet'
'------------------------------------------------------------------------------------'

Function AppelApplication(Parm As String, Optional Application As String)
Static Hprocess As Long
Static Codret As Long
Static ProcessId As Long
Dim ZCommand As String
Dim J1 As Integer

' On regarde si l'on passe un paramètre au programme
ZCommand = ""
J1 = InStr(LCase(Application), ".exe")
If J1 > 0 Then
If Len(Application) > J1 + 4 Then
ZCommand = Mid(Application, J1 + 5)
Application = Mid(Application, 1, J1 + 3)
End If
End If

' 1) Open Application ("Open OpenW") ------------------------
If Parm "Open" Or Parm "OpenW" Then

' On affiche un Fichier (OpenW ne marche Pas ! )
If Application <> COMPILATEUR And InStr(LCase(Application), ".exe") = 0 Then
Call ShellExecuteA(0, "", Application, "", "", 1)
Exit Function
End If

' On exécute un .EXE
ProcessId = Shell(Application & " " & ZCommand, 1)
Hprocess = OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessId)
AppelApplication = Hprocess

' Wait tant que le process appelé est actif
If Parm = "OpenW" Then
Do
Call GetExitCodeProcess(Hprocess, Codret)
DoEvents
Loop While Codret = STATUS_PENDING
End If

Exit Function
End If

' 2) Close Application ------------------------
Hprocess = OpenProcess(1, False, ProcessId) <---------------------------
Call TerminateProcess(Hprocess, Codret)
Call CloseHandle(Hprocess)

End Function


Suite à la suggestion de Mr.UcFoutu, j'ai ajouté l'instruction marquée par une flèche.

Ce que je trouve étonnant,c'est que la procédure aurait dû fonctionner correctement puisque la variable Hprocess est déclarée [b]Static[/b


Merci encore
Commenter la réponse de Cjvg
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 27 oct. 2012 à 11:53
0
Merci
J'ignore l'essentiel de ce que tu fais, mais je crois deviner suffisamment.

Regarde alors ce que fait ceci, qui utilise ShellExecute :
Le bouton Command1 lance (jy ai mis deux types possibles)
Le bouton Command2 tue

Option Explicit
'Flags ShellExecuteEx
Private Const SEE_MASK_NOCLOSEPROCESS = &H40
Private Const SEE_MASK_FLAG_NO_UI = &H400
'Constantes ERREUR ShellExecuteEx
Private Const SE_ERR_FNF As Byte = 2
Private Const SE_ERR_PNF As Byte = 3
Private Const SE_ERR_ACCESSDENIED As Byte = 5
Private Const SE_ERR_OOM As Byte = 8
Private Const SE_ERR_SHARE As Byte = 26
Private Const SE_ERR_ASSOCINCOMPLETE As Byte = 27
Private Const SE_ERR_DDETIMEOUT As Byte = 28
Private Const SE_ERR_DDEFAIL As Byte = 29
Private Const SE_ERR_DDEBUSY As Byte = 30
Private Const SE_ERR_NOASSOC As Byte = 31
Private Const SE_ERR_DLLNOTFOUND As Byte = 32
'Constantes AFFICHAGE ShellExecuteEx
Private Const SW_SHOWNORMAL = 1
Private Const SW_SHOW = 5
Private Const SW_SHOWDEFAULT = 10
Private Type SHELLEXECUTEINFO
    cbSize As Long
    fMask As Long
    hWnd As Long
    lpVerb As String
    lpFile As String
    lpParameters As String
    lpDirectory As String
    nShow As Long
    hInstApp As Long
    lpIDList As Long
    lpClass As String
    hkeyClass As Long
    dwHotKey As Long
    hIcon As Long
    hProcess As Long
End Type
Private Declare Function ShellExecuteEx Lib "shell32.dll" (SEI As SHELLEXECUTEINFO) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private toto As Long
' ***********************************************************
' *
' * Lance le programme par défaut associé à un fichier (en fonction de son
' * extension ) et retourne le hWnd de la fênetre du programme lançé.
' *
' ***********************************************************
Public Function OpenProgram(ByRef Filename As String, ByRef OwnerhWnd As Long) As Long
    Dim SEI As SHELLEXECUTEINFO
    
    On Error GoTo ErrorHandler
    With SEI
        .cbSize = Len(SEI)
        .fMask = SEE_MASK_NOCLOSEPROCESS Or SEE_MASK_FLAG_NO_UI
        .hWnd = OwnerhWnd
        .lpVerb = "open"
        .lpFile = Filename
        .lpParameters = vbNullChar
        .lpDirectory = vbNullChar
        .nShow = SW_SHOW
        .hInstApp = OwnerhWnd
    End With
    
    OpenProgram = ShellExecuteEx(SEI)
    
    If SEI.hInstApp <= 32 Then
    'Erreurs
        OpenProgram = 0
        Select Case SEI.hInstApp
            Case SE_ERR_FNF
                OpenProgram = SEI.hProcess
            Case SE_ERR_PNF
                MsgBox "Le chemin du fichier à ouvrir est incorrect.", vbExclamation
            Case SE_ERR_ACCESSDENIED
                MsgBox "Accès au fichier refusé.", vbExclamation
            Case SE_ERR_OOM
                MsgBox "Mémoire insuffisante.", vbExclamation
            Case SE_ERR_DLLNOTFOUND
                MsgBox "Dynamic-link library non trouvé.", vbExclamation
            Case SE_ERR_SHARE
                MsgBox "Le fichier est déjà ouvert.", vbExclamation
            Case SE_ERR_ASSOCINCOMPLETE
                MsgBox "Information d'association du fichier incomplète.", vbExclamation
            Case SE_ERR_DDETIMEOUT
                MsgBox "Opération DDE dépassée.", vbExclamation
            Case SE_ERR_DDEFAIL
                MsgBox "Opération DDE echouée.", vbExclamation
            Case SE_ERR_DDEBUSY
                MsgBox "Opération DDE occupée.", vbExclamation
            Case SE_ERR_NOASSOC
                'Ouvrir avec...
                Call Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " & Filename, vbNormalFocus)
        End Select
    Else
        'Retourne le hWnd du programme lançé par ShellExecuteEx
        OpenProgram = SEI.hProcess
        toto = OpenProgram
    End If
    
    Exit Function
ErrorHandler:
    OpenProgram = 0
End Function
' ***********************************************************
' *
' * Ferme un programme à partir du hWnd de sa fenêtre.
' *
' ***********************************************************
Public Function CloseProgram(hWnd As Long) As Boolean
    Dim lExitCode As Long
    
    If hWnd = 0 Then
        Exit Function
    End If
    
    CloseProgram = CBool(TerminateProcess(hWnd, lExitCode))
    CloseHandle hWnd
    DoEvents
    Sleep (100)
    
End Function
 

Private Sub Command1_Click()
  '====================================décommente selon ton choix <<<<<<<<<<<<<<<<<<<<<<<<<<<<=====================================
 OpenProgram "d:\essai.txt", 0
 'OpenProgram "calc.exe", 0
End Sub

Private Sub Command2_Click()
 CloseProgram toto
End Sub

Private Sub Form_Load()

End Sub

Voilà ! cela devrait permettre toutes sortes d'arrangements.




________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
Commenter la réponse de ucfoutu

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.