Strings verbinden geht nicht ??

  • VB.NET

Es gibt 25 Antworten in diesem Thema. Der letzte Beitrag () ist von Rikudo.

    Strings verbinden geht nicht ??

    Aaaalso,

    Ich nutze folgendes um die aktiven fesnter auszulesen, sowie das handle, titel und status (maxmimized, minimized, normal)

    Spoiler anzeigen

    VB.NET-Quellcode

    1. #Region "Windowmanaging"
    2. Public Delegate Function CallBack(ByVal hwnd As IntPtr, ByVal lParam As Integer) As Boolean
    3. Public Declare Function EnumWindows Lib "user32.dll" (ByVal Adress As CallBack, ByVal y As Integer) As Integer
    4. Public Declare Function IsWindowVisible Lib "user32.dll" (ByVal hwnd As IntPtr) As Boolean
    5. Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Integer, ByVal lpWindowText As String, ByVal cch As Integer) As Integer
    6. Private Shared ActiveWindows As New ObjectModel.Collection(Of IntPtr)
    7. Private Declare Function IsZoomed Lib "user32.dll" (ByVal hwnd As Long) As Long
    8. Private Declare Function IsIconic Lib "user32.dll" (ByVal hwnd As Long) As Long
    9. Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Integer, ByVal nCmdShow As Integer) As Integer
    10. Private Const Windows = 11
    12. Public Function GetWindows() As List(Of String)
    13. On Error Resume Next
    14. Dim VisibleWindow As String = Nothing
    15. Dim inVisibleWindow As String = Nothing
    16. Dim hwndlist As New List(Of String)
    17. ActiveWindows.Clear()
    18. For Each i In GetActiveWindows()
    19. Dim windtitle As String = GetWindowtitle(i).Trim(Chr(0))
    20. If Not windtitle = Nothing Then
    21. If IsWindowVisible(i) Then
    22. hwndlist.Add(i.ToString & "|||" & GetWindowState(i) & "|||" & GetWindowtitle(i) & ";;;")
    23. End If
    24. End If
    25. Next
    26. Return hwndlist
    27. End Function
    28. Public Shared Function GetWindowtitle(ByVal hwnd As IntPtr) As String
    29. On Error Resume Next
    30. Dim Text As String = Space(Int16.MaxValue)
    31. GetWindowText(hwnd, Text, Int16.MaxValue)
    32. Return Text.Trim
    33. End Function
    34. Public Shared Function GetActiveWindows() As ObjectModel.Collection(Of IntPtr)
    35. On Error Resume Next
    36. EnumWindows(AddressOf Enumerator, 0)
    37. Return ActiveWindows
    38. End Function
    39. Private Shared Function Enumerator(ByVal Hwnd As IntPtr, ByVal lParam As Integer) As Boolean
    40. On Error Resume Next
    41. ActiveWindows.Add(Hwnd)
    42. Return True
    43. End Function
    44. Public Shared Function GetWindowState(hwnd As String) As String
    46. If IsZoomed(hwnd) = 1 Then 'maximized
    47. Return "Maxmimized"
    48. ElseIf IsIconic(hwnd) = 1 Then 'minimized
    49. Return "Minimized"
    50. End If
    51. Return "Normal"
    52. End Function
    53. #End Region


    Das seltsame ist, wenn ich die Funktion so anspreche:

    VB.NET-Quellcode

    1. For Each item As String In GetWindows()
    2. ListBox1.Items.Add(item)
    3. Next


    Dann geht es, alle einträge werden in der ListBox gelistet.
    Wenn ich jetzt allerdings alle Informationen der Fenster zusammenfügen möchte, etwas so:
    1234567|||Maximized|||TitelVonFenster1;;;76543|||Minimized|||TitelVonFenster2;;;9387234|||Maximized|||TitelVonFenster3 ...
    Und ich versuche die Strings so zu verbinden, dann geht es nicht:

    VB.NET-Quellcode

    1. Dim test as String = Nothing
    2. For Each item As String In GetWindows()
    3. test &= item
    4. Next
    5. MsgBox(test)


    Es wird mir lediglich ein Informationsset angezeigt, also nur von einem Fenster, anstatt alle informationen in einen String verknüpft?
    Wieso geht das nicht??
    C# Developer
    Learning C++

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

    Gonger96 schrieb:

    Sämtliche Deklarationen sind falsch, schau mal bei Pinvoke.net vorbei. On Error Resume Next ? ;(

    Aber das ansprechen der Funktionen geht ja, die Daten werden ja zurückgegeben, nur nicht zu einem einzelnen String verknüpft??
    C# Developer
    Learning C++

    Gonger96 schrieb:

    Trotzdem sind die falsch. Ändere erstmal diese Fehler, dann kümmern wir uns ums Problem

    Habe gerade mal die unnötigen rausgenommen, meinst du mit falsch das sie stattdessen mit DLLImport angesprochen werden sollten?
    C# Developer
    Learning C++

    Hi
    übrigens werden Strings im Normalfall an einem 0-Char abgeschnitten (also ein Char mit dem Wert 0). Dieses bleibt bei der Konkatenation von zwei Strings weiter vorhanden, wenn der String nicht die volle Länge ausnutzt, die für ihn reserviert wurde (hier verhält sich die String-Klasse anders, als C-Strings).

    Gruß
    ~blaze~

    Gonger96 schrieb:

    Auch das. Aber allg. sind die Typen falsch. Für Zeiger nimmt man IntPtr und am Rückgabetyp Long zweifel ich auch

    So bitte sehr, ich habe alles mal auf DLLImport geändert und die Rückgabewerte angepasst:

    VB.NET-Quellcode

    1. #Region "Windowmanaging"
    2. Public Delegate Function CallBack(ByVal hwnd As IntPtr, ByVal lParam As Integer) As Boolean
    3. Private Delegate Function EnumWindowsProc(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As Boolean
    4. Private Shared ActiveWindows As New ObjectModel.Collection(Of IntPtr)
    5. <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    6. Private Shared Function EnumWindows(ByVal lpEnumFunc As EnumWindowsProc, ByVal lParam As IntPtr) As Boolean
    7. End Function
    8. <DllImport("user32.dll")> _
    9. Public Shared Function IsWindowVisible(hwnd As Integer) As Integer
    10. End Function
    11. <DllImport("user32.dll")> _
    12. Public Shared Function GetWindowText(hwnd As Integer, lpstring As String, cch As Integer) As Integer
    13. End Function
    14. <DllImport("user32.dll")> _
    15. Public Shared Function IsZoomed(hwnd As Integer) As Integer
    16. End Function
    17. <DllImport("user32.dll")> _
    18. Public Shared Function IsIconic(hwnd As Integer) As Integer
    19. End Function
    20. <DllImport("user32.dll")> _
    21. Public Shared Function ShowWindow(hwnd As Integer, nCmdShow As Integer) As Integer
    22. End Function
    23. Private Const Windows = 11
    25. Public Function GetWindows() As List(Of String)
    26. On Error Resume Next
    27. Dim VisibleWindow As String = Nothing
    28. Dim inVisibleWindow As String = Nothing
    29. Dim hwndlist As New List(Of String)
    30. ActiveWindows.Clear()
    31. For Each i In GetActiveWindows()
    32. Dim windtitle As String = GetWindowtitle(i).Trim(Chr(0))
    33. If Not windtitle = Nothing Then
    34. If IsWindowVisible(i) Then
    35. hwndlist.Add(i.ToString & "|||" & GetWindowState(i) & "|||" & GetWindowtitle(i) & ";;;")
    36. End If
    37. End If
    38. Next
    39. Return hwndlist
    40. End Function
    41. Public Shared Function GetWindowtitle(ByVal hwnd As IntPtr) As String
    42. On Error Resume Next
    43. Dim Text As String = Space(Int16.MaxValue)
    44. GetWindowText(hwnd, Text, Int16.MaxValue)
    45. Return Text.Trim
    46. End Function
    47. Public Shared Function GetActiveWindows() As ObjectModel.Collection(Of IntPtr)
    48. On Error Resume Next
    49. EnumWindows(AddressOf Enumerator, 0)
    50. Return ActiveWindows
    51. End Function
    52. Private Shared Function Enumerator(ByVal Hwnd As IntPtr, ByVal lParam As Integer) As Boolean
    53. On Error Resume Next
    54. ActiveWindows.Add(Hwnd)
    55. Return True
    56. End Function
    57. Public Shared Function GetWindowState(hwnd As String) As String
    59. If IsZoomed(hwnd) = 1 Then 'maximized
    60. Return "Maxmimized"
    61. ElseIf IsIconic(hwnd) = 1 Then 'minimized
    62. Return "Minimized"
    63. End If
    64. Return "Normal"
    65. End Function
    66. #End Region


    Allerdings kann ich die Funktion jetzt überhaupt nicht mehr ansprechen, im vgl zu vorher, bzw, jetzt passiert überhaupt nichts mehr :c
    Wo ist das Problem?
    Ich möchte lediglich die Information aller Fenster (Jedes Fenster hat ein Handle, Titel und Status), in einen String verpacken und zurückgeben.
    C# Developer
    Learning C++

    Da du mich wieder mal übergangen hast und ich das äußerst unhöflich finde, hatte ich eigentlich nicht vor, nochmal was zu sagen, aber On Error Resume Next ist ein nogo. Außerdem sind hwnd grundsätzlich IntPtr und lParam ist einmal IntPtr und einmal Integer. Schau' halt auf der MSDN nach...

    Gruß
    ~blaze~

    Tut mir leid war nicht böse gemeint, aber ich habe nicht darauf reagiert weil ich nicht verstanden habe was du damit meinst...
    Ich überprüfe jetzt nochmal die Deklarationen auf msdn...

    EDIT:

    Habe die DllImports nochmals bearbeitet:

    VB.NET-Quellcode

    1. Public Delegate Function CallBack(ByVal hwnd As IntPtr, ByVal lParam As Integer) As Boolean
    2. Private Shared ActiveWindows As New ObjectModel.Collection(Of IntPtr)
    3. Private Delegate Function EnumWindowsProc(hWnd As IntPtr, lParam As IntPtr) As Boolean
    4. Public Declare Auto Function GetWindowText Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal lpString As String, ByVal cch As Integer) As Integer
    6. <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
    7. Private Shared Function EnumWindows(callback As EnumWindowsProc, extraData As IntPtr) As Boolean
    8. End Function
    9. <DllImport("user32.dll", CharSet:=CharSet.Auto)> _
    10. Public Shared Function IsWindowVisible(ByVal hWnd As IntPtr) As Boolean
    11. End Function
    12. <DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> _
    13. Public Shared Function IsZoomed(ByVal hWnd As IntPtr) As Boolean
    14. End Function
    15. <DllImport("user32.dll")> _
    16. Public Shared Function IsIconic(hwnd As Integer) As Boolean
    17. End Function
    18. <DllImport("user32.dll")> _
    19. Public Shared Function ShowWindow(hwnd As Integer, nCmdShow As Integer) As Integer
    20. End Function
    21. Private Const Windows = 11

    Habe aber wieder das selbe Problem wie am Anfang, in der ListBox gibt er alle aus, beim concating aber verknüpft er sie nicht... :C
    C# Developer
    Learning C++

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

    Überleg mal ob ein HWND (ein Zeiger auf _HWND) ein int sein kann, obwohl er an anderer Stelle ein IntPtr ist und obwohl dir @~blaze~: bereits gesagt hat, dass Handles und Zeiger generell als IntPtr gemarashallt werden (bis auf Strings natürlich).

    Gonger96 schrieb:

    Überleg mal ob ein HWND (ein Zeiger auf _HWND) ein int sein kann, obwohl er an anderer Stelle ein IntPtr ist und obwohl dir @~blaze~: bereits gesagt hat, dass Handles und Zeiger generell als IntPtr gemarashallt werden (bis auf Strings natürlich).

    Okay, habs nochmals *schwitz* überarbeitet, jetzt werden die DatenTypen IntPtr verwendet.

    VB.NET-Quellcode

    1. Public Delegate Function CallBack(ByVal hwnd As IntPtr, ByVal lParam As IntPtr) As Boolean
    2. Private Shared ActiveWindows As New ObjectModel.Collection(Of IntPtr)
    3. Private Delegate Function EnumWindowsProc(hWnd As IntPtr, lParam As IntPtr) As Boolean
    4. Public Declare Auto Function GetWindowText Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal lpString As String, ByVal cch As IntPtr) As IntPtr
    5. <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
    6. Private Shared Function EnumWindows(callback As EnumWindowsProc, extraData As IntPtr) As Boolean
    7. End Function
    8. <DllImport("user32.dll", CharSet:=CharSet.Auto)> _
    9. Public Shared Function IsWindowVisible(ByVal hWnd As IntPtr) As Boolean
    10. End Function
    11. <DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> _
    12. Public Shared Function IsZoomed(ByVal hWnd As IntPtr) As Boolean
    13. End Function
    14. <DllImport("user32.dll")> _
    15. Public Shared Function IsIconic(hwnd As IntPtr) As Boolean
    16. End Function
    17. <DllImport("user32.dll")> _
    18. Public Shared Function ShowWindow(hwnd As IntPtr, nCmdShow As IntPtr) As IntPtr
    19. End Function
    20. Private Const Windows = 11


    Die Items werden wie gesagt in die ListBox eingetragen, aber das verknüpfen der Strings geht nach wie vor nicht...
    C# Developer
    Learning C++

    Ich glaube außerdem, dass es wirklich an der Nullterminierung liegt. Strings enden in C bei der Darstellung auf \0, d.h. ein "0-Int16". Es handelt sich dabei um einen Sonder-Buchstaben, der eben den Wert 0 hat und einen String beendet (terminiert). .Net verwendet für Strings ein anderes Konzept; es hält die Puffergröße bereit, usw. Wenn du also einen String erzeugst, der auf \0 endet - was er bei dir wohl tut - und diesen an einen weiteren hängst, hast du ein \0 im String selbst und die Anzeige bricht dort ab, weil sie nicht auf dem .Net-Konzept, sondern auf dem C-Konzept basiert.

    Gruß
    ~blaze~

    Okay, das heisst mein String wird terminiert bevor ich den nächsten Teil anknüpfe, habe ich das so richtig verstanden?
    Und was kann ich machen das dies nicht passiert?
    Wo genau wird den dieser 0-String bei mir erzeugt?
    C# Developer
    Learning C++

    Ich würde darauf tippen, dass das hier geschieht:

    VB.NET-Quellcode

    1. Public Shared Function GetWindowtitle(ByVal hwnd As IntPtr) As String
    2. On Error Resume Next
    3. Dim Text As String = Space(Int16.MaxValue)
    4. GetWindowText(hwnd, Text, Int16.MaxValue)
    5. Return Text.Trim
    6. End Function

    Die Space-Funktion ist btw. ein Relikt, da kannst du stattdessen den Konstruktor von String benutzen: [ic=vb]New String(Chr(0), Short.MaxValue)[/vb], wobei es glaub' ich auch eine GetWindowTextLength-Funktion gibt, die du dafür stattdessen verwenden könntest. Statt Trim würde man dann eben TrimEnd(Chr(0)) oder sowas benutzen, wenn du auf GetWindowTextLength verzichtest. Du hast dann aber im Normalfall eine große Menge Speicher im Vergleich zum effektiv benötigten Speicher verpulvert.

    Gruß
    ~blaze~

    Perfekt ~blaze~, das war tatsächlich der Grund ^^
    So geht es:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Delegate Function CallBack(ByVal hwnd As IntPtr, ByVal lParam As IntPtr) As Boolean
    2. Private Shared ActiveWindows As New ObjectModel.Collection(Of IntPtr)
    3. Private Delegate Function EnumWindowsProc(hWnd As IntPtr, lParam As IntPtr) As Boolean
    4. Public Declare Auto Function GetWindowText Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal lpString As String, ByVal cch As IntPtr) As IntPtr
    5. <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
    6. Private Shared Function EnumWindows(callback As EnumWindowsProc, extraData As IntPtr) As Boolean
    7. End Function
    8. <DllImport("user32.dll", CharSet:=CharSet.Auto)> _
    9. Public Shared Function IsWindowVisible(ByVal hWnd As IntPtr) As Boolean
    10. End Function
    11. <DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> _
    12. Public Shared Function IsZoomed(ByVal hWnd As IntPtr) As Boolean
    13. End Function
    14. <DllImport("user32.dll")> _
    15. Public Shared Function IsIconic(hwnd As IntPtr) As Boolean
    16. End Function
    17. <DllImport("user32.dll")> _
    18. Public Shared Function ShowWindow(hwnd As IntPtr, nCmdShow As IntPtr) As IntPtr
    19. End Function
    20. Private Const Windows = 11
    22. Public Function GetWindows() As List(Of String)
    23. Dim VisibleWindow As String = Nothing
    24. Dim inVisibleWindow As String = Nothing
    25. Dim hwndlist As New List(Of String)
    26. ActiveWindows.Clear()
    27. For Each i In GetActiveWindows()
    28. Dim windtitle As String = GetWindowtitle(i).Trim(Chr(0))
    29. If Not windtitle = Nothing Then
    30. If IsWindowVisible(i) Then
    31. hwndlist.Add(i.ToString & "|||" & GetWindowState(i) & "|||" & GetWindowtitle(i) & ";;;")
    32. End If
    33. End If
    34. Next
    35. Return hwndlist
    36. End Function
    37. Public Shared Function GetWindowtitle(ByVal hwnd As IntPtr) As String
    38. Dim Text As String = New String(Chr(0), Short.MaxValue)
    39. GetWindowText(hwnd, Text, Int16.MaxValue)
    40. Return Text.TrimEnd(Chr(0))
    41. End Function
    42. Public Shared Function GetActiveWindows() As ObjectModel.Collection(Of IntPtr)
    43. EnumWindows(AddressOf Enumerator, 0)
    44. Return ActiveWindows
    45. End Function
    46. Private Shared Function Enumerator(ByVal Hwnd As IntPtr, ByVal lParam As Integer) As Boolean
    47. ActiveWindows.Add(Hwnd)
    48. Return True
    49. End Function
    50. Public Shared Function GetWindowState(hwnd As String) As String
    51. If IsZoomed(hwnd) = 1 Then
    52. Return "Maxmimized"
    53. ElseIf IsIconic(hwnd) = 1 Then
    54. Return "Minimized"
    55. End If
    56. Return "Normal"
    57. End Function
    58. #End Region


    Und dann aufrufen mit:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. Dim Test As String = Nothing
    3. For Each item As String In GetWindows()
    4. Test &= item
    5. Next
    6. MsgBox(test)
    7. End Sub
    C# Developer
    Learning C++

    msdn.microsoft.com/en-us/libra…op/ms633521(v=vs.85).aspx
    pinvoke.net/default.aspx/user32/GetWindowTextLength.html
    das sind btw. auch interessante Quellen für dich.
    Außerdem noch was: Durch die ActiveWindows-Funktion ist das ganze nicht wirklich sauber gelöst. Überleg' mal, was passiert, wenn du's mehrfach aufrufst und außerdem ist der Status der Liste nicht durchgehend gültig. ;)

    Gruß
    ~blaze~

Facebook
Telefonspende