Vérifier si une application tourne

Le
ROLLOT Pascal Jean
Bonjour,

Je voudrais faire un prg qui serait lancé en tâche de fond et qui
vérifierait si une application tourne.
exemple : si outlook.exe est actif.

Je ne sais pas comment faire.

Merci de votre aide.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
tking
Le #15385931
ROLLOT Pascal Jean vient de nous annoncer :
Bonjour,

Je voudrais faire un prg qui serait lancé en tâche de fond et qui vérifierait
si une application tourne.
exemple : si outlook.exe est actif.

Je ne sais pas comment faire.

Merci de votre aide.




http://vb.developpez.com/faq/?page=Systeme#listprocess

Il est possible de lister les processus actifs sur une machine en
utilisant les fonctions de l'API Windows
Mais il existe une astuce beaucoup plus simple à l'aide d'un petit
script WMI, utilisant la classe Win32_process (testé sur Windows 2000,
XP) vb

Private Sub Command1_Click()
Dim svc As Object
Dim sQuery As String
Dim oproc
On Error GoTo Command1_Click_Error

Set svc = GetObject("winmgmts:rootcimv2")
sQuery = "select * from win32_process"
For Each oproc In svc.execquery(sQuery)
Debug.Print oproc.Name & " = " & oproc.ExecutablePath
Next
Set svc = Nothing
Exit Sub

Command1_Click_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
Err.Clear
End Sub



------------------------------------------------

"Lister les processus visual basic" dans google.

A+
Patrick Philippot
Le #15385921
Bonjour,

ROLLOT Pascal Jean wrote:
Je voudrais faire un prg qui serait lancé en tâche de fond et qui
vérifierait si une application tourne.
exemple : si outlook.exe est actif.



http://support.microsoft.com/kb/467805/fr

Bonne lecture.

--
Patrick Philippot - Microsoft MVP
MainSoft Consulting Services
www.mainsoft.fr
Jacques93
Le #15385911
Bonjour ROLLOT Pascal Jean,
ROLLOT Pascal Jean a écrit :
Bonjour,

Je voudrais faire un prg qui serait lancé en tâche de fond et qui
vérifierait si une application tourne.
exemple : si outlook.exe est actif.

Je ne sais pas comment faire.




En complément des réponses de tking et de Patrick Philippot,
au cas où outlook.exe ne serait pas qu'un exemple :

Dim OL As Object

On Error Resume Next
Set OL = GetObject(, "Outlook.Application")
If OL Is Nothing Then
MsgBox "OUTLOOK non lancé"
Else
MsgBox "OUTLOOK lancé"
End If

OUTLOOK expose une interface COM et il ne peut (sauf plantage), y avoir
plusieurs instances, à la différence de Word ou Excel (selon leur
paramétrage)

--
Cordialement,

Jacques.
Publicité
Poster une réponse
Anonyme