[Помогите!] aim

[victor20011]

помогите пожалуйста почему у меня не наводит прицел вот на эти пиксели?
и зависает программа

procedure TForm1.Timer14Timer(Sender: TObject);
var
  x, y, xi, yi: Integer;
  _hdc: HDC;
  ddddddd100:HWND;
begin
FindWindow(nil,'Counter-Strike');
  if windowHandle <> 0 then
//if Form1.ComboBox1.Text = 'CT' then
  begin
  _hdc := GetDC(0);
  x := GetSystemMetrics(SM_CXSCREEN);
  y := GetSystemMetrics(SM_CYSCREEN);
  for yi := 0 to y do begin
    for xi := 0 to x do begin
if ((GetPixel(_hdc, xi, yi) = 3560019) and ( GetPixel(_hdc, xi+1, yi+1)= 3560019)) then
      begin
      mouse_event(MOUSEEVENTF_MOVE, xi, yi, 0, 0);
    end;
  end;
end;
end;
end;

[Skrillex3]

может быть потому что там нет такого сочетания пикселей?

[victor20011]

Нет есть буду пробывать в ргб