Как "кликнуть" по пикселю

[GvR]

Может кто знает как кликнуть по появившихся на монеторе пикселях красного цвета (#F00000) Может есть у кого функция? Я сам не имею представления как ето реализовать...

[TwiX]

Делаем скриншот,пробегаемся по полученной картинки, если находим красный пиксель, то с помощью postmessage шлём клик в точку экрана.

Так делать скриншот:

Procedure ScreenShot(Path: String);
Var
  Bmp : TBitmap;
  DC : HDC;
Begin
  Bmp := Tbitmap.Create;
  Bmp.Height := Screen.Height;
  Bmp.Width := Screen.Width;
  DC := GetDC(0);
  Bitblt(Bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC, 0, 0, SRCCOPY);
  ReleaseDC(0, DC);
//тут пробегаемся по картинке двумя вложенными циклами for и проверяем if bmp.Canvas.Pixels[i,j]=clRed then ...
  bmp.free;
end;

[Greblin]

Ну и задачку Вы себе придумали. Мало того, что пробежаться примерно по миллиону пикселей не очень быстрая задача, так ещё и распознать красный цвет не так легко. Точное значение FF0000 вряд ли будет появляться, будут искажения
Для чего, если не секрет.

P.S. Подозреваю, что для автоматизации какой-нибудь онлайн-игры. Надеюсь, ТС развеет мои подозрения

[GvR]

Ядро ищущей функции может найти свое назначение для автоматизации многих задач. Даже как заметел Greblin для онлайн игр.

[russian-stalker]

Ну можно же смотреть не каждый пиксель:

procedure TForm1.Panel1Click(Sender: TObject);
begin
showmessage('!!');
end;

procedure TForm1.Button1Click(Sender: TObject);
const
scale=50;
var
I,J:integer;
begin
for i:=0 to screen.Width div scale do
for j:=0 to screen.Height div scale do
begin
if getpixel(getdc(0),i*scale,j*scale)=$0000FF then
begin
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, i*scale * (65535 div Screen.Width),j*scale* (65535 div Screen.Height), 0, 0);
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, i*scale * (65535 div Screen.Width),j*scale* (65535 div Screen.Height), 0, 0);
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, i*scale * (65535 div Screen.Width),j*scale* (65535 div Screen.Height), 0, 0);
  exit;
end;
caption:=inttostr(i*scale)+' '+inttostr(j*scale);
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
panel1.Color:=$0000FF
end;

[Вавел из ГМТУ]

Я думаю скорость резко возрастёт, если знать где именно(ограниченая область) появляется пиксель и сканировать только её.

Кстати, а вдруг будет найден не один пиксель?

[Lime]

Сообщение от Вавел из ГМТУ

Я думаю скорость резко возрастёт, если знать где именно(ограниченая область) появляется пиксель и сканировать только её.

Кстати, а вдруг будет найден не один пиксель?

Я себе представляю не пробежку по пикселям а разбиение экрана по некой матрице и определение среднего тона в сегментах , соответственно не пробегая по всем пикселям а соответственно немного перескакивая - зависит от сегментов.
^
Это для онлайн игры)

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

чтоб сделать среднее значение все равно нужно проверять каждый пиксель...
но вот что я думаю...а ведь Canvas.Pixel не быстрая вещь...значит нужжно чтото иное..
но нужно ограничивать область, пустое блуждание по экрану, трата ресов лишь.

ЗЫ: если опечатался прошу прощения глаз подбили в драке.

[GvR]

Вот пример для чего будет использоваться программа:
Прямая ссылка
Нужно будет кликать по шариках...
Какую ф-цыю для етого нужно

[Вавел из ГМТУ]

Можно сканировать не все пиксели, а по сетке. Например через 20 - 30 пикселей.