Desktop Elemente Location auslesen

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

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Toolmaster.

    Desktop Elemente Location auslesen

    Guten Morgen,
    ich möchte gerne die Position aller am Desktop bendlichen Elemente auslesen. Doch leider habe ich keinen Plan wie das funktioniert. Alle beispiele und anleitungen die ich finde sind für VB6 und funktionieren unter Windows 10 leider nicht mehr.
    Hoffe es hat wer einen Tip für mich.

    Danke schon mal im Vorraus
    Tooli

    Toolmaster schrieb:

    Alle beispiele und anleitungen die ich finde sind für VB6
    Bitte zeigen/posten/verlinken. Da dürfte eine Umwandlung nach .Net eig. immer möglich sein. Wird wohl deshalb nicht einfach so 1:1 in VB.Net übertragbar sein, weil da bestimmt P/Invoke- bzw. WinAPI-Aufrufen dabei sind, bei denen man die übergebenden Variablentypen anpassen muss (z.B. Long in Integer usw.).
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    So habe jetz mal ein Beispiel aus VB 6 an VB Net angepasst. Aber ich habe schon Probleme das Handle zu finden.

    VB.NET-Quellcode

    1. <DllImport("user32.dll")>
    2. Public Shared Function FindWindow(lpClassName As String, lpWindowName As String) As IntPtr
    3. End Function
    5. <DllImport("user32.dll")>
    6. Public Shared Function FindWindowEx(hwndParent As String, hwndChildAfter As IntPtr, lpszClass As String, lpszWindow As String) As IntPtr
    7. End Function
    9. Private Function GetSysLVHwnd() As IntPtr
    10. Dim lHandle As IntPtr
    11. lHandle = FindWindow("Progman", vbNullString)
    12. 'Hier findet er noch ein Handle
    13. lHandle = FindWindowEx(lHandle, 0, "SHELLDLL_defVIEW", vbNullString)
    14. 'aber hier nicht mehr
    15. Return FindWindowEx(lHandle, 0, "SysListView32", vbNullString)
    16. End Function

    Toolmaster schrieb:

    Doch leider habe ich keinen Plan wie das funktioniert.
    Vielleicht fängst Du an und besorgst Dir die Information, wo diese Information bei Windows abgelegt ist, das sollte Dein erster Part sein.
    Wenn wir das wissen, lässt es sich viel leichter helfen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany
    Warum lässt du nicht einfach das Schreiben wenn nur Quatsch von dir kommt.Hättest du meinen vorigen Post gelesen wüsstest du das man den Desktop über eine Api erreicht und der Desktop ein Listview ist.

    Bei Dir muss immer alles als haber Roman geschrieben werden. Unverständlich. Aber bitte Du mußt mit Dir leben.

    Hallo

    ​Wie wäre es einfach die Positionen aus der Registry auszulesen?

    HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell \Bags\1\Desktop

    Grüße
    Sascha
    If _work = worktype.hard Then Me.Drink(Coffee)
    Seht euch auch meine Tutorialreihe <WPF Lernen/> an oder abonniert meinen YouTube Kanal.

    ## Bitte markiere einen Thread als "Erledigt" wenn deine Frage beantwortet wurde. ##

    Toolmaster schrieb:

    wenn nur Quatsch von dir kommt.
    Ich ziehe meinen Hut vor Dir.
    Hättest Du die richtige Frage an Frau Google gestellt, wäre Dir möglicherweise dieser Thread in die Finger gekommen: mycsharp.de/wbb2/thread.php?postid=298851
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Wenn du das getestet hättest wüßstest Du das der Code heute nicht mehr funktioniert. Oder arbeitest du noch mit XP? Die Apis sin die gleichen wie ich sie habe. Nur scheinen sie unter Windows 10 und windows 7 nicht mehr zu funktionieren.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Toolmaster“ ()

    Für alle die auch gerne den Desktop Handler auslesen möchten.

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Imports System.Text
    3. Public Class Desktop_Handle
    5. Private Delegate Function EnumWindowsProc(hwnd As IntPtr, lParam As IntPtr) As Boolean
    6. <DllImport("user32.dll")>
    7. Private Shared Function EnumWindows(lpEnumFunc As EnumWindowsProc, lParam As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
    8. End Function
    9. <DllImport("user32.dll")>
    10. Private Shared Function EnumChildWindows(parentHandle As IntPtr, lpEnumFunc As EnumWindowsProc, lParam As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
    11. End Function
    12. <DllImport("user32.dll")>
    13. Private Shared Function IsWindowVisible(hWnd As IntPtr) As Boolean
    14. End Function
    15. <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    16. Private Shared Function GetClassName(hWnd As IntPtr, lpClassName As StringBuilder, nMaxCount As Integer) As Integer
    17. End Function
    18. <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    19. Private Shared Function GetWindowText(hWnd As IntPtr, lpWindowText As StringBuilder, nMaxCount As Integer) As Integer
    20. End Function
    22. Public Shared Function Found_FolderView()
    23. Dim Worker_List As New List(Of Integer)
    24. Dim DesktopID As IntPtr = IntPtr.Zero
    26. EnumWindows(New EnumWindowsProc(Function(tophandle, topparamhandle)
    27. If IsWindowVisible(tophandle) Then
    29. Dim className As New StringBuilder(256)
    30. GetClassName(tophandle, className, className.Capacity)
    31. If className.ToString = "WorkerW" Then
    32. Worker_List.Add(tophandle)
    33. End If
    34. End If
    35. Return True
    36. End Function), IntPtr.Zero)
    38. If Worker_List.Count > 0 Then
    39. For Each Workerl As Integer In Worker_List
    41. EnumChildWindows(Workerl, New EnumWindowsProc(Function(childhandle, childparamhandle)
    43. Dim className As New StringBuilder(256)
    44. GetClassName(childhandle, className, className.Capacity)
    45. Dim windowTitle As New StringBuilder(256)
    46. If IsWindowVisible(childhandle) Then
    47. GetWindowText(childhandle, windowTitle, className.Capacity)
    48. If className.ToString = "SysListView32" And windowTitle.ToString = "FolderView" Then
    49. DesktopID = childhandle.ToInt64
    50. End If
    51. End If
    52. Return True
    53. End Function), IntPtr.Zero)
    54. Next
    55. End If
    56. Return DesktopID
    57. End Function
    58. End Class

Facebook
Telefonspende