Listers les handles des fenêtres ouvertesRésolu

Question

Bonjour,



Je souhaiterai lister (dans une listbox), le titre des fen&#234;tres
actives, avec comme valeur pour chaque ligne le handle de la fen&#234;tre.



Ce qui devrait donner quelque chose comme cela dans la listbox :



-----------------------------

mon application (valeur handle : 10589)

www.google.fr - Mozilla firefox (valeur handle : 984354)

Dossier test ( valeur handle : 9846519874)

-----------------------------


S'il serai possible de faire simple je vous en serai grandement reconnaissant.



Merci d'avance pour vos r&#233;ponses .



---------------------------------------

nhervagault · Accepted Answer

Salut

 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal 
 lpClassName As String, ByVal lpWindowName As String) As Long 
 Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long 
 dans un bouton : 
 Private Sub Command1_Click() 
 Dim hNoteWnd As Long 
 Dim x As Long 
    hNoteWnd = FindWindow("Notepad", "Sans titre - Bloc-notes") 
    If hNoteWnd = 0 Then 
    'le notepad avec le titre "Sans titre - Bloc-notes" n'est pas en m&#233;moire 
            x =Shell("notepad.EXE", vbNormalFocus) 
    Else 
    'il est en m&#233;moire : on le force en avant plan 
         BringWindowToTop (hNoteWnd) 
   End If 
 End Sub 
 

Sinon, tu peux utiliser GetWindow pour obtenir la liste de toutes les 
 fen&#234;tres actives : 
 

dans un module basique : 
 Public Const GW_HWNDFIRST = 0 
 Public Const GW_HWNDNEXT = 2 
 Declare Function GetWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As 
 Long, ByVal wCmd As Long) As Long 
 Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal 
 hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long 
 

dans un bouton : 
 Private Sub Command1_Click() 
 Dim hWndNext As Long 
 Dim x As Long 
 Dim lpString As String * 255 
 Dim vLen As Long 
 

    hWndNext = GetWindow(hWnd, GW_HWNDFIRST) 
     If hWndNext <> 0 Then 
         vLen = GetWindowText  (hWndNext , lpString , len(lpString )) 
         Debug.print Left(lpString ,vLen ) 
     End If 
     do until  hWndNext = 0 
         hWndNext = GetWindow(hWndNext, GW_HWNDNEXT) 
         vLen = GetWindowText  (hWndNext , lpString , len(lpString )) 
         Debug.print Left(lpString ,vLen ) 
     loop 
 End Sub

Voila un petit debut
APres a toi faire la suite.

cs_DARKSIDIOUS · Answer

Voir ma source nomm&#233;e Anti-Pub

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

fg85 · Answer

Bon j'ai modifi&#233; le code comme ceci :

Private Sub Command1_Click()

Dim hWndNext As Long

Dim x As Long

Dim lpString As String * 255

Dim vLen As Long

Dim txt As String



    hWndNext = GetWindow(hwnd, GW_HWNDFIRST)

    If hWndNext <> 0 Then

        vLen = GetWindowText(hWndNext, lpString, Len(lpString))

        

        txt = Left(lpString, vLen)

        If txt = "" Then

        Else

            List1.AddItem txt, 0

        End If



    End If

    Do Until hWndNext = 0

        hWndNext = GetWindow(hWndNext, GW_HWNDNEXT)

        vLen = GetWindowText(hWndNext, lpString, Len(lpString))

        txt = Left(lpString, vLen)

        If txt = "" Then

        Else

            List1.AddItem txt, 0

        End If

    Loop

End Sub


Maintenant le probl&#232;me, est que ce code m'affiche une liste avec
plein d'autre chose autre que des fen&#234;tres, or je souhaiterai juste
lister les fen&#234;tres actives. Comment est-ce possible ?



PS : Par fen&#234;tre active, j'entend les fen&#234;tres qu'on peut acc&#233;der par la barre de t&#226;ches.



-------------------------------

cs_DARKSIDIOUS · Answer

Au risque de me r&#233;p&#233;ter : Voir ma source nomm&#233;e Anti-pub : elle fait ce que tu demande !

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

fg85 · Answer

Oui mais je souhaiterai un exemple concret, je d&#233;bute et je ne comprend rien &#224; votre source :(.

fg85 · Answer

Ben en faite, DarK Sidious, en cherchant dans ta source et en supprimer l'optionnel de l'essentiel, sa fonctione tr&#232;s bien.



Merci beaucou &#224; toi DarK Sidious et &#224; [auteurdetail.aspx?ID=84425 nhervagault], en compilant vos codes, j'ai r&#233;ussi &#224; cr&#233;er ce que je voulais. Merci

Listers les handles des fenêtres ouvertes

6 réponses

Discussions similaires