Solved

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

Posted on 2008-10-10
6
468 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
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
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
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 85

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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Expando 4 47
help with issues with ReportViewer in VS2015 5 38
Unable  to create new object 9 41
Help with sending PDF contents to server when Hyperlink Clicked. 5 39
This article explains how to create and use a custom WaterMark textbox class.  The custom WaterMark textbox class allows you to set the WaterMark Background Color and WaterMark text at design time.   IMAGE OF WATERMARKS STEPS Create VB …
The ECB site provides FX rates for major currencies since its inception in 1999 in the form of an XML feed. The files have the following format (reducted for brevity) (CODE) There are three files available HERE (http://www.ecb.europa.eu/stats/exch…
Along with being a a promotional video for my three-day Annielytics Dashboard Seminor, this Micro Tutorial is an intro to Google Analytics API data.
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…

920 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

15 Experts available now in Live!

Get 1:1 Help Now