Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 28.05.2015
Сообщений: 18

Ошибка отправки SendMessageA

06.06.2015, 14:39. Показов 1832. Ответов 20
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Приветствую!
Выдает ошибку при отправке SendMessageA. Вот весь код на C++ Builder 6:
Разобраться где ошибка не получается. Делаю первые шаги в программировании.
Буду благодарен за любую помощь.
C++
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
31
32
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "WINUSER.H"
#include  "windows.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 WinExec("D:\\Program Files\\Rithmic\\Rithmic Trader\\Rithmic Trader.exe",SW_RESTORE);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 char* l="amp-trial08162";
 char* p="4C_JhRWV";
 
 SendMessageA(000205E2,WM_SETTEXT,15,(LPARAM)l);
//---------------------------------------------------------------------------
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
06.06.2015, 14:39
Ответы с готовыми решениями:

Преображение методом "SendMessageA"
Всем привет. Такой вопрос: через COBOL можно вызывать WinAPI, внизу пример преображения &quot;Standard&quot; ListView с помощю WinAPI в...

Ошибка отправки письма
Dim email As New MailMessage Dim smtp As SmtpClient smtp = New SmtpClient(&quot;stmp.google.com&quot;) ' Пример smtp.mail.ru ...

Ошибка отправки сообщений
День добрый! Помогите не могу понять где облопошился. Код работает, сообщение отправляется и выдает на экран сообщение о том что все...

20
управление сложностью
 Аватар для Почтальон
1693 / 1306 / 259
Регистрация: 22.03.2015
Сообщений: 7,545
Записей в блоге: 5
06.06.2015, 14:47
Какую ошибку ? Текст ошибки можете написать ?
0
0 / 0 / 0
Регистрация: 28.05.2015
Сообщений: 18
06.06.2015, 15:17  [ТС]
E 2110 Incompatible type conversion
0
управление сложностью
 Аватар для Почтальон
1693 / 1306 / 259
Регистрация: 22.03.2015
Сообщений: 7,545
Записей в блоге: 5
06.06.2015, 15:37
Несовместимое преобразование типа
Номер строки ?

Добавлено через 1 минуту
Предполагаю что в 28 и 29
000205E2 - а это что за параметр мессаджа ?
0
0 / 0 / 0
Регистрация: 28.05.2015
Сообщений: 18
06.06.2015, 15:38  [ТС]
31. Где посмотреть можно как править такую ошибку в сенд мессейдж?
0
управление сложностью
 Аватар для Почтальон
1693 / 1306 / 259
Регистрация: 22.03.2015
Сообщений: 7,545
Записей в блоге: 5
06.06.2015, 15:40
В справке билдера посмотрите описание параметров.

Добавлено через 49 секунд
Вот тут еще почитайте SendMessage (Передать строку другому приложению)
0
0 / 0 / 0
Регистрация: 28.05.2015
Сообщений: 18
06.06.2015, 15:40  [ТС]
000205E2 - а это что за параметр мессаджа ?
Это я хендл окна находил с помощью Win Sight
0
управление сложностью
 Аватар для Почтальон
1693 / 1306 / 259
Регистрация: 22.03.2015
Сообщений: 7,545
Записей в блоге: 5
06.06.2015, 15:43
Неее, не стоит явно указывать хендл, получайте его программно в переменную, и используйте эту переменную
0
0 / 0 / 0
Регистрация: 28.05.2015
Сообщений: 18
06.06.2015, 15:53  [ТС]
У меня окно без названия, а по имени класса не всегда находит, поэтому я и делал так.
Пример по ссылке я пробовал сегодня когда варианты перебирал, тоже не получается пока.
Буду по названию ошибки искать в чем дело. Благодарю.
0
Почетный модератор
Эксперт С++
 Аватар для SatanaXIII
5851 / 2862 / 392
Регистрация: 01.11.2011
Сообщений: 6,906
08.06.2015, 12:30
Цитата Сообщение от AM2 Посмотреть сообщение
Это я хендл окна находил с помощью Win Sight
Я надеюсь вы понимаете, что у вас ничего работать так не будет.
Цитата Сообщение от AM2 Посмотреть сообщение
У меня окно без названия, а по имени класса не всегда находит
Покажите как вы ищите.
0
0 / 0 / 0
Регистрация: 28.05.2015
Сообщений: 18
08.06.2015, 14:33  [ТС]
Покажите как вы ищите.
Я пробую продвигаться от простого к сложному. Мое простое приложение запускает необходимую программу. А сейчас я хочу программно вводить логин и пароль. Когда ищешь с помощью FindWindow не находит необходимое окно т.к. у всех окошек Edit один и тот же класс WindowsForms10.STATIC.app.0.378734a
Чтобы найти класс окошка я крестиком навожу на элемент.

Я не знаю как здесь прикреплять картинку но вот ссылка:
https://disk.yandex.ru/client/... disk/3.png

Сейчас у меня такой код, но выдает ошибку:
[Linker Error] Unresolved external '__stdcall SendMessageA(void *, unsigned int, unsigned int, char *)' referenced from D:\PROGRAM FILES\BORLAND\CBUILDER6\PROJECTS\UNIT1.O BJ

C++
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
31
32
33
34
35
36
37
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "WINUSER.H"
#include  "windows.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 WinExec("D:\\Program Files\\Rithmic\\Rithmic Trader\\Rithmic Trader.exe",SW_RESTORE);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 LRESULT WINAPI SendMessage(HWND hWnd,UINT Msg,WPARAM wParam,char lParam[]);
 LoadLibrary("User32.lib");
 LoadLibrary("User32.dll");
 char* l="amp-trial08162";
 char* p="4C_JhRWV";
 HWND log = FindWindow ("WindowsForms10.EDIT.app.0.378734a","");
 HWND pas = FindWindow ("WindowsForms10.EDIT.app.0.378734a","");
 SendMessage(log,WM_SETTEXT,24,l);
 SendMessage(pas,WM_SETTEXT,24,p);
}
//---------------------------------------------------------------------------
Миниатюры
Ошибка отправки SendMessageA  
0
place status here
 Аватар для gunslinger
3186 / 2220 / 640
Регистрация: 20.07.2013
Сообщений: 6,010
08.06.2015, 19:28
Тип l и p должен быть не char* (или char), а long.
1
0 / 0 / 0
Регистрация: 28.05.2015
Сообщений: 18
08.06.2015, 19:31  [ТС]
Тип l и p должен быть не char* (или char), а long
А как тогда ввести пароль, использовать другую функцию?
0
place status here
 Аватар для gunslinger
3186 / 2220 / 640
Регистрация: 20.07.2013
Сообщений: 6,010
08.06.2015, 19:36
Можно еще так (частный случай, взял из своего рабочего примера, только у меня было PostMessage, что в контексте значения не имеет):
C++
1
2
3
HWND hWnd, hWnd2;
//.................................................
SendMessage(hWnd, WM_COMMAND, 2045, (LPARAM)hWnd2);
1
0 / 0 / 0
Регистрация: 28.05.2015
Сообщений: 18
08.06.2015, 19:42  [ТС]
Благодарю, но у меня логин и пароль текстовая строка.
0
place status here
 Аватар для gunslinger
3186 / 2220 / 640
Регистрация: 20.07.2013
Сообщений: 6,010
08.06.2015, 19:54
Лучший ответ Сообщение было отмечено SatanaXIII как решение

Решение

Вот нашел код отправки текста (ты был на верном пути):
C++
1
2
  char *text = Memo1->Text.c_str();
  SendMessage(hWnd3, WM_SETTEXT, 0, (LPARAM)text);
То есть просто приводишь свой char* к LPARAM.

Вот полный код:
C++
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
HWND NextWindowElement(HWND h, LPCTSTR fasdClass, LPCTSTR fasdWindow, int level)
{
  HWND h2 = NULL;
  for(int i = 0; i < level; i++)
  {
    h2 = FindWindowEx(h, h2, fasdClass, fasdWindow);
  }
  return h2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  HWND hWnd = FindWindow("SkinDialog", "Censored LAN Game");
  HWND hWnd2 = NextWindowElement(hWnd, "#32770", NULL, 3);
  HWND hWnd3 = NextWindowElement(hWnd2, "RichEdit20W", NULL, 2);
 
  char *text = Memo1->Text.c_str();
  SendMessage(hWnd3, WM_SETTEXT, 0, (LPARAM)text);
  Memo1->Text = "";
 
  hWnd3 = NextWindowElement(hWnd2, "Button", NULL, 35);
  SendMessage(hWnd3, WM_LBUTTONDOWN, 0, 0);
  SendMessage(hWnd3, WM_LBUTTONUP, 0, 0);
//  отправка сообщения
}
Миниатюры
Ошибка отправки SendMessageA  
1
0 / 0 / 0
Регистрация: 28.05.2015
Сообщений: 18
08.06.2015, 20:04  [ТС]
Благодарю за помощь и хороший пример, буду разбираться.
0
0 / 0 / 0
Регистрация: 28.05.2015
Сообщений: 18
12.06.2015, 21:24  [ТС]
Код скомпилировался, но по прежнему не работает. Чтобы лучше разобраться в работе функций еще больше упростил пример. Пробую свои силы на обычном калькуляторе. Не работает даже такой простой код:

C++
1
2
 HWND calc = FindWindow("SciCalc","Калькулятор Плюс");
 SendMessage(calc,VK_F1,0,0);
Пытаюсь получить недл окна и имитировать нажатие клавиши F1 и ничего!

Вот весь код:

C++
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
31
32
33
34
35
36
37
38
39
40
41
42
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "WINUSER.H"
#include  "windows.h"
#include <iostream>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 WinExec("D:\\Program Files\\Rithmic\\Rithmic Trader\\Rithmic Trader.exe",SW_RESTORE);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 /*LoadLibrary("User32.lib");
 LoadLibrary("User32.dll");
 char* l="amp-trial08162";
 char* p="4C_JhRWV";
 HWND log = FindWindow ("WindowsForms10.STATIC.app.0.378734a","");
 HWND pas = FindWindow ("WindowsForms10.EDIT.app.0.378734a","");
 SendMessage(log,WM_SETTEXT,0,(LPARAM)l);
 SendMessage(pas,WM_SETTEXT,0,(LPARAM)p);*/
 
 HWND calc = FindWindow("SciCalc","Калькулятор Плюс");
 //HWND b = FindWindow("Button","5");
 //keybd_event('5', 0,0,0);
 //keybd_event('5', 0,KEYEVENTF_KEYUP,0);
 SendMessage(calc,VK_F1,0,0);
}
0
place status here
 Аватар для gunslinger
3186 / 2220 / 640
Регистрация: 20.07.2013
Сообщений: 6,010
12.06.2015, 22:31
"Хэндл" определяется?
Лучше каким-нибудь WinSpy-ем определи, что происходит в нужном окне при определенных действиях (*), и "повторяй действия" в своей программе.
(*) Работа муторная (особенно поначалу), но оно того стоит.
1
0 / 0 / 0
Регистрация: 28.05.2015
Сообщений: 18
13.06.2015, 13:06  [ТС]
"Хэндл" определяется?
Определяется нормально:

C++
1
2
 HWND calc = FindWindow("SciCalc","Калькулятор Плюс");
 ShowMessage("Window Handle " + IntToHex(int(calc),8));
Проверяю спаем то же самое.

Лучше каким-нибудь WinSpy-ем определи, что происходит в нужном окне при определенных действиях (*), и "повторяй действия" в своей программе.
Будем искать


Добавлено через 12 часов 43 минуты
Сделал по примеру ввод цифр в калькуляторе:

C++
1
2
3
4
5
6
7
8
  HWND calc = FindWindow("SciCalc","Калькулятор Плюс");
  SetForegroundWindow(calc);
  SendMessage(calc, WM_ACTIVATE, WA_ACTIVE, 0);
  SendMessage(calc, WM_SETFOCUS, NULL, 0);
  keybd_event(VkKeyScan ('5'), 0, 0, 0);
  keybd_event(VkKeyScan('5'), 0, KEYEVENTF_KEYUP, 0);
  keybd_event(VkKeyScan('9'), 0, 0, 0);
  keybd_event(VkKeyScan('9'), 0, KEYEVENTF_KEYUP, 0);
Добавлено через 31 минуту
Таким образом меняет заголовок окна калькулятора:

C++
1
2
3
4
5
  HWND calc = FindWindow("SciCalc","Калькулятор Плюс"); //рабочий код
  SetForegroundWindow(calc);
  SendMessage(calc, WM_ACTIVATE, WA_ACTIVE, 0);
  SendMessage(calc, WM_SETFOCUS, NULL, 0);
  SendMessage(calc,WM_SETTEXT,0,(LPARAM)s);
Добавлено через 27 минут
Передал в окно калькулятора строку с символами:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
HWND NextWindowElement(HWND h, LPCTSTR fasdClass, LPCTSTR fasdWindow, int level)
{
  HWND h2 = NULL;
  for(int i = 0; i < level; i++)
  {
    h2 = FindWindowEx(h, h2, fasdClass, fasdWindow);
  }
  return h2;
}
 
 
  char* s="12345";
  HWND calc = FindWindow("SciCalc","Калькулятор Плюс");
  HWND c = NextWindowElement(calc,"Edit",NULL,1);
  SetForegroundWindow(c);
  SendMessage(c, WM_ACTIVATE, WA_ACTIVE, 0);
  SendMessage(c, WM_SETFOCUS, NULL, 0);
  SendMessage(c,WM_SETTEXT,0,(LPARAM)s);
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
13.06.2015, 13:06
Помогаю со студенческими работами здесь

Ошибка отправки почты
Значит делал простую программу для отправку писем сделал и отложил на месяц теперь понадобилось вставить наработки в программу но вот...

Ошибка отправки формы
Никак не пойму в чём ошибка... &lt;form action='' method='post'&gt; &lt;input type='text' &gt; &lt;input type='submit'&gt; &lt;/form&gt; ...

Ошибка отправки почты
Приложение отказывается отправлять почту. В чем может быть проблема? import java.util.Properties; import javax.mail.Message; ...

Ошибка отправки сообщения
Здравствуйте! Подскажите пожалуйста - есть следующая форма &lt;div class=&quot;contact-form&quot;&gt; ...

Ошибка отправки письма
Увидил сдесь тему отправка письма Вот код Sub send_message() Dim o_Mess As Object, v_Conf As String Set o_Mess =...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Новые блоги и статьи
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru