Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Доступ к TextBox чужого приложения / 1 сообщений из 1, страница 1 из 1
29.10.2010, 17:39
    #36928435
Дмитрий П.
Дмитрий П.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Доступ к TextBox чужого приложения
Здраствуйте!

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

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
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?

Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Доступ к TextBox чужого приложения / 1 сообщений из 1, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]