VBS - Controler si une application est lancée [Résolu]

Messages postés
29
Date d'inscription
samedi 30 juin 2007
Dernière intervention
2 janvier 2008
- - Dernière réponse : PCPT
Messages postés
13368
Date d'inscription
lundi 13 décembre 2004
Dernière intervention
3 février 2018
- 3 janv. 2008 à 04:30
Bonjour,
je souhaiterais controler si une application est bien ouverte (active dans la barre des taches).
je ne souhaites pas controler si le programme (exe) est lancé mais la fenetre en question.
J'ai écris cela, mais apparement c'est pas ca 

On Error Resume Next
set shell = WScript.CreateObject("WScript.Shell")
shell.AppActivate "Calculatrice"
If Err.Number <> 0 Then
   msgbox " L'application Calculatrice n'est pas active ! "
  Else
  Msgbox "L'application Calculatrice est active"
End If
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
Messages postés
13368
Date d'inscription
lundi 13 décembre 2004
Dernière intervention
3 février 2018
30
3
Merci
salut,

il n'y aura pas d'erreur, il faut vérifier le retour de SHELL

sous forme de fonction (en VBS) çà donne :

function ApplicationIsRunning(AppName)
  dim shell
  set shell = WScript.CreateObject("WScript.Shell")
  ApplicationIsRunning = shell.AppActivate(AppName)
  set shell = Nothing
end function

If ApplicationIsRunning("Calculatrice") Then
   msgbox "L'application 'Calculatrice' est active"
Else
  Msgbox "L'application 'Calculatrice' n'est pas active !"
End If

++
PCPT  [AFCK]
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 114 internautes nous ont dit merci ce mois-ci

Commenter la réponse de PCPT

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.