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

@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")

Новые блоги и статьи Все статьи Все блоги /
Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .

@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

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

Решение