Trouver les applications qui tourne en meme tps que la sienne

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 338 fois - Téléchargée 59 fois

Contenu du snippet


Source / Exemple :


Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal IpString As String, ByVal cch As Long) As Long
Const GW_HWNDFIRST = 0
Const GW_HWNDNEXT = 2

Sub ListeTache()
Dim CurrWnd As Long
Dim Length As Long
Dim TaskName As String
Dim Parent As Long
List1.Clear
CurrWnd = GetWindow(Form1.hwnd, GW_HWNDFIRST)

While CurrWnd <> 0
    Parent = GetParent(CurrWnd)
    Length = GetWindowTextLength(CurrWnd)
    TaskName = Space$(Length + 1)
    
    Length = GetWindowText(CurrWnd, TaskName, Length + 1)
    TaskName = Left$(TaskName, Len(TaskName) - 1)
    If Length > 0 Then
        If TaskName <> Me.Caption Then
            List1.AddItem TaskName
        End If
    End If
    CurrWnd = GetWindow(CurrWnd, GW_HWNDNEXT)
    DoEvents
Wend
End Sub

Conclusion :


et voila!
si vous avez des questions sur ce code pas de probleme posez la moi.

A voir également

Ajouter un commentaire

Commentaires

bobjay
Messages postés
66
Date d'inscription
mercredi 19 mai 2004
Statut
Membre
Dernière intervention
1 avril 2007
-
+1 pour JNL

Les titres des fenetres que je veux manipuler changent, je ne peux donc que me référencer aux noms des exécutables et non des fentres, et ça sur le site j'ai pas encore vu pour trouver le handle à partir d'un exe...
cs_JLN
Messages postés
373
Date d'inscription
samedi 1 juin 2002
Statut
Membre
Dernière intervention
17 juin 2013
-
ce qui serait le nec plus ultra c'est d'avoir le hwnd des executables qui tournent, c'est à dire non pas avec le titre de la fenetre, mais avec le nom de fichier ex : toto.exe ==> hwnd=....
Les process, 3e edition ...

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.