Bom , primeiramente vcs devem estar achando meio "absurdo" eu pedir ajuda num desenvolvimento de anti hack.
Eu gosto de HACKER , mas n gosto de CRACKER , o que acho que seja diferente .
Vamos ao que importa :
Eu estou tentando fazer um Anti Hack não oficial para o jogo Point Blank , porem eu estou com um problema . Desenvolvi uma parte dele , em colaboração de um amigo .
Por enquanto fizemos isto :
e
Porem , depois disto , eu não sei mais o que fazer.
Se alguem puder me ajudar , eu agradeceria mto
Obg
Eu gosto de HACKER , mas n gosto de CRACKER , o que acho que seja diferente .
Vamos ao que importa :
Eu estou tentando fazer um Anti Hack não oficial para o jogo Point Blank , porem eu estou com um problema . Desenvolvi uma parte dele , em colaboração de um amigo .
Por enquanto fizemos isto :
Código:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ActnList, ExtActns, ExtCtrls, StdCtrls, TrayIcon; type TForm1 = class(TForm) Timer1: TTimer; ActionList1: TActionList; FileRun1: TFileRun; Timer2: TTimer; FileRun2: TFileRun; Tray: TTrayIcon; Timer3: TTimer; procedure Timer1Timer(Sender: TObject); procedure Timer2Timer(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormActivate(Sender: TObject); procedure FormUnDock(Sender: TObject; Client: TControl; NewTarget: TWinControl; var Allow: Boolean); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Timer3Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); begin FileRun1.Execute; end; procedure TForm1.Timer2Timer(Sender: TObject); begin FileRun2.Execute; end; procedure TForm1.FormCreate(Sender: TObject); begin winExec('PointBlank.exe', sw_shownormal); end; procedure TForm1.FormShow(Sender: TObject); begin Application.ShowMainForm := False; end; procedure TForm1.FormActivate(Sender: TObject); begin BorderStyle:=bsNone; end; procedure TForm1.FormUnDock(Sender: TObject; Client: TControl; NewTarget: TWinControl; var Allow: Boolean); begin FormStyle:=fsStayOnTop; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=caNone; end; procedure TForm1.Timer3Timer(Sender: TObject); begin if not IsWindow(Handle) then Close; end; end.
e
Código:
program Project1; uses Forms, Unit1 in 'AntiHack.pas' {Form1}; {$R *.res} begin Application.Initialize; Application.Title := 'gProtectRV'; Application.ShowMainForm := False; Application.CreateForm(TForm1, Form1); Application.Run; end.
Porem , depois disto , eu não sei mais o que fazer.
Se alguem puder me ajudar , eu agradeceria mto
Obg
Comment