'Beispiel: VB .Net - Visual Studio 2008 Standard - Api - Klassennamen ermitteln - Fensterinformationen ermitteln ' Option Explicit On Option Strict On Imports System.Text Imports System.Runtime.InteropServices Public Class Form1 Public Class TabStops <DllImport("user32.dll")> _ Public Shared Sub SendMessage( _ ByVal hWnd As IntPtr, _ ByVal uMsg As Integer, _ ByVal wParam As Int32, _ ByRef lParam As Int32) End Sub Public Const LB_SETTABSTOPS As Integer = &H192 End Class Public Class Win32Api Public Delegate Function CallBack( _ ByVal hWnd As IntPtr, _ ByVal lParam As Integer) As Boolean <DllImport("user32.dll")> _ Public Shared Function EnumWindows( _ ByVal lpEnumFunc As CallBack, _ ByVal lParam As Integer) As Int32 End Function <DllImport("user32.dll", EntryPoint:="SendMessageA")> _ Public Shared Function SendMessage( _ ByVal hWnd As IntPtr, _ ByVal uMsg As Integer, _ ByVal wParam As Int32, _ ByVal lParam As Int32) As Int32 End Function <DllImport("user32.dll", EntryPoint:="SendMessageA")> _ Private Shared Function SendMessage( _ ByVal hWnd As IntPtr, _ ByVal uMsg As Integer, _ ByVal wParam As Int32, _ ByVal lParam As System.Text.StringBuilder) As Int32 End Function <DllImport("user32.dll", EntryPoint:="GetClassNameA")> _ Private Shared Function GetClassName( _ ByVal hWnd As IntPtr, _ ByVal lpClassName As System.Text.StringBuilder, _ ByVal nMaxCount As Int32) As Int32 End Function Private Enum WindowsMessages As Integer WM_GETTEXTLENGTH = &HEI WM_GETTEXT = &HDI End Enum Private Shared _list As New List(Of String) Public Shared Property List() As List(Of String) Get Return _list End Get Set(ByVal value As List(Of String)) _list = value End Set End Property Public Shared Function PopulateInformation(ByVal hWnd As IntPtr, ByVal lParam As Integer) As Boolean Dim sb As StringBuilder = New StringBuilder(255) Dim Result As Int32 = Win32Api.GetClassName(hWnd, sb, sb.Capacity) Dim Title As String = GetTitle(hWnd) _list.Add(hWnd.ToString() & ControlChars.Tab & sb.ToString() & ControlChars.Tab & " --> " _ & ControlChars.Tab & Title) Return True End Function Private Shared Function GetTitle(ByVal hWnd As IntPtr) As String If hWnd.Equals(IntPtr.Zero) Then Return String.Empty Dim Result As String = String.Empty Dim Length As Int32 = Win32Api.SendMessage(hWnd, Win32Api.WindowsMessages.WM_GETTEXTLENGTH, 0, 0) If Length = 0 Then Return String.Empty Length += 1 Dim sb As StringBuilder = New StringBuilder(Length) Win32Api.SendMessage(hWnd, Win32Api.WindowsMessages.WM_GETTEXT, Length, sb) Return sb.ToString().TrimEnd() End Function End Class Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click Win32Api.EnumWindows(AddressOf Win32Api.PopulateInformation, 0) If Me.ListBox1.Items.Count > 0 Then Me.ListBox1.Items.Clear() For Each Items As String In Win32Api.List Me.ListBox1.Items.Add(Items) Next End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles ListBox1.SelectedIndexChanged Dim Item As String = Me.ListBox1.SelectedItem.ToString() Dim Items() As String = Item.Split(ControlChars.Tab) Dim Result As String = String.Empty For Each s As String In Items If Not s.Equals(" --> ") Then Result &= s & ControlChars.CrLf End If Next Dim sb As New StringBuilder() Try sb.Append("/n" & "Handle: " & Items(0)) sb.Append("/n" & "Klassenname: " & Items(1)) '!!!If(...,...,...) beachten... sb.Append("/n" & "Titel: " & If(Items(3) = String.Empty, "Keinen Titel gefunden!", Items(3))) sb.Replace("/n", ControlChars.CrLf) Catch End Try MessageBox.Show(Result & ControlChars.CrLf & sb.ToString(), "Info") End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load With Me .WindowState = FormWindowState.Maximized .Length = 170 .ListBox_InitTabStops(ListBox1) .Text = "Klassennamen ermitteln / 2" .CenterToScreen() .Button1.Text = "Test" End With End Sub Private Length As Integer Private Property TabLength() As Integer Get Return Length End Get Set(ByVal value As Integer) Length = value End Set End Property Private Sub ListBox_InitTabStops(ByRef lb As System.Windows.Forms.ListBox) If (Not lb Is Nothing) Then Dim cntTabs() As Integer = {TabLength} TabStops.SendMessage(lb.Handle, TabStops.LB_SETTABSTOPS, cntTabs.Length, cntTabs(0)) Else Throw New Exception("Tab-Stop's konnten nicht initialisiert werden.") End If End Sub End Class