[Dúvida]Injetor de Scripts

[Krathos 11]

Ae quem puder me ajudar vou ficar muito agradecido.

 

 

Tipo olha como está meu injetor de scripts

 

Com várias opções de scripts o problema é o seguinte como eu vou embutir o script desejado no injetor para que quando clicar o script desejado seja injetado ou seja ai só ta com as forms quem pode me ajudar?

 

se preferir me add no msn [email protected]!

[bidoow 0]

você quer os codigos para injetar os hacks neh?

 

eu tenho esse do meu auto kill

 

procedure TForm1.Button4Click(Sender: TObject);

var

DirFile,ScriptFile: String;

begin

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+ScriptFile);

DirFile:=Edit1.Text+'\Stage\fight_stg.kom';

ScriptFile:='fight_stg.kom';

if CopyFile(PChar(ScriptFile),PChar(DirFile),false) then

ShowMessage('Arquivo copiado com sucesso')

else

Application.MessageBox('O arquivo não foi copiado!'+#10#13+

'Verifique se as configurações estão corretas.','ERROR!',MB_IConerror);

end

else

begin

ShowMessage('Salve o diretório antes de ativar o script!!!');

end;

end;

 

end.

 

faça as modificações dai !

[Krathos 11]

você quer os codigos para injetar os hacks neh?

 

eu tenho esse do meu auto kill

 

 

 

faça as modificações dai !

 

isso ai eu vi no do surfistinha só que tipow, como vou embutir os scripts no injetor para as outas opções ? :) isso que eu queria saber.

[bidoow 0]

foda eu so iniciante também só sabia do auto-kill! mais espera ai alguem te ajuda manin

 

vlww

[Surfistinha£ 20]

so add outro butao com em outro local tipo

 

procedure TForm1.Button4Click(Sender: TObject);

var

DirFile,ScriptFile: String;

begin

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+ScriptFile);

DirFile:=Edit1.Text+'\Stage\fight_stg.kom';

ScriptFile:='fight_stg.kom';

if CopyFile(PChar(ScriptFile),PChar(DirFile),false) then

ShowMessage('Arquivo copiado com sucesso')

else

Application.MessageBox('O arquivo não foi copiado!'+#10#13+

'Verifique se as configurações estão corretas.','ERROR!',MB_IConerror);

end

else

begin

ShowMessage('Salve o diretório antes de ativar o script!!!');

end;

end;

 

procedure TForm1.Button4Click(Sender: TObject);

var

DirFile,ScriptFile: String;

begin

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+ScriptFile);

DirFile:=Edit1.Text+'\Stage\fight_stg.kom';

ScriptFile:='MalucaPasta\fight_stg.kom';

if CopyFile(PChar(ScriptFile),PChar(DirFile),false) then

ShowMessage('Arquivo copiado com sucesso')

else

Application.MessageBox('O arquivo não foi copiado!'+#10#13+

'Verifique se as configurações estão corretas.','ERROR!',MB_IConerror);

end

else

begin

ShowMessage('Salve o diretório antes de ativar o script!!!');

end;

end;

[Krathos 11]

Ai o delphi vai reconhecer o script diferente tipo o de auto-kill com agarrão em uma pasta diferente e vai copia-lo para o injetor?

 

eu dei run aqui e deu um erro na variavel, se quiser me add pelo msn séria mais fácil xD!

 

to de saida amanha vejo isso vlw mesmo assim!