Доступ к TextBox чужого приложения

[dima-pol]

Здраствуйте!

Из своей программы на VB6 я хочу добраться до содержимого TextBox другой программы. Для этого на форму своей программы я поместил элемент picPoint типа PictureBox. Я нажимаю мышку на этом picPoint, перемещаю в окно другой программы и отпускаю на TextBox. Тем самым я определяю его hWnd а затем и его содержимое (found_text):

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

Private Sub picPoint_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    PointMode = True
    dl& = SetCapture(Form1.hwnd)
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim pt As POINTAPI

    If Not PointMode Then Exit Sub
    pt.x = x
    pt.y = y
    ClientToScreen Form1.hwnd, pt
    found_hWnd& = WindowFromPoint(pt.x, pt.y)

   count = GetWindowText(found_hWnd, buffer, 255)
   found_text = Left$(buffer, count)
End Sub

Это прекрасно работает, если TextBox в программе, созданной на VB6. Но если я нацеливаюсь мышкой к примеру на TextBox "мин", "сек" или "фрм" на вкладке "Файл/Предустановки/Общий" в Nero 6.3.1.15. то GetWindowText возвращает заголовок фрейма ("Панель состояния") в котором размещены вышеобозначенные TextBox.

Возможно ли средствами VB6 получить доступ к содержимому TextBox в Nero?

Спасибо.

[iGrok]

GetWindowText возвращает заголовок фрейма ("Панель состояния") в котором размещены вышеобозначенные TextBox.

Где-то промахиваешься с координатами. Попробуй с координатами, полученными из http://msdn.microsoft.com/en-us/library/ms648390.aspx.

[Хакер]

dima-pol

1. Каждому вызову SetCapture должен соответствовать вызов ReleaseCapture. У тебя последнего не вижу.
2. В Mouse_Down не нужно вызывать SetCapture, оно и так вызывается.
3. Твой код предназначен для получения основного текста окна. Не всякий TextBox будет являться окном (как в случае с Nero), а некоторые их тех, которые будут являться окном, запросто могут иметь основной текст окна, отличный от нужного тебе содержимого (скорее всего пустой). Универсального решения проблемы не сущетвует.