Ich finde eine Seite in diesem Forum nicht mehr - Sourcecode-Austausch - Programm "Fensterliste" o.ä..

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Dideldum.

    Ich finde eine Seite in diesem Forum nicht mehr - Sourcecode-Austausch - Programm "Fensterliste" o.ä..

    Hi Ihr,

    ich hatte mir hier aus dem Forum vor einiger Zeit die Zip-Datei eines Fensterlisten-Scripts vermutlich aus dem Soucecode-Austausch-Bereich heruntergeladen.
    Das Fenster sieht in etwa so aus, wie in meinem Bild.
    Leider finde ich dieses Script nicht mehr.

    Meine Suche nach Fensterliste, Fenster etc. bringt zwar viele Ergebnisse, aber nach einer Stunde Suchen habe ich das Gesuchte leider immer noch gefunden.

    Kann sich vielleicht einer von Euch daran erinnern, wie dieses Proggi heisst und wo ich dieses finden kann?


    Schönes Wochenende @all

    EDIT:
    Mein Problem ist vielleicht keines - aber ich denke doch, dass, wenn ich z.B. den Win-Explorer öffne und darin z.b. das Ordnereinstellungen-Fenster öffne (vermute mal stark, dass dieses dann ein Child-Window vom Explorer sein müsste), eben dieses doch in der Fensterliste auftauchen müsste.
    Tut es aber nicht...

    Hier mein Code für dieses Fensterlisten-Fenster (ist nicht der aus der Zip, aber diesem doch recht ähnlich):

    VB.NET-Quellcode

    1. Public Sub Create_Fensterliste()
    2. Dim fehler As String = ""
    3. AnzahlMatchingTopLevelFenster = 0
    4. AnzahlMatchingChildFenster = 0
    6. Me.Cursor = Cursors.WaitCursor
    8. Dim form_Wartefenster As New ICE_Wartefenster
    9. MainForm.GesamteOberflächeSperren(True)
    11. form_Wartefenster.Initialisiere(My.Resources.ICE_Common_BitteWarten, My.Resources.ICE_Fensterliste_InfoWarten1, -1, My.Resources.ICE_Common_InfoWarten2, 128)
    12. Do
    13. MainForm.Delay(1)
    14. Application.DoEvents()
    15. Loop While form_Wartefenster.Visible = False
    17. Try
    18. ' Stamm-Fenster
    19. StammfensterEinlesen(StammFensterAuswahl) ' 0 = Nur sichtbare Fenster mit Titel und Rahmen | 2 = Alle Fenster
    21. ' Child-Fenster
    22. ChildFensterEinlesen(ChildFensterAuswahl) ' 0 = Nur sichtbare Fenster mit Titel und Rahmen | 1 = Alle Fenster mit Titel | 2 = Alle Fenster
    24. Catch ex As Exception
    25. fehler = String.Format(My.Resources.ICE_Common_FehlerInModul, "Create_Fensterliste", ex.Message)
    26. Dim form_exclamation As New ICE_Eingabe
    27. form_exclamation.Initialisiere(False, My.Resources.ICE_Common_ICEFehler, fehler, MessageBoxButtons.OK, 4)
    28. End Try
    30. If form_Wartefenster.Visible = True Then
    31. form_Wartefenster.Formschliessen = True
    32. form_Wartefenster.Close()
    33. MainForm.GesamteOberflächeSperren(False)
    34. End If
    35. Me.Cursor = Cursors.Default
    36. End Sub
    38. #Region "EnumFenster"
    40. Private Sub StammfensterEinlesen(StammFensterAuswahl As Integer)
    41. Me.Cursor = Cursors.WaitCursor
    42. Application.DoEvents()
    44. dgv_TopLevelFenster.Rows.Clear()
    45. EnumWindows(AddressOf EnumTopLevelWinProc, StammFensterAuswahl)
    46. DGVTopLevelEinrichten()
    48. AnzahlTopLevelFenster = dgv_TopLevelFenster.Rows.Count
    50. dgv_TopLevelFenster.Sort(dgv_TopLevelFenster.Columns(0), ListSortDirection.Ascending)
    51. SelectTopLevelFenster()
    53. Me.Text = String.Format(My.Resources.ICE_Fensterliste_AnzahlFensterIdentifikatorGefunden, AnzahlMatchingTopLevelFenster.ToString, sucheTitel)
    55. grb_TopLevel.Text = String.Format(My.Resources.ICE_Fensterliste_AnzahlStammFensterGefunden, AnzahlTopLevelFenster.ToString)
    57. Me.Cursor = Cursors.Default
    58. End Sub
    60. Private Sub ChildFensterEinlesen(ByVal ChildFensterAuswahl As Integer)
    61. If dgv_TopLevelFenster.SelectedRows.Count = 1 Then
    62. Me.Cursor = Cursors.WaitCursor
    63. Application.DoEvents()
    65. dgv_ChildFenster.Rows.Clear()
    67. Dim hwndStammfenster As New IntPtr(CInt(dgv_TopLevelFenster.SelectedRows(0).Cells(2).Value))
    69. Call EnumChildWindows(hwndStammfenster, AddressOf EnumChildProc, ChildFensterAuswahl)
    71. dgv_ChildFenster.Sort(dgv_ChildFenster.Columns(1), ListSortDirection.Ascending)
    73. DGVChildEinrichten()
    75. AnzahlChildFenster = dgv_ChildFenster.Rows.Count
    77. grb_ChildFenster.Text = String.Format(My.Resources.ICE_Fensterliste_grb_ChildFenster & " - {0}", AnzahlChildFenster.ToString)
    79. SelectChildFenster()
    81. If IsWindowVisible(hwndStammfenster) Then
    82. btn_Stammfenster.Enabled = True
    83. Else
    84. btn_Stammfenster.Enabled = False
    85. End If
    86. btn_AnFensterSenden.Enabled = True
    88. Me.Cursor = Cursors.Default
    89. Else
    90. btn_Stammfenster.Enabled = False
    91. btn_AnFensterSenden.Enabled = False
    92. End If
    93. End Sub
    95. Private Function EnumTopLevelWinProc(ByVal hwnd As IntPtr, ByVal StammFensterAuswahl As Integer) As Boolean
    96. If (IsWindowVisible(hwnd)) Then
    97. If GetParent(hwnd) = IntPtr.Zero Then
    98. If GetWindowLong(hwnd, GWL_HWNDPARENT) = 0 Then
    99. AddWndInfosToListView(hwnd, StammFensterAuswahl, True)
    100. End If
    101. End If
    102. End If
    103. EnumTopLevelWinProc = True
    104. End Function
    106. Public Function EnumChildProc(ByVal hwnd As IntPtr, ByVal ChildFensterAuswahl As Integer) As Boolean
    107. Dim nStyle As IntPtr = GetWindowLongPtr(hwnd, GWL_STYLE)
    108. Dim tmpStr As String = hwnd.ToString
    110. If ChildFensterAuswahl = 0 Then
    111. ' Alle sichtbaren Fenster mit Titel und Rahmen
    112. If (nStyle.ToInt64() And WS_VISIBLE) = WS_VISIBLE AndAlso (nStyle.ToInt64() And WS_BORDER) = WS_BORDER Then
    113. ' Das Fenster ist sichtbar und hat einen Rahmen.
    114. AddWndInfosToListView(hwnd, ChildFensterAuswahl, False)
    115. End If
    116. Else
    117. ' Alle anderen Fenster
    118. AddWndInfosToListView(hwnd, ChildFensterAuswahl, False)
    119. End If
    121. EnumChildProc = True
    122. End Function
    124. Private Sub AddWndInfosToListView(ByVal hwnd As IntPtr, ByVal FensterAuswahl As Integer, topLevel As Boolean)
    125. Dim strClassName As String
    126. Dim WindowTitle As String
    127. Dim ownerHWND As IntPtr
    128. Dim owner As String
    130. Dim classNameBuilder As New StringBuilder(256)
    131. GetClassName(hwnd, classNameBuilder, classNameBuilder.Capacity)
    132. strClassName = classNameBuilder.ToString()
    134. WindowTitle = GetTitleFromWindow(hwnd)
    136. If WindowTitle.Length > 0 OrElse FensterAuswahl > 1 Then
    137. ownerHWND = GetAncestor(hwnd, 2)
    138. owner = IO.Path.GetFileName(MainForm.GetExeFromHWND(ownerHWND))
    139. If owner <> IO.Path.GetFileName(Application.ExecutablePath) Then
    140. If topLevel = True Then
    141. dgv_TopLevelFenster.Rows.Add(owner, WindowTitle, CStr(hwnd), strClassName)
    142. Else
    143. dgv_ChildFenster.Rows.Add(owner, WindowTitle, CStr(hwnd), strClassName)
    144. End If
    145. End If
    146. End If
    147. End Sub
    149. #End Region


    Habe ich einen Denkfehler - oder ist mit meinem Code was nicht OK?


    Bilder

    • Fensterliste.jpg

      146,29 kB, 1.042×723, 48 mal angesehen

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „Dideldum“ ()

    Meine obige Frage ist vielleicht verworren geschrieben... :D

    Meine Frage ist einfach die:
    Wenn ich das "Ordneroptionen"-Fenster im Win-Explorer öffne, warum erscheint dieses nicht mit diesem Titel in meiner Fensterliste.
    Weder als TopLevel-Fenster noch in der Childfenster-Liste.
    Bilder

    • Fensterliste.jpg

      207,17 kB, 1.042×723, 29 mal angesehen

    Hi @oobdoo

    Danke Dir für Deine Hilfe! :)
    Nicht ganz - Deinen Link habe ich auch auf meiner Suche gefunden.
    Ist auch nicht so arg wichtig, den Link zur Zip zu finden.
    Wichtiger ist mir, warum dieses verflixte "Ordneroptionen"-Fenster vom Win-Explorer weder in meiner TopLevel- noch in der ChildFenster-Liste erscheint.
    Habe alle Top-Level-"Explorer"-Fenster durchsucht, aber es gibt kein Child in diesen, welches den Fenstertitel "Ordneroptionen" trägt.
    Das verstehe ich so gar nicht.
    Und hier würde mich interessieren, ob ich einen Code-Knoten im Script habe, oder ob das irgend so eine Eigenart vom Windows ist.

    Schönen Rest-Sonntach :)

    Edit:
    Habe meine halbe FF-Chronik durchgeackert und es gefunden, das Script - war gar nicht in diesem Forum ;( :
    vb-fun.de/cgi-bin/loadframe.pl?ID=vb/tipps/tip0391.shtml
    Aber vielleicht kann mir einer die Frage beantworten, warum sich das "Ordneroptionen"-Fenster nirgendwo in der Enumeration der Fenster finden lässt.
    M.E. sollten doch alle Fenster entweder als TopLevel oder Child enumeriert werden und bei Auswahl von "Alle Fenster" auch in meinem Fenster angezeigt werden.
    Das würde ich gerne verstehen, warum das "Ordneroptionen"-Fenster hier nicht erscheinen mag.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Dideldum“ ()

Facebook
Telefonspende