Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 03.07.2010, 17:37
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию Авто-кликер во флеше - реально?

Есть флеш-приложение.
Периодически в нём может появляться несколько (от 1 до 5) объектов, которые выглядят как одна из двух картинок. Объекты достаточно быстро перемещаются в пределах окна flash. Нужно на эти объекты нажать (просто кликнуть мышкой, поочерёдно на каждом).

Реально ли сделать такое, и какую документацию курить?
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
  #2  
Старый 06.07.2010, 09:36
Аватар для friz
friz friz вне форума
Местный
 
Регистрация: 04.04.2008
Адрес: Минск
Сообщения: 596
Версия Delphi: 2007 & JAVA EE
Репутация: 10670
По умолчанию

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

вот откопал кусок кода:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var x0,y0,x1,y1:integer;
    i,j,zu:integer;
    DC: HDC;
    Color: Cardinal;
begin
i:=strtoint(edit1.Text); -- верхний левый угол Х
j:=strtoint(edit2.Text); -- верхний левый угол У
x1:=strtoint(edit3.Text); -- нижний правый угол Х
y1:=strtoint(edit4.Text); -- нижний правый угол У

while i<=x1 do
 begin
  While j<=y1 do
  begin
  DC := CreateDC('Display', nil, nil, nil);
  Color := GetPixel(DC,i ,j ); //получаем цвет в точке

  if edit5.Text=IntToHex(color,6) then begin SetCursorPos(i,j); {тут надо поставить процедуру клика!}sleep(100); end;
  DeleteDC(DC);
  j:=j+5; //просматриваем через 5 пикселей, можно сделать меньше в зависимости от размера мухи :)
  end;
  j:=strtoint(edit2.Text);
  i:=i+5;
 end;
end;
__________________
Последний раз редактировалось Admin, Сегодня в 10:32.

Последний раз редактировалось friz, 06.07.2010 в 09:51.
Ответить с цитированием
  #3  
Старый 06.07.2010, 10:12
Asinkrit Asinkrit вне форума
Местный
 
Регистрация: 29.10.2009
Сообщения: 446
Репутация: 271
По умолчанию

Было дело играл в Большой Город в вконтакте, и даже набросал бота, вполне оптимизированного, умеет обрабатывать заводы, чистить здания, принимать жителей. Как оказалось, автоклик, само по себе, не самое удачное решение, но вполне рабочее.

Держи ссылку на исходники)
Ответить с цитированием
  #4  
Старый 12.07.2010, 15:31
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

Цитата:
Сообщение от friz
я кому-то на форуме помогал делать похожую прогу, там был смысл по мухам кликать

Случайно не "Искушение" в контакте?
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
  #5  
Старый 13.07.2010, 09:19
Аватар для friz
friz friz вне форума
Местный
 
Регистрация: 04.04.2008
Адрес: Минск
Сообщения: 596
Версия Delphi: 2007 & JAVA EE
Репутация: 10670
По умолчанию

название не помню но точно для контакта
__________________
Последний раз редактировалось Admin, Сегодня в 10:32.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 11:48.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025