richtige Verwendung von WinAPI-Methoden und Delegates

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Panter.

    richtige Verwendung von WinAPI-Methoden und Delegates

    ausgelagert aus Wie funktionieren bestimmte API's richtig? ~VaporiZed

    Hallo zusammen

    Ich muss leider zugeben, dass für mich das Problem wohl nicht Zugriff auf die API ist, sondern eben diese Delegate Geschichte. Das hier ist wohl ein gutes Beispiel, das zu erlernen, für mich ist das momentan leider zu viel.

    Ich habe mir mal überlegt, möglichst viel von diesem Delgate zu entfernen. Ich bin leider Anfänger, habe nun ewigs gebraucht und der Code ist vielleicht falsch. In den nächsten Tagen werde ich mal schauen, wie ich von diesem vereinfachten Code wieder auf den ursprünglichen Code zurückkomme. Ich muss das mal verdauen.

    Ich habe den Code für mich geschrieben, damit ich das erlernen kann. Falls jemand Fehler entdeckt, bitte melden - ich möchte etwas lernen. Aufgefallen ist mir noch, dass eben oft der MainWindowsHandle = 0 ist - das habe ich abgefangen, damit es nicht so viele Ausgaben gibt.

    Ich habe mal meinen Code hier eingestellt.

    VB.NET-Quellcode

    1. Imports System.Diagnostics
    2. Imports Microsoft.VisualBasic
    4. Public Class Form2
    6. Dim dt As New DataTable
    7. Dim dv As New DataView(dt)
    8. Dim Parent_Handle_str As String
    9. Dim Handle_0 As Boolean
    10. Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    12. With dt.Columns
    13. .Add("Handle", Type.GetType("System.Int64"))
    14. .Add("Handle_child", Type.GetType("System.Int64"))
    15. .Add("lparam", Type.GetType("System.Int64"))
    16. .Add("MainWindowTitle", Type.GetType("System.String"))
    17. .Add("ProcessID", Type.GetType("System.String"))
    18. .Add("HandleCount", Type.GetType("System.String"))
    19. .Add("MainModule", Type.GetType("System.String"))
    20. .Add("ProcessName", Type.GetType("System.String"))
    21. End With
    22. DataGridView1.DataSource = dv
    24. ' alle Prozesse durchlaufen
    25. Handle_0 = False
    26. For Each oProcess As Process In Process.GetProcesses
    27. ' Prozess-Infos ermitteln und im ListView anzeigen
    28. Dim windowHandle As IntPtr = oProcess.MainWindowHandle
    29. Dim row As DataRow = dt.NewRow()
    30. '' 1. Eintrag
    31. Try
    32. row!Handle = windowHandle.ToString
    33. Catch
    34. row!Handle = ""
    35. End Try
    36. If Len(row!Handle.ToString) > 0 Then
    37. '' 2. Eintrag
    38. row!MainWindowTitle = GetActiveWindowText(windowHandle) 'oProcess.MainWindowTitle.ToString
    39. '3. Eintrag
    40. Try
    41. row!ProcessID = CInt(oProcess.Id.ToString)
    42. Catch
    43. row!ProcessID = ""
    44. End Try
    45. '4. Êintrag
    46. Try
    47. row!HandleCount = oProcess.HandleCount.ToString
    48. Catch
    49. row!HandleCount = ""
    50. End Try
    51. Try
    52. row!MainModule = oProcess.MainModule.ToString
    53. Catch
    54. row!MainModule = ""
    55. End Try
    56. Try
    57. row!ProcessName = oProcess.ProcessName.ToString
    58. Catch
    59. row!ProcessName = ""
    60. End Try
    61. dt.Rows.Add(row)
    62. Parent_Handle_str = row!Handle.ToString
    63. 'Nur 1 x Handle 0..
    64. If windowHandle.ToInt64 = 0 Then
    65. If Handle_0 Then
    66. Else
    67. Handle_0 = True
    68. GetChild(windowHandle)
    69. End If
    70. Else
    71. GetChild(windowHandle)
    72. End If
    73. End If
    74. Next
    75. End Sub
    76. Public Function Enumerate(hWnd As IntPtr, lParam As IntPtr) As Boolean
    78. Dim row As DataRow = dt.NewRow()
    80. row!Handle = Parent_Handle_str
    81. row!Handle_child = hWnd.ToInt64
    82. row!MainWindowTitle = GetActiveWindowText(hWnd)
    84. dt.Rows.Add(row)
    86. Return True
    87. End Function
    88. Public Function GetChild(hwnd As IntPtr) As Boolean
    89. Dim x As Boolean
    90. x = EnumChildWindows(hwnd, AddressOf Enumerate, CType(0, IntPtr))
    91. Return True
    92. End Function
    93. End Class



    und hier noch mein Modul (ich habe Modul gewählt und nicht Klasse - leider kenne ich den Unterschied nicht)

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Imports System.Text
    4. Module Module1
    6. <DllImport("user32.dll", SetLastError:=True)>
    7. Private Function GetForegroundWindow() As IntPtr
    8. End Function
    9. <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    10. Private Function GetWindowText(ByVal hwnd As IntPtr, ByVal lpString As StringBuilder, ByVal cch As Integer) As Integer
    11. End Function
    12. <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    13. Private Function GetWindowTextLength(ByVal hwnd As IntPtr) As Integer
    14. End Function
    16. 'no specific Charset APIs
    17. <DllImport("user32.dll", SetLastError:=True)>
    18. Public Function EnumChildWindows(hWndParent As IntPtr, lpEnumFunc As EnumWindowsProc, lParam As IntPtr) As Boolean
    19. End Function
    21. Public Delegate Function EnumWindowsProc(hWnd As IntPtr, lParam As IntPtr) As Boolean
    23. Public Function GetActiveWindowText(hWnd As IntPtr) As String
    24. Dim length As Integer ', hWnd As IntPtr = GetForegroundWindow()
    25. If hWnd.ToInt32 = 0 Then
    26. Return Nothing
    27. End If
    28. length = GetWindowTextLength(hWnd)
    29. If length = 0 Then
    30. Return Nothing
    31. End If
    32. Dim sb As New System.Text.StringBuilder("", length)
    33. GetWindowText(hWnd, sb, sb.Capacity + 1)
    34. Return sb.ToString()
    35. End Function
    37. End Module

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „VaporiZed“ ()

    @Panter Was soll dieser Code tun?
    Prozeduren und Variablen eines Moduls können von überall aus dem Programm heraus zugreifen.

    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!

Facebook
Telefonspende