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
Доступ к данным чужого приложения
Здраствуйте!
Из своей программы на VB6 я хочу добраться до содержимого TextBox другой программы. Для этого на форму своей программы я поместил элемент picPoint типа PictureBox. Я нажимаю мышку на этом picPoint, перемещаю в окно другой программы и отпускаю на TextBox. Тем самым я определяю его hWnd а затем и его содержимое (found_text):
Это прекрасно работает, если TextBox в программе, созданной на VB6. Но если я нацеливаюсь мышкой к примеру на TextBox "мин", "сек" или "фрм" на вкладке "Файл/Предустановки/Общий" в Nero 6.3.1.15. то GetWindowText возвращает заголовок фрейма ("Панель состояния") в котором размещены вышеобозначенные TextBox.
Возможно ли средствами VB6 получить доступ к содержимому TextBox в Nero?
Спасибо.
Из своей программы на VB6 я хочу добраться до содержимого TextBox другой программы. Для этого на форму своей программы я поместил элемент picPoint типа PictureBox. Я нажимаю мышку на этом picPoint, перемещаю в окно другой программы и отпускаю на TextBox. Тем самым я определяю его hWnd а затем и его содержимое (found_text):
Код:
Это прекрасно работает, если TextBox в программе, созданной на VB6. Но если я нацеливаюсь мышкой к примеру на TextBox "мин", "сек" или "фрм" на вкладке "Файл/Предустановки/Общий" в Nero 6.3.1.15. то GetWindowText возвращает заголовок фрейма ("Панель состояния") в котором размещены вышеобозначенные TextBox.
Возможно ли средствами VB6 получить доступ к содержимому TextBox в Nero?
Спасибо.