Solved

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

Posted on 2008-10-10
6
480 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
6 Comments
 
LVL 86

Accepted Solution

by:
Mike Tomlinson earned 500 total points
ID: 22688314
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
ID: 22688540
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
ID: 22688548
I think I left out size, but anyway....
0
SharePoint Admin?

Enable Your Employees To Focus On The Core With Intuitive Onscreen Guidance That is With You At The Moment of Need.

 
LVL 1

Author Closing Comment

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

Expert Comment

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

Expert Comment

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

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

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 …
A while ago, I was working on a Windows Forms application and I needed a special label control with reflection (glass) effect to show some titles in a stylish way. I've always enjoyed working with graphics, but it's never too clever to re-invent …
Exchange organizations may use the Journaling Agent of the Transport Service to archive messages going through Exchange. However, if the Transport Service is integrated with some email content management application (such as an antispam), the admini…
Attackers love to prey on accounts that have privileges. Reducing privileged accounts and protecting privileged accounts therefore is paramount. Users, groups, and service accounts need to be protected to help protect the entire Active Directory …

752 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