Criando um Anti Cheater para TeamSpeak , e campeonatos

Tutorial
Crie um Projeto...
Declare nas uses

Código:


  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, tlhelp32, XPMan, ShellApi, ExtCtrls, ComCtrls, jpeg,
  ExtDlgs, Buttons, Menus, ActnList, FileCtrl;

Nas variaveis globais declare

Código:

 Form1: TForm1;
  pro:  array[0..255] of Integer;
  NomeJanela : THandle;
  PID, TID, R : DWORD;
Escrever : DWORD;
 Frozen:        array[1..256] of Boolean;
  Description:  Array[1..255] of String;
  Adress:        Array[1..255] of Integer;
  MType:        Array[1..255] of Integer;
  Inuse:        Array[1..256] of Boolean;
  FreezeValue2:  array[1..255] of Integer;
 cap : String;
  ncar : Integer;

embaixo de {$R *.dfm} , coloque,

Código:

// killprocess
function KillTask(ExeFileName: string): Integer;
const
  PROCESS_TERMINATE = $0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
      UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
      UpperCase(ExeFileName))) then
      Result := Integer(TerminateProcess(
                        OpenProcess(PROCESS_TERMINATE,
                                    BOOL(0),
                                    FProcessEntry32.th32ProcessID),
                                    0));
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
end;
  // processos
function isProcessRunning(exeFileName: string): Boolean;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  Result := False;
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
      UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
      UpperCase(ExeFileName))) then
    begin
      Result := True;
    end;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;
 /// pegar janela
Procedure PegarHandle(Titulo:String);
Begin
NomeJanela := FindWindow(nil, pChar (Titulo));
If NomeJanela <= 0 Then
Showmessage('Inicie o Point Blank Primeiro');
end;

end;

Crie um Timer , 1 List Box (Deixe invisível ela , por preferência sua)
e no timer deixe enabled false , coloque o codigo

Código:

var X: Thandle;
var Y: ProcessEntry32;
var C: boolean;
var I: Integer;
begin
Button2.Enabled:= True;
listbox1.Clear;
Y.th32ProcessID:=9;
Y.dwSize:=sizeof(Y);
I:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
X:=I;
if I=-1 then Showmessage('Something went wrong! I cant get a process list!') else
begin
I:=0;
C:=Process32first(X,Y);
if C=true then
begin

pro[I]:=Y.th32ProcessID;
listbox1.Items.Add(IntToStr(Y.th32ProcessID)+' - '+Y.szExeFile);

repeat
inc(I);
C:=Process32next(X,Y);
if C=true then
  begin
    pro[I]:=Y.Th32ProcessID;
    Listbox1.Items.Add(IntToStr(Y.th32ProcessID)+' - '+Y.szExeFile);
  end;
until C=false;

end;

closehandle(x)


end;
end;


Adicione um botão , e coloque o caption : Iniciar Monitoramento
e coloque

Código:

if isProcessRunning('o nome do launcher do jogo que qser') then
  begin
Timer1.Enabled:= True;
end
else
begin
ShowMessage ('Inicie o PBLauncher');
end;


Crie outro botão , o caption coloca : parar monitoramento .
ai coloca o codigo

Código:

begin
  if isProcessRunning('o launcher do seu jogo.exe') then
  begin
  ShowMessage ('Se o Launcher está sendo executado entao como quer parar o monitoramento ?');
  ListBox1.Items.Add ('Parou o monitoramento com o Launcher Aberto'); // pra identifica , tipo , se o cara para o monitoramento com o launcher aberto , é pra tentar burla ne ? então , isso ja vai la pro arquivo que vai ser salvo.

end
else
begin
 
Timer1.Enabled:= False;
Form2.Show;
end;
end;

Crie um f 0 r m ...
(Form2)
Crie um l.a.be.l , a caption voce pode colocar : Nome Do Arquivo
1 Ed.it na frente
e 1 but.ton
No button , coloque

Código:

KillTask('o processo do seu jogo , pq tipo , se ele ta salvando , entao vai killa o jogo , pq se ele abri soh uns segundos e dps fecha ? entao e melhor tipo , dps de ele joga , ele da ok ai ja fecha o jogo , pq ai n tem como burla');
KillTask('XTrap.xt ( pra ajuda o kill ne ;D');
Form1.Listbox1.Items.SaveToFile (Edit1.Text + '.otipodearquivoquevocequiser');
Form2.Close;
Form1.Show;
end;

ah , cria tb um Timer , coloque enabled true , intervalo coloque o minimo possivel , e coloca

Código:

KillTask('Slach Detective 3.0.exe');
KillTask('CLB Injector V1.3.exe');
KillTask('Perx.Exe');
KillTask('PointBad.exe');
KillTask('Slach Detective 4.0.exe');
KillTask('PBInject 2.0.exe');
KillTask('cheatengine-i386.exe');
KillTask('Inject.exe');
KillTask('dll.exe');
KillTask('aimbot.exe');
KillTask('CB Trainer(Free) V-10.0 By Mallesco.exe');
KillTask('BR-PBD3D.exe');

ai eu coloquei uns exemplos de cheats para Point Blank , no caso ae voce coloca os cheaters do jogo que tu quise , ai voce vai faz uma lista de nome ae pro usuario n poder usar hack D;
CREDITOS : TKOR ( NAO PENSA EM POSTA EM OUTRO FORUM E TIRA OS CREDITOS , TODOS TOPICOS QUE EU CRIEI AQUI EU VI LA NA CB E AINDA TIRARAM O MEU CREDITO )