Работа с чужими окнами

[ZBEP]

Пепел Феникса, а можно поподробнее плиз, прост если слать сообщения главному, например:
PostMessage(wnd, WM_CHAR, ':', 0);
То оно не распознаётся, даже при открытом окне ввода , приходится активировать нужное окно и через keybd_event вбивать тута SHIFT + ';'.

Щас про PID почитаю..

П.с.
Перечесление окон уже ненужно.

[Пепел Феникса]

возьмите Spy++ или чтото подобное
и посмотрите какие сообщения приходят и с какими параметрами

[ZBEP]

Посмотрел через Spy++
Вроде откопал, вот что выдает по нажатию на SHIFT + ';'


А вот это выдает по отправке нажатия на SHIFT + ';' через бота:
Посылка команд:

PostMessage(wnd, WM_KEYDOWN, VK_SHIFT, 0);
PostMessage(wnd, WM_KEYDOWN, 186, 0);
PostMessage(wnd, WM_KEYUP, 186, 0);
PostMessage(wnd, WM_KEYUP, VK_SHIFT, 0);

Результат:


Отличий мало вроде, только в Repeat, UP и ScanCode.
Но вместо ':' всеравно ';'
Буду че-нить думать..

П.с.
Обошелся без PID пока, Все порм, все команды посылаются в нужные окна.
Осталось тодько реализовать нормальное нажатие ':' , а лучше что-бы можно было через CHAR команды посылать (например как в блокнот), а не через WM_KEYDOWN

П.п.с.
Вот что выдает если через Char:

ClickKey(wnd,13);
PostMessage(wnd, WM_CHAR, Word(':'), 0);

Странно..

[Пепел Феникса]

ну так возьмите себе параметры со Spy++

[ZBEP]

А можете на примере показать пожалуйста?

[profi]

Могу посоветовать программу InqSoft Window Scanner. С помощью неё можно просмотреть дерево окон.

[Пепел Феникса]

щелкните правой кнопкой по сообщению...и там св-ва
там будет шестнадцатеричное значение lParam и wParam
подставить думаю сможете

(в Делфи HEX значение пишется $<тут значение>)

[ZBEP]

Пепел Феникса, о все, спасибо, разобрался!

[ZBEP]

Блин, я забыл что выставил фокус окна((

Вобщем на неактивном окне всеравно ';' получается.
Делаю так:

PostMessage(wnd, WM_KEYDOWN, $00000010, $002A0001);
PostMessage(wnd, WM_KEYDOWN, $000000BA, $00270001);
PostMessage(wnd, WM_KEYUP, $000000BA, $C0270001);
PostMessage(wnd, WM_KEYUP, $00000010, $C02A0001);

[progma]

Здравствуйте!
Если сможете, то помогите по такому вопросу:
У меня такая задача:
Программа запускает запароленные презентации PowerPoint и должна:
- эмулировать ввод пароля в окне "Пароль" на запуск презентации
- в следующем окне "Пароль" эмулировать нажатие кнопки "Только для чтения"
Вот мой упрощенный тестовый код:
var
Form1: TForm1;
h1,h2,h3,h4,h5,h6:HWND;
procedure TForm1.Button1Click(Sender: TObject);
begin
{ищем 1-е окно с именем "Пароль"}
1. SendMessage(h2, WM_SETTEXT, 0, lparam(pchar('testor')));
2. h3:=findwindowex(h1,0,nil,'ОК');
3. sendmessage(h3,BM_CLICK,0,0);
4. ищем 2-е окно с именем "Пароль" }
5. h4 := FindWindow(nil, 'Пароль'); // форма на которой кнопка находится
6. h5:= FindWindowEx(h4, 0, nil, 'Только для чтения'); //находим дескриптор кнопки
7. windows.SetFocus(h5);
8. sendmessage(h5,BM_CLICK,0,0);
end;
До строки 6 все работает хорошо. Второе окно "Пароль" активно.
Но эмуляции нажатия кнопки не происходит, хотя вреде бы все
должно быть также, как при нажатии первой кнопки "Пароль".
Ставил Sleep после появления второй кнопки "Пароль", но ничего не менялось.
Помогите разобраться в чем причина. Спасибо