Getting the text from another application's handle

[Phobic]

How would I get the text from a text box in another application?

[Aaron Young]

If you know the Handle of the Applications Textbox the you can use the SendMessage API with the WM_GETTEXT Constant, ie.

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_GETTEXT = &HD

Private Sub Command1_Click()
    Dim sText As String
    sText = Space(255)
    sText = Left$(sText, SendMessage(lHwnd, WM_GETTEXT, 255, ByVal sText))
    MsgBox sText
End Sub

Where lHwnd is the Handle of the Textbox.

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]
Certified AllExperts Expert