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

17.01.2013, 23:04. **Показов** 1958. **Ответов** 1

Author24 — интернет-сервис помощи студентам

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

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

Visual Basic

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?

Спасибо.

@Pro_grammer · 18.01.2013, 09:49

Сообщение от dima-pol

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

Дело в том, что MSDN рекомендует в случае с классом Edit ( да и в других случаях, когда GetWindowText возвращает ""), использовать WM_GETTEXT.
WM_GETTEXT = &HD
Выглядит это примерно так:

Visual Basic

wnd = WindowFromPoint(pt.X, pt.Y) ' Get the window under mouse pointer
buff = Space$(50)
SendMessage wnd, &HD, 40, ByVal buff 'sending WM_GETTEXT message to that window
Label1.Caption = buff 'Now buff contains the text on the window , simply display

Ещё нюанс - TextBox должен быть доступен ( Enable=True). А если "серый", то его надо вначале включить.
Это означает, что надо найти все дочерние окна на вкладке "Файл/Предустановки/Общий" при помощи FindWindowEx и включить с помощью EnableWindow.

Не по теме:

Ну да что я, право. Судя по Вашему коду Вы и сами в этом разбираетесь не хуже меня.

	18.01.2013, 09:49