Автоматическое копирование нужного куска текста в нужное поле ввода - 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
' ...

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 3.444 из 5
Похожие ответы