[HELP]Progama !

[mam2009 0]

Bom Galera , eu estou trabalhando em um hacker para grand chase então , eu queria criar um progama para quando o cara clicar no botão ativar o hacker sozinho !

 

Por favor Ajudem

 

Se possivel me expliquem ou me passem o site

 

 

 

 

Edit@

 

Bom eu to com um auto kill e queria botar um progam

a nele

tipo o cara tá lá e clica ativar hack ai aparece hack ativado com sucesso

[Nyx_d3v1l 0]

Explica melhor isso ai cara, ta totalmente sem sentido.

[Surfistinha£ 25]

Explica melhor que tipo de hack você quer

[darkfenyx3 7]

Bom, não irei explicar como fazer um hack, mas sim o que você pediu, que é colocar em um botão, pois bem:

 

Dê 2 clicks em um button, ou vá no evento OnClick dele e adicione as coisas que você gostaria que ele fizesse ao clicar nele, por exemplo:

 

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

• Entre
• ou
• Cadastre-se

 

Coloquei apenas um ShowMessage, o que quer dizer que toda vez que alguém clicar nio botão ele fará uma ShowMessage dizendo LOL.

[Surfistinha£ 25]

Criando Modificador de script com mas de 1 botao

 

 

1.0 - Adicione os seguintes componetes

 

Button1

Button2

Button3

Button4

Button5

Button6

Button7

Button8

edit1

GroupBox(Opicional)

 

1.1 Primeiro altere a propriedade Enabled do Edit1 para False como mostra a foto abaixo:

1.2 Remonei o Edit1 Para "" C:\Level Up! Games\Grand Chase Season 2 """" :

1.3 Ficará assim :

 

1.4 Agora de 2 cliques no botão "Alterar / Salvar Diretório" e adicione o seguinte código:

 

 

if Edit1.Enabled=False then

Edit1.Enabled:=True

else

Edit1.Enabled:=False;

 

1.5 depois de 2 cliques no botão "Verificar se o diretório existe" e adicione o seguinte código:

 

 

if DirectoryExists(Edit1.Text) then

ShowMessage('Diretório existente!')

else

Application.MessageBox('Diretório do GC não existe!!!','ERROR',MB_IConerror);

 

1.6 Agora de 2 cliques no botão "Executar o Grand Chase"(Pelo RUndict) e adicione o seguinte:

 

 

if DirectoryExists(Edit1.Text) then

WinExec(PChar(Edit1.Text+'\main.exe" __kogstudios_original_service__'),SW_SHOW)

else

Application.MessageBox('Diretório do GC não foi encontrado.','ERROR!',MB_IConerror);

 

1.7 Agora de 2 cliques no botão "Executar o Grand Chase"(Patch) e adicione o seguinte:

 

if DirectoryExists(Edit1.Text) then

WinExec(PChar(Edit1.Text+'\main.exe'),SW_SHOW)

else

Application.MessageBox('Diretório do GC não foi encontrado.','ERROR!',MB_IConerror);

 

1.8 Depois de 2 cliques no botão "Ativar o Novo Script"(Exemplo de AutoKill) e adicione o seguinte código:

 

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;

 

1.9 Crie uma Pasta remoneada """" One Hit """ :

2.0 Coloque na pasta o Script do one hit que no caso e fight_stg.KOM:

 

2.1 Depois de 2 cliques no botão "Ativar o Novo Script"(Exemplo de HP) e adicione o seguinte código:

 

var

DirFile,ScriptFile: String;

begin

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+ScriptFile);

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

ScriptFile:='HP\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;

 

2.2 Crie uma Pasta remoneada """" HP """ Como mostra a imagem abaixo:

 

2.3 Coloque na pasta o Script do HP que no caso e fight_stg.KOM :

 

2.4 Depois de 2 cliques no botão "Ativar o Novo Script"(Exemplo de Falar Palavrao avontade) e adicione o seguinte código:

 

var

DirFile,ScriptFile: String;

begin

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+ScriptFile);

DirFile:=Edit1.Text+'\Stage\total_br.STG';

ScriptFile:='total_br.STG';

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;

 

Depois de 2 cliques no botão "Ativar o Novo Script"(Exemplo de Drop) e adicione o seguinte código:

 

var

DirFile,ScriptFile: String;

begin

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+ScriptFile);

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

ScriptFile:='str_br.stg';

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;

 

2.5 Intendimento Se o script for o mesmo se vc mudar a pasta o local e o code

 

Oq Muda e isso

 

ScriptFile:='fight_stg.kom';

 

ScriptFile:='Local Aonde fica o seu script\fight_stg.kom';

 

2.6 Para o visual melhorar vc pode utilizar o vclskin e o XPManifest :

 

2.7 Pode tbm adicionar um Playe de music :

begin

MediaPlayer1.Close;

if OpenDialog1.Execute then

begin

MediaPlayer1.FileName := OpenDialog1.FileName;

MediaPlayer1.Open;

end;

end;

2.8 Pode tbm adicionar um Calendar:

 

2.9 Entao vc pode inovar e e so isso

 

3.0 Créditos Surfistinha