Visual Basic Get Text of Another Window's TextBox

[neoxyn]

Ok, i think ive found the problem.
The "Edit" class is actually a child of a class called "MDINFO"

so, i think i have to modify to code to first find the main parent = "Brwindowclass" - current code does this
second, it must connect to the child of Brwindowclass = "MDINFO" - current code does this

but now 3rd step: how do I connect and retrieve the text of the child of MDINFO, called "edit"?

Ive tried this but it doesnt work.

Imports System.Runtime.InteropServices
Public Class Form1
    Private Const WM_GETTEXT As Integer = &HD
    Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal msg As Integer, _
    ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function FindWindowEx(ByVal parentHandle As IntPtr, _
                                         ByVal childAfter As IntPtr, _
                                         ByVal lclassName As String, _
                                         ByVal windowTitle As String) As IntPtr
    End Function
 
    Declare Auto Function FindWindow Lib "user32.dll" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Find the running notepad window
        Dim Hwnd As IntPtr = FindWindow("BRWindowClass", Nothing)
 
        'Alloc memory for the buffer that recieves the text
        Dim Handle As IntPtr = Marshal.AllocHGlobal(100)
 
        'send WM_GWTTEXT message to the notepad window
        Dim NumText As Integer = SendMessage(Hwnd, WM_GETTEXT, 50, Handle)
 
        'copy the characters from the unmanaged memory to a managed string
        Dim Text As String = Marshal.PtrToStringUni(Handle)
 
        'Display the string using a label
        Label1.Text = Text
 
        'Find the Edit control of the Running Notepad
        Dim ChildHandle As IntPtr = FindWindowEx(Hwnd, IntPtr.Zero, "MDIClient", Nothing)
        Dim Childhandle2 As IntPtr = FindWindowEx(ChildHandle, IntPtr.Zero, "Edit", Nothing)
 
 
        'Alloc memory for the buffer that recieves the text
        Dim Hndl As IntPtr = Marshal.AllocHGlobal(200)
 
        'Send The WM_GETTEXT Message
        NumText = SendMessage(Childhandle2, WM_GETTEXT, 200, Hndl)
 
        'copy the characters from the unmanaged memory to a managed string
        Text = Marshal.PtrToStringUni(Hndl)
 
        'Display the string using a label
        TextBox1.Text = Text
 
    End Sub
End Class

[C0der]

Use any API-Spy utility to spy on that area of the Edit window.