Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> проблема с mouse_event, работает через раз.. 
V
    Опции темы
casinosoftguru
Дата 22.12.2008, 17:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 138
Регистрация: 22.12.2008

Репутация: нет
Всего: нет




M
bartram
Не забываем оформлять свой код, для этого существует кнопочка "Код"

По поиску полазил вроде нигде нет.. В общем в инете везде валяется код для работы с мышкой, взял его, но не работает совсем либо нажимает через нное количество вызова процедуры причем вызывание процедуры подряд в одном цикле не помогает))
У меня приложение, на форме значит TWebBrowser. В этот браузер я загружаю страницу с флешкой то есть по сути кликнуть надо во флешке, наверное из-за этого и проблемы. Среда делфи 7. Привожу сам код:

Код

   x:=160;
   x:=form1.Left+x;
   y:=325;
   y:=form1.Top+y;
  // SetCursorPos(x,y); - в принципе перемещение работает и так и как ниже а вот кликать упорно не хочет по нормальному..
   ClientToScreen(application.Handle,Pt);
   Pt.x := Round(x * (65535 / Screen.Width));
   Pt.y := Round(y * (65535 / Screen.Height));
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0);
  application.proccessmessages;
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);
  application.proccessmessages;
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0);
  application.proccessmessages;



После того как добавил processmessages после каждого mouse_event стало получше но все равно срабатывает не всегда и это просто убивает.. Кто в курсе, жду советов!



Это сообщение отредактировал(а) casinosoftguru - 22.12.2008, 18:23
PM MAIL   Вверх
casinosoftguru
Дата 22.12.2008, 18:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 138
Регистрация: 22.12.2008

Репутация: нет
Всего: нет



Такое маленькое дополнение - создал около 20 процедурок для каждой кнопки во флешке, каждая процедура со своими координатами. Вот, и если вызывать руками любую процедуру то все работает прекрасно но если делать цикл, из последовательности действий (цель - написать программу бота) то на некоторые кнопки в упор не нажимается и все тут.. 

Это сообщение отредактировал(а) casinosoftguru - 22.12.2008, 18:59
PM MAIL   Вверх
FromUZB
Дата 18.12.2009, 21:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 30.4.2008
Где: Ташкент

Репутация: нет
Всего: нет



Кто-нибудь знает решения данной проблемы?  smile 

Это сообщение отредактировал(а) FromUZB - 18.12.2009, 21:28
PM MAIL WWW   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »


 




[ Время генерации скрипта: 0.0748 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.