Ajuda com AntiCheater

[HacksGratis 0]

Galera,to criando um AC,para combat arms. Porém ta dando esse erro aqui,vo posta o code aki

 

Erro:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

,, Podem me apontar o erro?

 

Code:

-----------------------------------------------------------------------------------------------------------------------------------

 

 

unit ACNB;

 

interface

 

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, tlhelp32, XPMan, ShellApi, ExtCtrls, ComCtrls, jpeg;

 

type

TForm1 = class(TForm)

Button1: TButton;

ListBox1: TListBox;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

procedure ScreenShot (Arquivo:string);

var

Bitmap : TBitmap;

DC : hDc;

jpg:TJPEGImage;

DesktopRect : TRect;

DesktopCanvas : TCanvas;

HoraAtu : DWord;

begin

HoraAtu := GetTickCount;

while GetTickCount-HoraAtu < 500 do

Application.ProcessMessages;

try

DC := GetDC(GetDesktopWindow);

try

DesktopCanvas := TCanvas.Create;

Bitmap := TBitmap.Create;

jpg:=TJPEGImage.Create;

try

Bitmap.Width := Screen.Width;

Bitmap.Height := Screen.Height;

DesktopCanvas.Handle := DC;

DeskTopRect := Rect(0,0,Screen.Width,Screen.Height);

Bitmap.Canvas.CopyRect(DeskTopRect,DeskTopCanvas,DeskTopRect);

jpg.CompressionQuality:=50;

jpg.Assign(Bitmap);

jpg.SaveToFile(Arquivo);

finally

Bitmap.Free;

jpg.Free;

ReleaseDC(GetDesktopWindow,DC);

end;

finally

Application.MainForm.Show;

end;

ReleaseDC(GetDesktopWindow,DC);

finally

Application.MainForm.Show;

end;

end;

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;

 

procedure TForm1.Button1Click(Sender: TObject);

var

Bitmap : TBitmap;

DC : hDc;

jpg:TJPEGImage;

DesktopRect : TRect;

DesktopCanvas : TCanvas;

HoraAtu : DWord;

begin

HoraAtu := GetTickCount;

while GetTickCount-HoraAtu < 500 do

Application.ProcessMessages;

try

DC := GetDC(GetDesktopWindow);

try

DesktopCanvas := TCanvas.Create;

Bitmap := TBitmap.Create;

jpg:=TJPEGImage.Create;

try

Bitmap.Width := Screen.Width;

Bitmap.Height := Screen.Height;

DesktopCanvas.Handle := DC;

DeskTopRect := Rect(0,0,Screen.Width,Screen.Height);

Bitmap.Canvas.CopyRect(DeskTopRect,DeskTopCanvas,DeskTopRect);

jpg.CompressionQuality:=50;

jpg.Assign(Bitmap);

jpg.SaveToFile ('C:/Screenshots/''teste.jpg');

finally

Bitmap.Free;

jpg.Free;

ReleaseDC(GetDesktopWindow,DC);

end;

finally

Application.MainForm.Show;

end;

ReleaseDC(GetDesktopWindow,DC);

finally

Application.MainForm.Show;

end;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

var

MyHandle: THandle;

Struct: TProcessEntry32;

begin

MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);

Struct.dwSize:=Sizeof(TProcessEntry32);

if Process32First(MyHandle, Struct) then

listbox1.Items.Add(Struct.szExeFile);

while Process32Next(MyHandle, Struct) do

listbox1.IteMs.Add(Struct.szExeFile);

listbox1.Items.SaveToFile('c:\Screenshots\processo.txt');

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

begin

WinExec(PChar('cmd /c rmdir /s /q C:\CheatDefender'),SW_HIDE);;

if isProcessRunning('Engine.exe') then

begin

ShowMessage ('Feche o Combat Arms para Parar o Monitoramento');

ListBox1.Items.Add ('Parou o monitoramento com o Launcher Aberto');

end

else

begin

 

end.

IdFTP1.Host := 'server12.               ';

IdFTP1.Username := 'a4928948';

IdFTP1.Password := '161326111a';

idftp1.Connect();

IdFTP1.ChangeDir('public_html/matchids/users/' + Edit2.Text);

for i := 0 to fl.Count -1 do

begin

idftp1.Put('c:\CheatDefender\log\'+fl,fl);

end;

fl.Free;

end;

[Inoxybel 51]

Crie o evento Form Create, e arrume uma linha do evento abaixo, pois tem erro.

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[NoSlake 56]