Comment vérifier si un programme externe est ouvert ??Résolu

Question

Bonjour,
Je voudrais savoir si il est possible de vérifier si un programme est ouvert (style VB6.exe, ou winword.exe ...)
Merci beaucoup.

stabe · Accepted Answer

les déclarations "public declare function machin truc" sont dans un module, le reste du code dans une procédure. Public Declare Function RecupHandleBureau Lib "user32" Alias "GetDesktopWindow" () As Long Public Declare Function NextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long sub LookProg Dim hwnd As Long Dim TitreFenetre As String * 255 Dim Titre As String Dim r as Long ' recupère toutes les sessions ouvertes hwnd = NextWindow(RecupHandleBureau(), 5) Do While hwnd <> 0 TitreFenetre = String(255, 0) r = GetWindowText(hwnd, TitreFenetre, 255) If TitreFenetre <> String(255, 0) Then Titre = TitreFenetre Titre = Left(Titre, r) If Titre = nom_programme_recherche Then msgbox "Le programme est déjà ouvert" End If End If hwnd = NextWindow(hwnd, 2) Loop end sub -- stabe --

BruNews · Answer

EnumProcess(), exemple fourni dans MSDN.

ciao...
BruNews, MVP VC++

AlexPoulard · Answer

Je vais voir ce que je peut faire evec ça. Merci beaucoup !

fcampagne · Answer

Salut, le plus simple a mon avi est de lister tous les processus qui
tournent sur la machine et ainsi il sera possible de v&#233;rifier si oui ou
non le programme recherch&#233; est dans la liste.

Pour cela, il faut utiliser WMI et la classe Win32_Process



Voici le code pour lister les processus (vb.net)



 Dim strComputer = "."

Dim liste as string=""

Dim objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")

Dim colServices = objWMIService.ExecQuery _

    ("Select * from Win32_Process'")



For Each objService in colServices

    liste +=objService.Name & vbcr

Next

msgbox(liste)

AlexPoulard · Answer

Est-ce que tu pourrais me donner un exemple pour mon code, parce que je suis débutant et je n'ai pas trouvé grand chose dans msdn. Merci

AlexPoulard · Answer

Ah merci, j'avais pas actualisé la page donc ton cod en'y été pas. Merci, je teste !

AlexPoulard · Answer

Désolé mais je n'utilise pas le VB.net, as-tu le code en vb simplement ??

fcampagne · Answer

Il est facilement adaptable sur vb6 ce code !!!! d'ailleur il doit marcher direct non ?

Sinon pour te faire une id&#233;e des possibilit&#233; WMI tu peux t&#233;l&#233;charger
script center de microsoft, tu y trouvera ton bonheur!Mais essaye
d'abord ce code sur vb6!

AlexPoulard · Answer

J'ai essayé de l'insérer, le code est entièrement rouge, et il me dit "erreur de syntaxe". Il y a surement quelquechose à faire mais je ne sais pas quoi ??

BruNews · Answer

doit y avoir une r&#233;f&#233;rence &#224; mettre sur WMI.

ciao...
BruNews, MVP VC++

fcampagne · Answer

Ahh oui d&#233;zol&#233;,

imports system.management

fcampagne · Answer

Correction, toi tu n'ais pas sur .Net donc sous vb6 je crois qu'il faut
ajouter une r&#233;f&#233;rence microsoft wmi library dans ton projet

AlexPoulard · Answer

C'est déjà fait et ca ne marche pas. Bon j'avais une autre solution :
mon prog est fait en deux exe. Le 1er exe ecrit une valeur dans le registre differente toutes les secondes (ca c'est ok) et mon deuxieme programme récupère les données. Si la clé ne change pas pendant plus de 2 ou 3 secondes alors le programme n'est plus actif. Ca c'est ma deuxeme solution. Mais mon pb, c'est que je ne sait pas comment faire ceci (seulement la 2eme partie)...

stabe · Answer

Bonjour, Moi sous VB6, j'utilise le code suivant : Public Declare Function RecupHandleBureau Lib "user32" Alias "GetDesktopWindow" () As Long Public Declare Function NextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Dim hwnd As Long Dim TitreFenetre As String * 255 Dim Titre As String ' recupère toutes les sessions ouvertes hwnd = NextWindow(RecupHandleBureau(), 5) Do While hwnd <> 0 TitreFenetre = String(255, 0) r = GetWindowText(hwnd, TitreFenetre, 255) If TitreFenetre <> String(255, 0) Then Titre = TitreFenetre Titre = Left(Titre, r) If Titre = nom_programme_recherche Then msgbox "Le programme est déjà ouvert" End If End If hwnd = NextWindow(hwnd, 2) Loop -- stabe --

AlexPoulard · Answer

Il faut déclarer quelquechose avec ce code ?? Moi il me met "Incorrect à l'exterieur d'une procédure" et il me surligne "RecupHandleBureau". Que dois-je faire ??

AlexPoulard · Answer

Merci beaucoup !! Merci beaucoup !! Ca marche bien !!

MadM@tt · Answer

Dsl j'arrive un peu tard mais petite remarque :

Si ton programme a un titre (le titre de la fenetre) tr&#232;s classique, ou
qui peut etre similaire &#224; un autre logiciel (par exemple si c'est un
logiciel comme bloc notes et que les titres des fenetres sont pareils
entre bloc notes et ton prog : exemple &#224; la con lol) il peut y avoir
confusion.

Le mieux pour faire simple c'est de rajouter un petit "-" au d&#233;but et &#224;
la fin du titre de ta fenetre par exemple pour etre certain que y'aura
pas confusion avec un autre prog.

T'a r&#233;ussi &#224; me comprendre lol ?

Cia&#242; 
MadMatt
http://matthieu.napoli.neuf.fr/wintools.html