Problème avec OpenProcess

Version imprimable

25/08/2011, 17h29
pitizone

Problème avec OpenProcess
Bonjour à tous,

je poste ce sujet parce que je ne parviens pas à résoudre mon problème:

Je lance un logiciel avec la fonction shell et je récupère par la même occasion son PID. Avec ce PID, je souhaiterais récupérer son "handle" avec la fonction OpenProcess.
Code:

1 2 3 4 mPID = Shell(xxxxxxxxxxxxxx, vbHide) ProcessHandle = OpenProcess(&H1F0FFF, 0, mPID)
Le problème est que ProcessHandle est toujours égale à 0 même si mon programme tourne.

Une idée?
26/08/2011, 10h13
pitizone

J'ai oublié de dire que la fonction Openprocess est définie de la manière suivante:

Code:

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

A noter que cette fonction OpenProcess fonctionne correctement avec d'autres logiciels comme textpad ou bloc note.

En espérant que ça vous donnera des idées.

Merci d'avance
31/08/2011, 17h39
pitizone

Bonjour a tous,

personne n'a d'idée?

Si je reformule le problème autrement: Pour quelle raison ma fonction OpenProcess (telle qu'elle est définie) ne réussit pas à détecter si le processus est encore actif?

Merci d'avance
01/09/2011, 10h49
DarkVader

Bonjour,
Il y a une raison à demander des droits tous acces ?
02/09/2011, 10h55
pitizone

Bonjour,

non il n'y a pas de raison. Mais même avec les autres options, ça ne fonctionne pas. :cry:
02/09/2011, 10h57
pitizone

Peut être une autre piste:

Comme je ne parviens pas à savoir si mon processus est actif ou inactif, est-il possible de savoir si une fenêtre est ouverte ou non (sachant que si la fenêtre est ouverte, elle est automatiquement réduite)?
02/09/2011, 17h08
DarkVader

Essaie en utilisant currentprocessid

Voici le code que j'ai utilisé pour essayer la fonction "currentprocessid":

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Option Explicit
Public Declare Function GetCurrentProcessId Lib "kernel32.dll" () As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const STILL_ACTIVE = &H103
Private Const PROCESS_QUERY_INFORMATION = &H400
 
 
Public Sub ShellWait()
 
Dim hProcess As Long, RetVal As Long
Dim mPID, A, T As Long
 
 
 
mPID = Shell( XXXXXXX, vbHide)
 
' Temporisation pour que le programme ait le temps de se lancer
T = Timer
Do While Timer < T + 3
   DoEvents
Loop
 
hProcess = GetCurrentProcessId()
 
Do
 GetExitCodeProcess hProcess, RetVal
  DoEvents
Loop While RetVal = STILL_ACTIVE
A = MsgBox("C'est fini", vbExclamation, "WARNING")
 
End Sub

Le résultat est que il n'attend pas la fin de l'éxécution shell et m'affiche la fenêtre "C'est fini".

Je réitère ma question: est-il possible de savoir si une fenêtre est ouverte ou non (sachant que si la fenêtre est ouverte, elle est automatiquement réduite)?

Merci d'avance

05/09/2011, 19h09
DarkVader

Tu n'as jamais précisé auparavant l'utilisation que tu comptais en faire.
Pour attendre la fin du process vois du coté de Waitforsingleobject/waitformultipleobjects
06/09/2011, 08h04
pitizone

Oui, tout à fait, la finalité de cette macro est de lancer un programme et d'attendre la fin de son exécution avant de poursuivre.

Après quelques recherches sur le net, j'ai trouver plusieurs macros standards pour faire tout ça, avec notamment Waitforsingleobject. Le soucis est que toutes ces macros et fonctions réclament le numéro (handle) du processus du programme lancé et je ne parviens pas à le récupérer.

Voila, vous savez tout...

Salut

Citation:

Envoyé par pitizone

Je réitère ma question: est-il possible de savoir si une fenêtre est ouverte ou non (sachant que si la fenêtre est ouverte, elle est automatiquement réduite)?

Pas des plus propre mais fonctionnel.
Extrait de code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
'LabInfos.Caption = "lancement du fichier .bat"
FenetrE = False
ShL = Shell("c:\Pingeur.bat", vbMinimizedFocus)
DoEvents
 
' boucle d'attente du demarage du fichier .bat
Do While FenetrE = False
    On Error Resume Next
    AppActivate ShL
    If Err <> 0 Then
        Err.Clear
        Else 'la fenetre DOS du fichier .bat est en cour
        FenetrE = True
    End If
    DoEvents
Loop
 
' boucle d'attente de la fin de l'execution du fichier .bat
'LabInfos.Caption = "fichier .bat en cour"
Do While FenetrE = True
    On Error Resume Next
    AppActivate ShL
    If Err <> 0 Then 'la fenetre DOS n'existe plus, donc le fichier .bat est finit
        Err.Clear: Exit Do
    End If
    DoEvents
Loop
 
'LabInfos.Caption = "Operation terminée"

06/09/2011, 12h53
pitizone

Merci beaucoup ProgElecT pour ton aide.

Je n'ai pas encore essayé ta macro mais je pense que c'est une solution à mon problème.

Pour information: Entre temps, j'ai trouvé une autre astuce pour résoudre mon problème: Le programme que je lance avec shell exécute des calculs et écrit des instructions dans un fichier texte. Pour savoir si le calcul est fini, je vais lire le fichier texte et je vérifie que les données sont complètes.

En tout cas merci.