Переключить раскладку клавиатуры в чужом окне

@leva · Регистрация: 12.04.2012

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

Переключить раскладку клавиатуры в чужом окне на определенную не просто на любую, а именно на русскую или английскую какую укажу.

@gunslinger · 08.11.2013, 16:13

Попробуй
PostMessage(hwnd, 0x0C09, 0, 0) - на англ.
PostMessage(hwnd, 0x0419, 0, 0) - на рус.
hwnd - хэндл окна

@leva · 08.11.2013, 16:21 **[ТС]**

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

Попробуй
PostMessage(hwnd, 0x0C09, 0, 0) - на англ.
PostMessage(hwnd, 0x0419, 0, 0) - на рус.
hwnd - хэндл окна

Не работает.

@gunslinger · 08.11.2013, 16:49

PostMessage(hwnd, WM_INPUTLANGCHANGEREQUEST, INPUTLANGCHANGE_SYSCHARSET, 0x419) // рус.; 0x409 - англ.

@leva · 08.11.2013, 16:54 **[ТС]**

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

PostMessage(hwnd, WM_INPUTLANGCHANGEREQUEST, INPUTLANGCHANGE_SYSCHARSET, 0x419) // рус.; 0x409 - англ.

Все работает отлично!

@Nexi99 · 18.12.2021, 06:00

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

PostMessage

может посылать сообщения в чужие окна?

@gunslinger · 18.12.2021, 10:58

Теоретически да (включая аналог SendMessage). На практике зависит от стороннего приложения (может ли оно, включая его компоненты, принимать сообщения). И смотря что ты имеешь в виду под сообщениями.
Есть "виндовые сообщения", которые можно понимать как "команды".
Если же подразумеваются буквально сообщения (текстовые), то их нужно отправлять в компоненты окна, которые могут содержать собственно текст.

Ниже примеры двух моих старых программ, работоспособность которых на данных момент может быть ограничена / отсутствовать полностью (но раньше работали).

1)

Переключить раскладку клавиатуры в чужом окне

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
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::Button1Click(TObject *Sender)
{
  if (CheckBox3->Checked)
    Form1->FormStyle = fsStayOnTop;
  else
    Form1->FormStyle = fsNormal;    
 
  HWND hWnd = FindWindow("SkinDialog", "Garena LAN Game");
 
  HWND hWnd2 = NextWindowElement(hWnd, "Static", NULL, 1);
 
  AnsiString temp;
  char caption[100];
  if (IsWindow(hWnd2))
  {
    SendMessage(hWnd2, WM_GETTEXT, sizeof(caption), (LPARAM)caption);
    Form1->Caption = "Ban Hammer - ";
    temp = caption;
    Form1->Caption = Form1->Caption + Trim(temp);
 
    for (int i = 2; i <= 3; i++)
    {
      HWND hWnd0 = NextWindowElement(NULL, "UIHOST", NULL, i);  // 2 or 3
      if (IsWindow(hWnd0))
      {
        SendMessage(hWnd0, WM_GETTEXT, sizeof(caption), (LPARAM)caption);
        temp = caption;
        if (temp.Pos(" - ") != -1)
          Form1->Caption = Form1->Caption + MidStr(temp, temp.Pos("-")-1, temp.Length()-temp.Pos("-")+2);
      }
    }
  }
  else
    Form1->Caption = "Ban Hammer";
 
  hWnd2 = NextWindowElement(hWnd, "#32770", NULL, 3);
  HWND hWnd3 = NextWindowElement(hWnd2, "RichEdit20W", NULL, 2);
 
  hWnd3 = NextWindowElement(hWnd2, "RichEdit20W", NULL, 1);
  char chat[1000000]; // 32767
  if (IsWindow(hWnd3))
  {
    SendMessage(hWnd3, WM_GETTEXT, sizeof(chat), (LPARAM)chat);
    RichEdit1->Text = chat;
/*  EDITSTREAM es;
    SendMessage(hWnd3, EM_STREAMOUT, SF_RTF, (LPARAM)&es);
    hWnd = FindWindow("TForm", NULL);
    hWnd2 = NextWindowElement(hWnd, "TRichEdit", NULL, 1);
    SendMessage(hWnd2, EM_STREAMIN, SF_RTF, (LPARAM)&es);
*/  
    Label2->Caption = RichEdit1->GetTextLen();
    Label2->Caption = Label2->Caption + " байт";
    if (CheckBox1->Checked)
      SendMessage(RichEdit1->Handle, WM_VSCROLL, SB_BOTTOM, 0);
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  Button1->Click(); 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Button2->Caption="Отправить\nсообщение";
  long st=GetWindowLong(Button2->Handle, GWL_STYLE); // получаем стиль окна кнопки
  st|=BS_MULTILINE;                                  // добавляем возможность мультилайна
  SetWindowLong(Button2->Handle, GWL_STYLE, st);     // устанавливаем стиль окна кнопки
 
  char szPath[MAX_PATH];
  GetModuleFileName(NULL, szPath, MAX_PATH);
  AnsiString options = ExtractFilePath(szPath) + "banlist.txt";
  if (FileExists(options))
    ValueListEditor1->Strings->LoadFromFile(options);
  if ((Trim(ValueListEditor1->Keys[1]) != "") && (ValueListEditor1->RowCount > 1))
  {
    Button4->Enabled = 1;
    Button6->Enabled = 1;
    Button5->Enabled = 1;
  }
  Button4->OnMouseEnter(Button4);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  HWND hWnd = FindWindow("SkinDialog", "Garena 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);
//  отправка сообщения
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  int temp=0;
  if ((Trim(LabeledEdit1->Text)!="") && TryStrToInt(LabeledEdit2->Text, temp) && (temp>0))
  {
    ValueListEditor1->InsertRow(Trim(LabeledEdit1->Text), Trim(LabeledEdit2->Text), 1);
    ValueListEditor1->Row = ValueListEditor1->RowCount-1;
    LabeledEdit1->Text = ""; //LabeledEdit2->Text = "";
    if (!Button4->Enabled)
    {
      Button4->Enabled = 1;
      Button6->Enabled = 1;
      Button5->Enabled = 1;   
    }
  }
  LabeledEdit1->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
  if (ValueListEditor1->RowCount==2)
  {
    Button4->Enabled = 0;
    Button6->Enabled = 0;
    Button5->Enabled = 0;
  }
  ValueListEditor1->DeleteRow(ValueListEditor1->Row);
  Button4->OnMouseEnter(Button4);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4MouseEnter(TObject *Sender)
{
  Button4->Hint = ValueListEditor1->Keys[ValueListEditor1->Row];
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
  if (Button4->Enabled)
  {
    for (int i = 1; i < ValueListEditor1->RowCount; i++)
    {
      Memo1->Text = "/ban " + ValueListEditor1->Keys[i] + " " + ValueListEditor1->Strings->ValueFromIndex[i-1];
      Button2->Click();
      if (i<ValueListEditor1->RowCount-1)
        SleepEx(1100, 0);
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
  for (int i = ValueListEditor1->RowCount-1; i > 0; i--)
    Button4->Click();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LabeledEdit2KeyPress(TObject *Sender, char &Key)
{
  if (Key == VK_RETURN)
    Button3->Click();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LabeledEdit1KeyPress(TObject *Sender, char &Key)
{
  if (Key == VK_RETURN)
    Button3->Click();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1KeyPress(TObject *Sender, char &Key)
{
  if (Key == VK_RETURN)
    Button2->Click();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
  POINT pt;
  GetCursorPos(&pt);
  Form1->PopupMenu1->Popup(pt.x, pt.y);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::pingstat1Click(TObject *Sender)
{
  Memo1->Text = "/pingstat";
  Button2->Click();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::publicip1Click(TObject *Sender)
{
  Memo1->Text = "/publicip";
  Button2->Click();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::privateport1Click(TObject *Sender)
{
  Memo1->Text = "/privateport";
  Button2->Click();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::start1Click(TObject *Sender)
{
  Memo1->Text = "/start";
  Button2->Click();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
//  if (Form1->FormStyle == fsStayOnTop)
  Form1->WindowState = wsMinimized;
  HWND hWnd = FindWindow("SkinDialog", "Garena LAN Game");
  HWND hWnd2 = NextWindowElement(hWnd, "#32770", NULL, 3);
  HWND hWnd3 = NextWindowElement(hWnd2, "Button", NULL, 29);
  SendMessage(hWnd3, WM_LBUTTONDOWN, 0, 0);
  SendMessage(hWnd3, WM_LBUTTONUP, 0, 0);
//  сохранить чат
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button9Click(TObject *Sender)
{
  HWND hWnd = FindWindow("SkinDialog", "Garena LAN Game");
  HWND hWnd2 = NextWindowElement(hWnd, "#32770", NULL, 3);
  HWND hWnd3 = NextWindowElement(hWnd2, "Button", NULL, 28);
  SendMessage(hWnd3, WM_LBUTTONDOWN, 0, 0);
  SendMessage(hWnd3, WM_LBUTTONUP, 0, 0);
//  очистить чат
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button10Click(TObject *Sender)
{
  HWND hWnd = FindWindow("SkinDialog", "Garena LAN Game");
  HWND hWnd2 = NextWindowElement(hWnd, "#32770", NULL, 3);
  HWND hWnd3 = NextWindowElement(hWnd2, "Button", NULL, 30);
  SendMessage(hWnd3, WM_LBUTTONDOWN, 0, 0);
  SendMessage(hWnd3, WM_LBUTTONUP, 0, 0);
//  сменить цвет
  if (RichEdit1->Color == clWhite)
  {
    RichEdit1->Color = clBlack;
    Memo1->Color = clBlack;
    RichEdit1->Font->Color = clWhite;
    Memo1->Font->Color = clWhite;
  }
  else
  {
    RichEdit1->Color = clWhite;
    Memo1->Color = clWhite;
    RichEdit1->Font->Color = clBlack;
    Memo1->Font->Color = clBlack;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button11Click(TObject *Sender)
{
  Form1->WindowState = wsMinimized;
  HWND hWnd = FindWindow("SkinDialog", "Garena LAN Game");
  HWND hWnd2 = NextWindowElement(hWnd, "#32770", NULL, 3);
  HWND hWnd3 = NextWindowElement(hWnd2, "Button", NULL, 32);
  SendMessage(hWnd3, WM_LBUTTONDOWN, 0, 0);
  SendMessage(hWnd3, WM_LBUTTONUP, 0, 0);
//  забанить на хосте
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button12Click(TObject *Sender)
{
  Form1->WindowState = wsMinimized;
  HWND hWnd = FindWindow("SkinDialog", "Garena LAN Game");
  HWND hWnd2 = NextWindowElement(hWnd, "#32770", NULL, 3);
  HWND hWnd3 = NextWindowElement(hWnd2, "Button", NULL, 31);
  SendMessage(hWnd3, WM_LBUTTONDOWN, 0, 0);
  SendMessage(hWnd3, WM_LBUTTONUP, 0, 0);
//  выйти из комнаты
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button13Click(TObject *Sender)
{
  Form1->WindowState = wsMinimized;
  HWND hWnd = FindWindow("SkinDialog", "Garena LAN Game");
  HWND hWnd2 = NextWindowElement(hWnd, "#32770", NULL, 3);
  HWND hWnd3 = NextWindowElement(hWnd2, "Button", NULL, 33);
  SendMessage(hWnd3, WM_LBUTTONDOWN, 0, 0);
  SendMessage(hWnd3, WM_LBUTTONUP, 0, 0);
//  настройки
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button14Click(TObject *Sender)
{
  HWND hWnd = FindWindow("SkinDialog", "Garena LAN Game");
  HWND hWnd2 = NextWindowElement(hWnd, "#32770", NULL, 3);
  HWND hWnd3 = NextWindowElement(hWnd2, "Button", NULL, 34);
  SendMessage(hWnd3, WM_LBUTTONDOWN, 0, 0);
  SendMessage(hWnd3, WM_LBUTTONUP, 0, 0);
//  пуск
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  char szPath[MAX_PATH];
  GetModuleFileName(NULL, szPath, MAX_PATH);
  AnsiString options = ExtractFilePath(szPath) + "banlist.txt";
  if (FileExists(options))
    DeleteFile(options);
  if (Button4->Enabled)
    ValueListEditor1->Strings->SaveToFile(options);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::GetModListClick(TObject *Sender)
{
  AnsiString mods = "";
  if (Trim(ModList->Text) == "")
  {
  ModList->Text = UTF8Decode(HTTP->Get("http://forum.sng.garena.com/forumdisplay.php?f=81"));
  int num = 0;
  for (int I = 0; I < ModList->Lines->Count; I++)
  {
    int PosReturn = ModList->Lines->Strings[I].Pos(">High Level Room");
    if (PosReturn)
    {
      mods = Trim(mods);
      num = num + 1;
      if (num > 1)
        mods = mods + "\n--------------------\n";
      mods = mods + "High Level Room " + num + "\n";
      for (int J = 1; J < ModList->Lines->Strings[I+8].Length(); J++)
        if (MidStr(ModList->Lines->Strings[I+8], J, 3) == ";\">")
          for (int K = J+1; K < ModList->Lines->Strings[I+8].Length(); K++)
            if (MidStr(ModList->Lines->Strings[I+8], K, 7) == "</span>")
            {
              mods = mods + MidStr(ModList->Lines->Strings[I+8], J+3, K-J-3) + "  ";
              break;
            }
    }
  }
  ModList->Text = mods;
  }
  else
    mods = ModList->Text;
  MessageBox(FindWindow("TForm1", NULL), Trim(mods).c_str(), "Модераторы Russia DotA High Level Rooms", MB_OK);
}
//---------------------------------------------------------------------------

2)

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
unsigned int HotKey;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  HotKey = GlobalAddAtom(L"HotKey");
  RegisterHotKey(NULL, HotKey, MOD_CONTROL, int('V'));
}
//---------------------------------------------------------------------------
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::Button1Click(TObject *Sender)
{
  bool is_chat_found = 0;
  HWND hWnd = GetForegroundWindow(), hWnd2, hWnd3, hWnd4;
 
  if (hWnd == FindWindow(L"PokerStarsTableFrameClass", NULL))
  {
    hWnd2 = NextWindowElement(hWnd, L"PokerStarsTablePanelWnd", NULL, 1);
    hWnd3 = NextWindowElement(hWnd2, L"WinInplaceDialogEngineClass", NULL, 1);
    hWnd4 = NextWindowElement(hWnd3, L"PokerStarsChatEditorClass", NULL, 1);
    is_chat_found = 1;
  }
  else if (hWnd == FindWindow(L"PokerStarsTableHelperFrameClass", NULL))
  {
    hWnd2 = NextWindowElement(hWnd, L"PokerStarsTableHelperControlClass", NULL, 1);
    hWnd3 = NextWindowElement(hWnd2, L"PokerStarsTableHelperPaneClass", NULL, 1);
    hWnd4 = NextWindowElement(hWnd3, L"PokerStarsChatEditorClass", NULL, 1);
    is_chat_found = 1;
  }
 
  if (is_chat_found && Clipboard()->HasFormat(CF_TEXT))
  {
    wchar_t *text = String(Clipboard()->AsText).c_str();
    SendMessage(hWnd4, WM_SETTEXT, 0, (LPARAM)text);
    SendMessage(hWnd4, WM_KEYDOWN, VK_END, 0);
  }
 
  // вставка картинки не работает
  if(is_chat_found && Clipboard()->HasFormat(CF_BITMAP))
  {
    HANDLE ghBmp = HANDLE(Clipboard()->GetAsHandle(CF_BITMAP));
    SendMessage(hWnd4, BM_SETIMAGE, IMAGE_BITMAP, (LPARAM)ghBmp);
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  UnregisterHotKey(NULL, HotKey);
  GlobalDeleteAtom(HotKey);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg, bool &Handled)
{
  if (Msg.message == WM_HOTKEY)
    if (Msg.wParam == HotKey)
      Button1->Click();
}
//---------------------------------------------------------------------------

P.S.: пока писал сообщение, мой любимый "огнелис" снова вылетел. Пришлось заново превращать мысли в текст.
За это время вспомнил, что у меня есть пример, когда отправка сообщений (команд) не работает (о чем упоминал выше). Это случай наличия "нарисованных" ("графических" / "нестандартных" ?) компонентов, с которыми нельзя работать как с обычными элементами интерфейса (с помощью SendMessage / PostMessage).

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
unsigned int HotKey;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  HotKey = GlobalAddAtom(L"HotKey");
  RegisterHotKey(NULL, HotKey, MOD_CONTROL, int('C'));
}
//---------------------------------------------------------------------------
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::Button1Click(TObject *Sender)
{
  bool is_results_found = 0;
  HWND hWnd = GetForegroundWindow(), hWnd2;
 
  if (hWnd == FindWindow(L"#32770", NULL))
  {
    hWnd2 = NextWindowElement(hWnd, L"PokerStarsListClass", NULL, 9);
    if (IsWindow(hWnd2))
      is_results_found = 1;
  }
 
  if (is_results_found)
  {
    wchar_t text[100000];
    SendMessage(hWnd2, WM_GETTEXT, sizeof(text), (LPARAM)text);
    Memo->Text = text;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  UnregisterHotKey(NULL, HotKey);
  GlobalDeleteAtom(HotKey);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg, bool &Handled)
{
  if (Msg.message == WM_HOTKEY)
    if (Msg.wParam == HotKey)
      Button1->Click();
}
//---------------------------------------------------------------------------

@Nexi99 · 18.12.2021, 20:29

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

Теоретически да

меня интересует сообщения формата нажатия кнопки на клавиатуре или на мыши. Чем являются такие сообщения командами? В инструкции написано что прежде чем послать сообщение нужно активировать окно и переключить туда фокус клавиатуры а затем уже посылаются сообщения или команды. Спрашиваю здесь Можно ли посылать сообщения окнам которые принадлежат чужим процессам?, Как правильно активировать окно и переключить фокус клавиатуры на него в чужом потоке с использованием оконных сообщений, Нужно ли активировать чужое окно если нужно послать туда сообщение? . Я так понимаю что сделать это не возможно. Можете отписаться в одной из этих тем если что-то реально знаете, т.к. в инструкции даже нет конкретных примеров по задачи которые можно проверить.

@gunslinger · 18.12.2021, 21:27

Касаемо мыши не скажу, а насчет клавиатуры - ниже скриншот программы и код, суть работы которого следующая: когда запущена игра Warcraft 3 и ее окно на переднем плане, игре отправляются нажатия комбинации клавиш Ctrl + C с указанным интервалом, если эмуляция включена (это позволяет видеть выделение игроком юнитов для простой проверки на использование мапхака).
Можно считать это командами.

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cspin"
#pragma link "cspin"
#pragma resource "*.dfm"
TForm1 *Form1;
unsigned int F5;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Button1->Click();
  F5 = GlobalAddAtom("F5CheckAllocationsHotKey");
  RegisterHotKey(NULL, F5, 0, VK_F5);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int act;
if (GetWindowThreadProcessId(GetForegroundWindow(), NULL) == GetWindowThreadProcessId(FindWindow(NULL, "Warcraft III"), NULL))
  act = 1;
else
  act = 0;
if (act == 1)
  {
    keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, 0);
    keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY, 0);
    //нажали и удерживаем Ctrl
    keybd_event(67, 0, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, 0);
    keybd_event(67, 0, KEYEVENTF_EXTENDEDKEY, 0);
    //нажимаем клавишу C
    //отпускаем клавиши
    keybd_event(67, 0,KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP,0);
    keybd_event(VK_CONTROL, 0,KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP,0);
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  Button1->Click();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CSpinEdit1Change(TObject *Sender)
{
  Timer1->Interval = CSpinEdit1->Value;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  if (Button2->Caption == "Отключить")
  {
    Button2->Caption = "Включить";
    Timer1->Enabled = 0;
    Label4->Caption = "Эмуляция отключена";
    Label4->Font->Color = clRed;
  }
  else
  {
    Button2->Caption = "Отключить";
    Timer1->Enabled = 1;
    Label4->Caption = "Эмуляция включена";
    Label4->Font->Color = clGreen;  
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if(GetWindowThreadProcessId(FindWindow(NULL, "Warcraft III"), NULL) > 0)
  Label1->Caption = "Статус игры: Warcraft III запущен.";
else
  Label1->Caption = "Статус игры: Warcraft III не запущен.";
if (GetWindowThreadProcessId(GetForegroundWindow(), NULL) == GetWindowThreadProcessId(FindWindow(NULL, "Warcraft III"), NULL))
  Label2->Caption = "Статус окна: игра активна.";
else
  Label2->Caption = "Статус окна: игра не активна.";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
  Button3->Click(); 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  UnregisterHotKey(NULL, F5);
  GlobalDeleteAtom(F5);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg, bool &Handled)
{
if (Msg.message == WM_HOTKEY)
  if (Msg.wParam == F5)
    Button2->Click();
}
//---------------------------------------------------------------------------

Как уже я сказал, окно должно быть на переднем плане. Как принудительно его туда поместить - сказать не могу, возможно, сначала нужно найти хэндл окна и отправить ему нужное сообщение, если оно есть (это в том числе ответ на твою вторую тему).
Ответ на первую тему - да, можно.
Ответ на третью тему - про "активацию" окна уже сказал, про раскладку - в этой теме выше.
И обрати внимание внимание, что ты пишешь в разделе WinAPI, а тут билдер.
И еще - я давно делал программу, через которую (насколько помню) можно было слать сообщения свернутому приложению. Подробности уже подзабыл.
Но код примерно такой:

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
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::timerTimer(TObject *Sender)
{
  Form1->Caption = "AutoGarena - пытаюсь войти...";
  HWND hWnd = FindWindow("SkinDialog", "Garena LAN Game");
  HWND hWnd2 = NextWindowElement(hWnd, "#32770", NULL, 2);
  HWND hWnd3 = NextWindowElement(hWnd2, "WTL_LISTVIEW", NULL, 1);  // определяем хэндл списка ListView
 
  PostMessage(hWnd3, WM_COMMAND, 4235, 0);  // 0x108B, выбор пункта меню "войти"
//  вход в комнату
}
//---------------------------------------------------------------------------
void __fastcall TForm1::timer2Timer(TObject *Sender)
{
  HWND hWnd = FindWindow("SkinDialog", "Garena LAN Game");
  HWND hWndR = NextWindowElement(hWnd, "Button", NULL, 9);  // вкладка "Комната"
 
  for (int i = 1; i < 5; i++)
  {
    HWND hWnd4 = NextWindowElement(NULL, "SkinDialog", NULL, i);
    HWND hWnd5 = NextWindowElement(hWnd4, "Button", "OK", 1);
    PostMessage(hWnd4, WM_COMMAND, 1, (LPARAM)hWnd5);
 
    hWnd5 = NextWindowElement(hWnd4, "Button", "", 1);
    PostMessage(hWnd4, WM_COMMAND, 2045, (LPARAM)hWnd5);
  }
 
  if (IsWindowEnabled(hWndR) != 0)
  {
    Form1->Caption = "AutoGarena - мы в комнате!";
    timer3->Interval = 100;
    timer3->Enabled = 1;
  }
//  закрытие всех лишних окон с сообщениями
}
//---------------------------------------------------------------------------
void __fastcall TForm1::timer3Timer(TObject *Sender)
{
  HWND hWnd = FindWindow("SkinDialog", "Garena LAN Game");
  HWND hWndR = NextWindowElement(hWnd, "Button", NULL, 9);  // вкладка "Комната"
  if (IsWindowEnabled(hWndR) != 0)
  {
    timer->Enabled = 0;
    timer2->Enabled = 0;
    PlaySound("MYWAV", NULL, SND_SYNC | SND_RESOURCE);
  }
  timer3->Enabled = 0;
// обработка случая, когда перед входом находимся в комнате
}
//---------------------------------------------------------------------------

@Nexi99 · 18.12.2021, 22:44

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

keybd_event

Используется как вы и написали если окно на переднем плане. А моём случае идёт программная отправка сообщения в окно. Интересно это всё конечно.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@leva 12 / 12 / 9 Регистрация: 12.04.2012 Сообщений: 259

	Переключить раскладку клавиатуры в чужом окне 08.11.2013, 14:28. Показов 3804. Ответов 9 Метки нет (Все метки) Переключить раскладку клавиатуры в чужом окне на определенную не просто на любую, а именно на русскую или английскую какую укажу. 0

@gunslinger place status here 3190 / 2227 / 640 Регистрация: 20.07.2013 Сообщений: 6,023
	08.11.2013, 16:13
	Попробуй PostMessage(hwnd, 0x0C09, 0, 0) - на англ. PostMessage(hwnd, 0x0419, 0, 0) - на рус. hwnd - хэндл окна 0

@gunslinger place status here 3190 / 2227 / 640 Регистрация: 20.07.2013 Сообщений: 6,023
	08.11.2013, 16:49
	PostMessage(hwnd, WM_INPUTLANGCHANGEREQUEST, INPUTLANGCHANGE_SYSCHARSET, 0x419) // рус.; 0x409 - англ. 1