Code Snippets

VB.NET Source Code

You're Browsing As A Guest! Register Now...
Become a VB.NET Expert! Join 358,488 VB.NET Programmers for FREE! Get instant access to thousands of VB.NET experts, tutorials, code snippets, and more! There are 2,193 people online right now.Registration is fast and FREE... Join Now! Chat LIVE With a VB.NET Expert

Get the text and handle of the active window

Submitted By: jacobjordan

Actions:

Rating:

Views: 7,182

Language: VB.NET

Last Modified: July 7, 2008

Instructions: Use the GetWindowText() function. I know, there is a lot of other stuff in there, but just ignore the rest.

Snippet

' Imports
<Runtime.InteropServices.DllImport("user32.dll")> _
Private Function GetForegroundWindow() As IntPtr
End Function
<Runtime.InteropServices.DllImport("user32.dll")> _
Private Function GetWindowText(ByVal hWnd As IntPtr, ByVal lpWindowText As Text.StringBuilder, _
ByVal nMaxCount As Integer) As Integer
End Function
' /Imports
''' <summary>
''' Get's the handle and text of the foreground window
''' </summary>
Public Function GetWindowText() As Window
Dim title As New Text.StringBuilder(255)
Dim titleLength As Integer = GetWindowText(GetForegroundWindow(), title, title.Capacity + 1)
title.Length = titleLength
Dim w As New Window
w.Text = title.ToString()
w.Handle = GetForegroundWindow()
Return w
End Function
''' <summary>
''' Represents an open, visible window
''' </summary>
Public Structure Window
Public Handle As IntPtr
Public Text As String
End Structure

Copy & Paste

' Imports
    <Runtime.InteropServices.DllImport("user32.dll")> _
    Private Function GetForegroundWindow() As IntPtr
    End Function
    <Runtime.InteropServices.DllImport("user32.dll")> _
    Private Function GetWindowText(ByVal hWnd As IntPtr, ByVal lpWindowText As Text.StringBuilder, _
    ByVal nMaxCount As Integer) As Integer
    End Function
    ' /Imports

''' <summary>
    ''' Get's the handle and text of the foreground window
    ''' </summary>
    Public Function GetWindowText() As Window
        Dim title As New Text.StringBuilder(255)
        Dim titleLength As Integer = GetWindowText(GetForegroundWindow(), title, title.Capacity + 1)
        title.Length = titleLength
        Dim w As New Window
        w.Text = title.ToString()
        w.Handle = GetForegroundWindow()
        Return w
    End Function

''' <summary>
    ''' Represents an open, visible window
    ''' </summary>
    Public Structure Window
        Public Handle As IntPtr
        Public Text As String
    End Structure