Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
37 / 15 / 3
Регистрация: 15.07.2010
Сообщений: 326
1

Post / Send Message

10.02.2017, 19:33. Просмотров 1421. Ответов 2
Метки нет (Все метки)

Знаю что таких тем куча, но изучив их, так и не смог самостоятельно произвести клик по координатам в эмуляторе андроида Nox.
Во вложениях скрин клика как это видит Nox при реальном клике.

Пробую так
Delphi
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
procedure PostM(a:HWND;x,y:integer);
begin
  SendMessage(a, WM_MOUSEACTIVATE, $000906D6,$02010001);
  sleep(50);
  SendMessage(a, WM_MOUSEMOVE, MK_LBUTTON, MAKELONG(x,y));
  sleep(50);
  SendMessage(a, WM_PARENTNOTIFY, WM_LBUTTONDOWN, MAKELONG(x,y));
end;
 
function MouseClick(x, y, delay: integer): boolean;
var
  a0,a1,a2,a3,a4: HWND;
begin
 
   a0:=FindWindow(nil,'Nox App Player');
   a1:=FindWindowEx(a0,0,nil,'ScreenBoardClassWindow');
   a2:=FindWindowEx(a1,0,nil,'QWidgetClassWindow');
   a3:=FindWindowEx(a2,0,nil,'AnglePlayer_0');
   a4:=FindWindowEx(a3,0,nil,'Child_1');
 
PostM(a0,x,y);
PostM(a1,x,y);
PostM(a2,x,y);
PostM(a3,x,y);
PostM(a4,x,y);
end;
 
procedure TForm2.Button5Click(Sender: TObject);
begin
  MouseClick(132, 485,50);
end;
Кликаю по всему, куда можно кликнуть по одним и тем же координатам.
Может Nox фризится как-то и не получает клики?
0
Миниатюры
Post / Send Message  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.02.2017, 19:33
Ответы с готовыми решениями:

Send to message
SmtpClient client = new SmtpClient("smtp.mail.ru", 2525); client.Credentials = new...

Could not send a message (Bash)
Всем привет! Сорри за ламерский вопрос, но все же... Ситуация следующая: Руководство поставило...

Send ICQ Message by C# .net
Помогите реализовать отправку на C# сообщения по ICQ Пытался реализовать, как написно здесь, но с...

Send() Post запрос
Вот у меня отправляется ответ клиенту (JS) static void ComeWebClients(SOCKET socket2, char * srt1)...

2
4448 / 3690 / 1238
Регистрация: 14.04.2014
Сообщений: 17,209
Записей в блоге: 17
10.02.2017, 20:17 2
знаете, что обозначает WM_xxxxx?
Windows Message
1
37 / 15 / 3
Регистрация: 15.07.2010
Сообщений: 326
10.02.2017, 20:44  [ТС] 3
я идиот.

Delphi
1
2
3
4
5
6
7
SendMessage(a, WM_SETFOCUS, 0,0);
sleep(100);
SendMessage(a, WM_ACTIVATE, 0,0);
sleep(100);
SendMessage(a, WM_LBUTTONDOWN, MK_LBUTTON, MakeLParam(x, y));
sleep(50);
SendMessage(a, WM_LBUTTONUP, MK_LBUTTON, MakeLParam(x, y));
Вот этот код теперь зажимает кнопку, но не отпускает...

Добавлено через 5 минут
Двукратный идиот. Все понял. Дело было в MK_LBUTTON
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.02.2017, 20:44

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

Почему в vk api для python не работает метод "message.send()"?
Всем привет, помогите, пожалуйста, уже как второй день не могу разобраться в чем роблема, не...

Обход Post/Send запросов
Здравствуйте. Отсылаю в игрушку PostMessage запросы, они хукаются защитой и естественно до клиента...

Как передать переменные через http.Send (post запрос)
Здравствуйте уважаемые форумчане! Имеется макрос для передачи данных в php скрипт, сейчас...

Samsung R780 js0bru - error sending end of post message to me и не зайти в биос!
Ноут 2010 года. Работает напрямую, без аккума- давно умер. При вкл выскакивает эта ошибка и висит...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.