0x606029

[romka1608]

Мне нужно типо этого

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, dx: integer;
  bit: TBitmap;
  flag: boolean;
  t: tdatetime;
  Pixels: PByteArray;
const
  red1 = 94;
  green1 = 168;
  blue1 = 38;
begin
  flag := false;
  bit := TBitmap.Create;
  bit.PixelFormat := pf24bit;
  bit.Width := Screen.Width;
  bit.Height := Screen.Height;
  BitBlt(bit.Canvas.Handle, 0, 0, bit.Width, bit.Height, GetDC(0), 0, 0, SRCCOPY);

  t := now;
  dx := DWord(bit.ScanLine[1]) - DWord(bit.ScanLine[0]);
  Pixels := bit.ScanLine[0];
  for i := 0 to bit.Height - 1 do
  begin
    for j := 0 to bit.Width - 1 do
    begin
      flag := (Pixels[j * 3 + 2] = red1) and (Pixels[j * 3 + 1] = green1) and (Pixels[j * 3] = blue1);
      if flag then
        break;
    end;
    if flag then
      break;
    inc(DWord(Pixels), dx);
  end;
  caption := FormatDateTime('s.zzz', now - t);

  if flag then
    setcursorpos(j, i);

  bit.Free;
end;

только что бы перемещало на 0x606029(как пример)

[BDA]

Как название темы, так и ее содержание "крайне информативно".
Что значит "перемещало"?

[romka1608]

Сообщение от BDA

Как название темы, так и ее содержание "крайне информативно".
Что значит "перемещало"?

как в этой программе http://rghost.ru/39419987

[Человек_Борща]

Мне нужно типо этого




Код:

А что там?

[phomm]

Я бы выписал жёсткий пред за флудо-дубле-тему, Вам , romka1608, стоило продолжить в Вашей старой теме http://programmersforum.ru/showthread.php?t=242769
а вообще Вы потеряли строку
p := rgb(94, 168, 38);
Xтобы она стала соответствовать нужному цвету, надо, по идее, вписать p := rgb($29, $60, $60);

зы. BDA , странно, что не узнаёте свой код, полусуточной давности

[саша40]

Автора в бан! Тему закрыть. Причина: Создание читов.
Не по теме:
"Уважаемые модераторы, прошу заблокировать авторы темы на всегда за создание читов к онлайн к играм! За это вам честные игроки огромное спасибо скажут".

[BDA]

phomm, код-то свой я узнал. За который ТС даже не поблагодарил.
Просто я не привык к такой записи цвета (думал, что речь пошла про адреса).

[Человек_Борща]

саша40, исчезни, за**л уже своими тупыми высерами.

[romka1608]

Ладно я разобрался с кодом

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, dx: integer;
  bit: TBitmap;
  flag: boolean;
  t: tdatetime;
  Pixels: PByteArray;
const
  red1 = 94;
  green1 = 168;
  blue1 = 38;
begin
  flag := false;
  bit := TBitmap.Create;
  bit.PixelFormat := pf24bit;
  bit.Width := Screen.Width;
  bit.Height := Screen.Height;
  BitBlt(bit.Canvas.Handle, 0, 0, bit.Width, bit.Height, GetDC(0), 0, 0, SRCCOPY);

  t := now;
  dx := DWord(bit.ScanLine[1]) - DWord(bit.ScanLine[0]);
  Pixels := bit.ScanLine[0];
  for i := 0 to bit.Height - 1 do
  begin
    for j := 0 to bit.Width - 1 do
    begin
      flag := (Pixels[j * 3 + 2] = red1) and (Pixels[j * 3 + 1] = green1) and (Pixels[j * 3] = blue1);
      if flag then
        break;
    end;
    if flag then
      break;
    inc(DWord(Pixels), dx);
  end;
  caption := FormatDateTime('s.zzz', now - t);

  if flag then
    setcursorpos(j, i);

  bit.Free;
end;

У меня ключит немного компьютер когда я включаю проэкт. Что мне сделать что бы не глючило?