Delphi pixel aimbot

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by triblekill, 24 May 2015.

  1. triblekill

    triblekill Member

    Joined:
    21 Aug 2011
    Messages:
    351
    Likes Received:
    94
    Reputations:
    1
    Кто сможет поделиться исходниками 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;
    
    Но работает только в окне в играх глючит порой упирается в пол