ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Доступ к TextBox чужого приложения
1 сообщений из 1, страница 1 из 1
Доступ к TextBox чужого приложения
    #36928435
Дмитрий П.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий П.
Участник
Здраствуйте!

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


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