Comment savoir si un exe est en train de tourner ?Résolu

Question

Salut!

Je cherche une m&#233;thode simple pour savoir si un programme externe est actif ou ferm&#233;. Je ne connais que son nom d'ex&#233;cutable et il figure dans la liste du gestionnaire des taches. Ce prog externe n'est pas lanc&#233; par VB.
J'ai recherch&#233; sur le site mais apparement, v&#233;rifier juste avec un exe, ya pas (y'en a des tas avec le handle, les numid, mais rien vu avec les Exe).

Merci d'avance ;)

PCPT · Accepted Answer

voici en exemple en VB6 à partir de l'API-Guid... ' = ==== ' Form1 ' ===== ' Option Explicit ' ' Private Sub Form_Load() Me.AutoRedraw = True Call EnumWindows(AddressOf EnumWindowsProc, ByVal 0&) End Sub ' ======= ' Module1 ' ======= ' Option Explicit ' Declare Function EnumWindows Lib "user32" _ (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _ (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" _ (ByVal hwnd As Long) As Long ' Private Const cMON_EXE As String = "foxmail" 'à changer.... ' Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean Dim sSave As String, lRet As Long lRet = GetWindowTextLength(hwnd) sSave = Space$(lRet) Call GetWindowText(hwnd, sSave, lRet + 1) If LCase$(sSave) Like "*" & cMON_EXE & "*" Then Form1.Print sSave & Space$(20) & "hWnd = " & CStr (hwnd) 'continue enumeration EnumWindowsProc = True End Function Coloration syntaxique automatique [AFCK] PCPT [AFCK]

PCPT · Answer

salut,

cet exe est visible quand il est lanc&#233;?

c'est &#224; dire il a une fen&#234;tre?

j'ai FoxMail en systray. il est dans mes processus, mais n'appara&#238;t dans l'onglet application que quand je l'ouvre....

wrndid · Answer

salut 
tu fait ctrl alt sup gestionnnaire de tache tu va dans processus et regade si ton application est en route pou l'arrete clic desssu et terminer

bobjay · Answer

Pcpt, merci pour ton exemple mais j'ai pas trop compris cette action: If LCase$(sSave) Like "*" & cMON_EXE & "*" Then Form1.Print sSave & Space$(20) & "hWnd = " & CStr(hwnd)
C'est cens&#233; faire quoi exactement?

Wrndid, c'est sympa de m'avoir r&#233;pondu, mais ici c'est un forum de programmation, c'est pas un site pour apprendre &#224; se servir de windows (ya des sites genre "comment &#231;a marche"...)
Si on pose une question dans vbfrance, nous sous-entendons que les r&#233;ponses soient sous forme de code, justement pour automatiser les taches et &#233;viter le genre de manipulations que tu m'a propos&#233;.

++

katsankat · Answer

Fonction recherche sur le mot cl&#233; process. Pour "automatiser la r&#233;ponse".

PCPT · Answer

cMONEXE est &#233;videmment pour que tu voies rapidement quelle variable changer (ton exe cherch&#233;, &#224; &#233;crire en minuscule)


sSave contiendra le nom de l'application (pas forc&#233;ment le nom suppos&#233;..."


LCase interpr&#232;te en miniscule


Like est un op&#233;rateur


Form.Print pour &#233;crire le r&#233;sultat sur la Form, mais un Debug.Print suffisait


Space, bah c'est 20 espaces


puis le handle retrouv&#233; (converti en chaine , donc 654654 devient "654654")





traduction : si la chaine trouv&#233;e, en minuscule, a une syntaxe COMME ta constante (avec ou sans caract&#232;re avant et/ou apr&#232;s, d'o&#249; les *), alors &#233;crit le nom et le handle trouv&#233;





j'esp&#232;re que c'est plus clair ;)





++

bobjay · Answer

Merci