доступ к TextBox-у во внешней программе

[Фролов Сергей]

Подскажите, плиз, как в запущенном приложении считать содержимое TextBox-a другой программой?
Мне нужно не меняя старой программы обработать введенные в поля данные новой программой. через API нахожу новое окно, могу считать его Caption, а вот с TextBox-ом слабо:)

[Александр Андреев]

А у текстбокса вроде бы нет hWnd. Попробуй запустить Spy++ и там посмотреть на приложение, которое тебя интересует. Если найдешь нужный текстбокс, то поймешь как реализовать доступ к нему из своей проги. Если не найдешь - видимо ничего не выйдет.

[Фролов Сергей]

спасибо:) как раз этим и занимаюсь - надеялся на более "халявное" решение

[Cyrax]

А у текстбокса вроде бы нет hWnd. Попробуй запустить Spy++ и там посмотреть на приложение, которое тебя интересует. Если найдешь нужный текстбокс, то поймешь как реализовать доступ к нему из своей проги. Если не найдешь - видимо ничего не выйдет.

что значит у TextBox'а hWnd нет
а это что по вашему

Property hWnd As Long
read-only
Member of VB.TextBox
Returns a handle (from Microsoft Windows) to an object's window.

TextBox является стандартным окном с именем класса Text (или TextBox)

делается это очень просто

1. FindWindow - ищем окно нужной нам программы
2. FindWindowEx - ищем нужный TextBox
3. SetWindowText - пишем в TextBox (GetWindowText - читаем)

[Александр Андреев]

Упс... путаница в понятиях возникла:
- если textbox - это editbox, то hWnd безусловно есть;
- если textbox - это label, то hWnd нет и быть не может.

[Cyrax]

Упс... путаница в понятиях возникла:
- если textbox - это editbox, то hWnd безусловно есть;
- если textbox - это label, то hWnd нет и быть не может.

VB'шный Label это вообще неизвестно что
виндовские label'ы если я не ошибаюсь основаны на классе Window (также как и большинство контролов), а VB'шный нет, он какойто особенный. вот по-этому у него и нет hWnd

[Фролов Сергей]

посмотрел Spy-ем hWnd у него действительно есть, а вот GetWindowText ничего не дает почему-то Есть еще идеи? Ковыряю пока дальше...

[Cyrax]

посмотрел Spy-ем hWnd у него действительно есть, а вот GetWindowText ничего не дает почему-то Есть еще идеи? Ковыряю пока дальше...

вот тебе примерчик из API-Guide

Код: Выделить всё

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Sub Form_Activate()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim MyStr As String
    'Create a buffer
    MyStr = String(100, Chr$(0))
    'Get the windowtext
    GetWindowText Me.hwnd, MyStr, 100
    'strip the rest of buffer
    MyStr = Left$(MyStr, InStr(MyStr, Chr$(0)) - 1)
    'Triple the window's text
    MyStr = MyStr + MyStr + MyStr
    'Set the new window text
    SetWindowText Me.hwnd, MyStr
End Sub

можешь кинуть на форму TextBox и заменить Me на имя этого бокса

[Фролов Сергей]

уфф... ну наконец-то заработало:) всем спасибо:) самое нудное - перебирать ВСЕ элементы формы в поисках нужного объекта