Solved

After using GetWindowText to list the Child Name how do I gets its position and size

Posted on 2008-10-10
6
466 Views
Last Modified: 2012-05-05
My goal is to get window text, size, position, handle of each child and the parent.

 I'm able to get the child using GetWindowText but when I use GetWindowThreadProcessId followed by GetProcessById it breaks down and gives me only the information for the active window


First I call
   Public Function EnumWindowsCallBack(ByVal hwnd As IntPtr, ByVal lParam As Int32) As Int32

        'Get the windowtext length
        sSave = Space(GetWindowTextLength(hwnd) + 1)

        'get the window text
        GetWindowText(hwnd, sSave, Len(sSave))

        'remove the last Chr(0)
        sSave = Microsoft.VisualBasic.Left(sSave, Len(sSave) - 1)

And this works to list the windows and all the children

The next step is where my conversion goes wrong and only list the active window

        'get the child processID
        ProcessID = 0
        GetWindowThreadProcessId(hwnd, ProcessID)
        If (ProcessID = 0) Then
            MessageBox.Show("Error finding target process ID")
            Exit Function
        End If

        Dim tempProc As Process = Process.GetProcessById(ProcessID)

        Dim processName As String = tempProc.ProcessName
        If (processName = "iexplore") Then

            If (sSave.Length <> 0) Then
               'Works
                Lst.Items.Add(sSave)
               'Doesn't Work
                Lst.Items.Add(ProcessID.ToString)
                Lst.Items.Add(tempProc.MainWindowHandle)
                Lst.Items.Add(tempProc.MainWindowTitle)
            End If
        End If

ProcessID.ToString is giving me the same id for children as the active id

mpProc.MainWindowTitle is not giving me the same name as GetWindowText
Public Class Form1

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Lst = ListBox1      '--------> ADD THIS LINE

        EnumWindows(AddressOf EnumWindowsCallBack, 0)

 

    End Sub

 

 

End Class

 

 

Module Module1

    Private Declare Auto Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hWnd As IntPtr, ByRef ProcessID As Integer) As Integer

 

    Public Lst As ListBox

 

    Public Delegate Function EnumWindowsProc(ByVal hwnd As IntPtr, ByVal lParam As Int32) As Int32

 

    Public Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As EnumWindowsProc, ByVal lParam As Int32) As Int32

 

    Public Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" (ByVal hwnd As IntPtr) As Int32

 

    Public Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As IntPtr, ByVal lpString As String, ByVal cch As Int32) As Int32

 

    'Callback function to enum windows

    Public Function EnumWindowsCallBack(ByVal hwnd As IntPtr, ByVal lParam As Int32) As Int32

        Dim sSave As String

        Dim ProcessID As Long

 

        'Get the windowtext length

        sSave = Space(GetWindowTextLength(hwnd) + 1)

 

        'get the window text

        GetWindowText(hwnd, sSave, Len(sSave))

 

        'remove the last Chr(0)

        sSave = Microsoft.VisualBasic.Left(sSave, Len(sSave) - 1)

 

        'get the child processID

        ProcessID = 0

        GetWindowThreadProcessId(hwnd, ProcessID)

        If (ProcessID = 0) Then

            MessageBox.Show("Error finding target process ID")

            Exit Function

        End If

 

        Dim tempProc As Process = Process.GetProcessById(ProcessID)

 

        Dim processName As String = tempProc.ProcessName

        If (processName = "iexplore") Then

 

            If (sSave.Length <> 0) Then

 

                Lst.Items.Add(sSave)

                Lst.Items.Add(ProcessID.ToString)

                Lst.Items.Add(tempProc.MainWindowHandle)

                Lst.Items.Add(tempProc.MainWindowTitle)

            End If

        End If

        If sSave.Trim <> "" Then

            Debug.WriteLine(sSave)

        End If

 

        Return 1 'continue enumeration        

    End Function

 

End Module

Open in new window

0
Comment
Question by:vaultworld
  • 3
  • 2
6 Comments
 
LVL 85

Accepted Solution

by:
Mike Tomlinson earned 500 total points
Comment Utility
Hi vaultworld,

Not sure I'm following where you're going with this...

You are enumerating CHILD windows right?  You successfully get the text from the child with GetWindowText()...kewl beans.

An APPLICATION, though, only has ONE ProcessID (PID)...so when you call GetWindowThreadProcessId() it is returning the ID for the entire app.  Thus when you use Process.GetProcessById() and query the info of course it is going to be for the active/main window.  The children windows do not have their own PIDs....they only have "Parents"...for example, a Label in a Panel: the "parent" handle of the Label would be the handle of the Panel.

Your description of the problem states:

    "After using GetWindowText to list the Child Name how do I gets its position and size"

If you want the position and size of a window use the GetWindowRect() API.

0
 
LVL 11

Expert Comment

by:ladarling
Comment Utility
My goal is to get window text, size, position, handle of each child and the parent.
Why not just use something like:
 
 

 For Each f As Form In Me.OwnedForms

            Debug.Print(f.Text & vbTab & f.Location.ToString & vbTab & vbTab & f.Size.ToString & vbTab & f.Handle.ToString)

        Next
 
 
 
 

...

Open in new window

0
 
LVL 11

Expert Comment

by:ladarling
Comment Utility
I think I left out size, but anyway....
0
How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

 
LVL 1

Author Closing Comment

by:vaultworld
Comment Utility
I was doing a little more research and that looks to be it exactly.  THanks again for your time.
0
 
LVL 85

Expert Comment

by:Mike Tomlinson
Comment Utility
He's working with EXTERNAL windows ladarling...  =)
0
 
LVL 11

Expert Comment

by:ladarling
Comment Utility
Ahhh, sorry. Attention to detail.. for me that means 'check out the exception call stack" lol.
:-)
0

Featured Post

Do You Know the 4 Main Threat Actor Types?

Do you know the main threat actor types? Most attackers fall into one of four categories, each with their own favored tactics, techniques, and procedures.

Join & Write a Comment

Well, all of us have seen the multiple EXCEL.EXE's in task manager that won't die even if you call the .close, .dispose methods. Try this method to kill any excels in memory. You can copy the kill function to create a check function and replace the …
Parsing a CSV file is a task that we are confronted with regularly, and although there are a vast number of means to do this, as a newbie, the field can be confusing and the tools can seem complex. A simple solution to parsing a customized CSV fi…
This video discusses moving either the default database or any database to a new volume.
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…

763 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now