Написать текст в текстовое поле окна другого приложения

@Rad0n · Регистрация: 12.01.2014

Студворк — интернет-сервис помощи студентам

Помогите у кого нить может есть рабочий исходник чтобы нажимал на кнопку и вписывал текст в текстовые поля окна другого приложения ?

Это что то не работает открывает notepad но пикает(Windows 7) Текст не появляется

Мне нужно найти окно с заголовком Ликвидатор в немнем найти кнопку Подключение и нажать на нее а также на нем присутствует текстовое поле как мне в него вписать что либо ?
Спасибо надеюсь у кого нить есть готовый исходник рабочий)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Const WM_CHAR = &H102
Private Const WM_SETTEXT = &HC
Private Const VK_RETURN = &HD
Private Const EM_SETSEL = &HB1
Sub ui()
Dim hwnd As Long, wnd As Long
    Call Shell("notepad", vbNormalFocus) 'запускаем блокнот
    hwnd = FindWindow(vbNullString, "Безымянный - Блокнот") 'получаем hwnd окна блокнота по заголовку
    wnd = FindWindowEx(hwnd, ByVal 0&, "Edit", vbNullString) 'получаем hwnd текстбокса блокнота
    Call SendMessage(wnd, WM_SETTEXT, 0, "Привет") 'изменяем текст в текст боксе на "Привет"
    Call SendMessage(wnd, EM_SETSEL, 6, "") 'сдвигаем курсор на 6 знаков
    Call SendMessage(wnd, WM_CHAR, VK_RETURN, vbNullString) 'нажимаем Enter
End Sub

@The trick · 05.06.2014, 01:44

Visual Basic
1
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long

Добавлено через 5 минут
При "" передается указатель на строку нулевой длины. Т.к. такого класса не может быть у тебя не возвращается хендл окна. Чтобы передать NULL нужно декларировать так:

Visual Basic
1
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long

, и искать так:

Visual Basic
1
hwnd = FindWindow("Notepad", 0) 'получаем hwnd окна блокнота по имени класса

@Rad0n · 06.06.2014, 22:03 **[ТС]**

Добавлено через 2 минуты
The trick,
ВСЕ РАВНО НЕ РАБОТАЕТ!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Const WM_CHAR = &H102
Private Const WM_SETTEXT = &HC
Private Const VK_RETURN = &HD
 
 
Private Sub Command1_Click()
Dim hwnd As Long, wnd As Long
Call Shell("notepad", vbNormalFocus) 'запускаем блокнот
hwnd = FindWindow("Безымянный - Блокнот", 0) 'получаем hwnd окна блокнота по имени класса 'получаем hwnd окна блокнота по заголовку
wnd = FindWindowEx(hwnd, ByVal 0&, "Edit", vbNullString) 'получаем hwnd текстбокса блокнота
Call SendMessage(wnd, WM_SETTEXT, 0, "Привет") 'изменяем текст в текст боксе на "Привет"
Call SendMessage(wnd, EM_SETSEL, 6, "") 'сдвигаем курсор на 6 знаков
Call SendMessage(wnd, WM_CHAR, VK_RETURN, vbNullString) 'нажимаем Enter
End Sub

Добавлено через 19 минут
Нажать на кнопку тоже не получается

Visual Basic
1
Call SendMessage(hwndToolBar, WM_COMMAND, "Command1", 0)

Добавлено через 7 минут
Привет уважаемый трик ты не раз мне помог! Не мог бы ты помочь довести до конца этот код помощи) Вот нашел наконец работающий код!
Он как мне узнать DC других окон по его заголовку и это автоматизировать ?
ThunderFormDC - ВОТ ЭТО НАПРИМЕР ТОЛЬКО ДЛЯ vb 6 работает Но на доругих программах же не Thunder DC?

Аналогично с "ThunderTextBox"
"text1" - ЭТО НАЗВАНИЕ ТЕКСТОВОГО ПОЛЯ НЕ CAPTION!

Так вот как мне все это получать по одному лишь заголовку программы ? И как узнать ThunderTextBox у другого окна ?
Спасибо надеюсь поможешь

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
hWndform1& = FindWindow("ThunderFormDC", "Form1")
hwndtxt1& = FindWindowEx(hWndform1&, 0&, "ThunderTextBox", "text1")
''''
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETTEXT = &HC
Private Sub Command1_Click()
' when compiled
' ThunderRT6FormDC
' ThunderRT6TextBox
' when running from the IDE
' ThunderFormDC
' ThunderTextBox
 
Dim Title As String * 256
hWndform1& = FindWindow("ThunderFormDC", "Form1")
If (hWndform1& = 0) Then
MsgBox ("window not found")
End
End If
hwndtxt1& = FindWindowEx(hWndform1&, 0&, "ThunderTextBox", "text1")
Dim edittxt As String
edittxt = "hello world"
If hwndtxt1& <> 0 Then
Call SendMessageByString(hwndtxt1&, WM_SETTEXT, 0&, edittxt)
End If
 
End Sub

@The trick · 06.06.2014, 22:19

Ты проигнорировал мой пост? Я тебе дал правки для твоего кода.

@Rad0n · 06.06.2014, 22:21 **[ТС]**

ИСПРАВИЛ ! ТОЛКУ НОЛЬ ВОТ РАБОТАЩИЙ КОД КОТОРЫЙ Я ПРЕДОСТАВИЛ! ТОЛЬКО ОДНО НО
Когда пишу так пишет окно не найдено по всему надо заменить еще ThunderDC но откуда его узнать )
Аналогично как узнать ThunderTextBox у другого приложения и имя текстового поля "text1"

Visual Basic
1
2
hWndform1& = FindWindow("ThunderFormDC", "Ликвидатор")
hwndtxt1& = FindWindowEx(hWndform1&, 0&, "ThunderTextBox", "text1")

@The trick · 06.06.2014, 22:23

Сообщение от Rad0n

НЕ РАБОТАЕТ! Я ИСПРАВИЛ! ВСЕ В ОБЩЕМ УЖЕ НЕВАЖНО РАБОТАЩИЙ КОД НИЖЕ

Работает. Я же проверял прежде чем писать..

@Rad0n · 06.06.2014, 22:27 **[ТС]**

Ну ДЫК НАПИШИ! ЦЕЛЫЙ ПРИМЕР! Я тебе специальнов выше написал как я изменил и не работает!
ЗАБУДЬ ПРО СТАРОЕ ПОМОГИ С ЭТИМ ЭТО РАБОТАЕТ ЕСЛИ ТОЛЬКО Я НА vb 6 сделаю программу а у дугой явно другие значения
Пишет окно не найдено

Visual Basic
1
2
hWndform1& = FindWindow("ThunderFormDC", "Ликвидатор")
hwndtxt1& = FindWindowEx(hWndform1&, 0&, "ThunderTextBox", "text1")

а вот так работает

Visual Basic
1
2
hWndform1& = FindWindow("ThunderFormDC", "Form2")
hwndtxt1& = FindWindowEx(hWndform1&, 0&, "ThunderTextBox", "text2")

Отсуда ВОПРОС КАк мне эти DC узнать по заголовку окна ? И название этих полез другой проги у меня э исходника нету)

Ты можешь подретакрировать этот код ТАК, ЧТОБЫ по Заголовку Другие окна искал

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETTEXT = &HC
Private Sub Command1_Click()
' when compiled
' ThunderRT6FormDC
' ThunderRT6TextBox
' when running from the IDE
' ThunderFormDC
' ThunderTextBox
 
Dim Title As String * 256
hWndform1& = FindWindow("ThunderFormDC", "Form1")
If (hWndform1& = 0) Then
MsgBox ("window not found")
End
End If
hwndtxt1& = FindWindowEx(hWndform1&, 0&, "ThunderTextBox", "text1")
Dim edittxt As String
edittxt = "hello world"
If hwndtxt1& <> 0 Then
Call SendMessageByString(hwndtxt1&, WM_SETTEXT, 0&, edittxt)
End If
 
End Sub

@The trick · 06.06.2014, 22:30

Читай до просветления, когда ты сделаешь как я тебе написал и у тебя не будет работать, тогда поговорим.

@Rad0n · 06.06.2014, 22:53 **[ТС]**

Забудь СТАРЫЙ КОД КОТОРЫЙ НЕ ПАШЕТ!

Измени пожалуйста этот!

Добавлено через 1 минуту
Если бы у тебя работает напиши целый КОД ТАК КАК ПОМИМО ИЗМЕНЕНИЕ ДЕКЛАРАЦИЙ У ТЕБЯ ТАМ НИЧЕ НЕ БЫЛО НА AS LONG!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETTEXT = &HC
Private Sub Command1_Click()
' when compiled
' ThunderRT6FormDC
' ThunderRT6TextBox
' when running from the IDE
' ThunderFormDC
' ThunderTextBox
 
Dim Title As String * 256
hWndform1& = FindWindow("ThunderFormDC", "Form1")
If (hWndform1& = 0) Then
MsgBox ("window not found")
End
End If
hwndtxt1& = FindWindowEx(hWndform1&, 0&, "ThunderTextBox", "text1")
Dim edittxt As String
edittxt = "hello world"
If hwndtxt1& <> 0 Then
Call SendMessageByString(hwndtxt1&, WM_SETTEXT, 0&, edittxt)
End If
 
End Sub

Помоги ИЗМЕНИТЬ ЭТО ДЛЯ РАБОТЫ С ДРУГИМИ ОКНАМИ! ПОтому КАк работает только с VB 6

Visual Basic
1
2
hWndform1& = FindWindow("ThunderFormDC", "Form1")
hwndtxt1& = FindWindowEx(hWndform1&, 0&, "ThunderTextBox", "text1")

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@The trick Модератор 10048 / 3894 / 883 Регистрация: 22.02.2013 Сообщений: 5,847 Записей в блоге: 79
	06.06.2014, 22:19
	Ты проигнорировал мой пост? Я тебе дал правки для твоего кода. 0

@The trick Модератор 10048 / 3894 / 883 Регистрация: 22.02.2013 Сообщений: 5,847 Записей в блоге: 79
	06.06.2014, 22:30
	Читай до просветления, когда ты сделаешь как я тебе написал и у тебя не будет работать, тогда поговорим. 0

Написать текст в текстовое поле окна другого приложения

Решение