Кто сможет поделиться исходниками pixel aimbot написанный на delphi 7 Я тут кое что нашёл: Code: procedure TForm1.Timer1Timer(Sender: TObject); var i, j, dx: integer; bit: TBitmap; flag: boolean; t: tdatetime; Pixels: PByteArray; red1,green1,blue1:integer; begin red1 := strtoint(Edit1.text); green1 :=strtoint(Edit2.text); blue1 :=strtoint(Edit3.text); 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; Но работает только в окне в играх глючит порой упирается в пол