Автоматическое копирование нужного куска текста в нужное поле ввода - VB
Формулировка задачи:
Доброго времени, джентльмены.
Подскажите новичку вектор приложения усилий.
Имеется задача:
текстовая информация из картинки (jpg) должна быть перенесена в поля ввода, размещенные в windows-окне (сделанном в неизвестном софтвере), которое потом отсылает введенную информацию куда-то далеко в базу данных. В общем, проще говоря, надо текст с картинки ручками перебить в поля ввода в каком-то активном окне какого-то приложения. C извлечением текста из jpg все в целом ясно-используем finereader (работаем с распознаванием скриншотов, после чего имеем в буфере обмена необходимый текст). И вот дальше хочется как-то реализовать возможность автоматического копирования нужного куска текста в нужное поле ввода. Отсюда просьба-подскажите ход мысли и через чего пытаться писать оное? Что умеет работать с посторонними окнами? И по классике-прошу ногами не пинать. Заранее спасибо. Деток красивых. и жену не пьющую.Решение задачи: «Автоматическое копирование нужного куска текста в нужное поле ввода»
textual
Листинг программы
aaa = Text2.Text ' формально - в этой переменной вставляемый текст Dim hwd As Long If hwnd <> 0 And s <> "" Then hwd = FindWindowEx(hwnd, 0, "ThunderRT6TextBox", vbNullString) ' получаем хэндл поля ввода калькулятора. в кавычках-наименование класса поля ввода(получаем из spy) Call SendMessage(hwd, WM_SETTEXT, 0, aaa) 'вставляем наш текст в калькулятор hwd = GetNextWindow(hwd, 2) ' переместились в предыдущее окно ввода на форме Call SendMessage(hwd, WM_SETTEXT, 0, aaa & " в окно 2") 'вставляем наш текст в след окно hwd = GetNextWindow(hwd, 2) ' переместились в предыдущее окно ввода на форме Call SendMessage(hwd, WM_SETTEXT, 0, aaa & " в окно 3") 'вставляем наш текст в след окно Else ' ...
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д