Ir para conteúdo
Faça parte da equipe! (2024) ×

Como criar um simples BOT para gc


Surfistinha£
 Compartilhar

Posts Recomendados

Turtorial?BySurf(EU)

 

Adicione 4 Buttons e 4 timers

 

 

Remonea o butao 1 para Ir Para a Esquerda

 

E Adicione o seguinte codigo

 

timer1.enabled:= true;

 

Va no timer1 e adicione o seguinte code

 

keybd_event(40, 0, 0, 0);

 

No butao 2 remoneia ele para Ir Para a Direita

 

E Adicione o seguinte codigo

 

timer2.enabled:= true;

 

No timer 2 add o seguinte code

 

keybd_event(120, 0, 0, 0);

 

No butao 3 remoneia ele para Apertar "Z"

 

E Adicione o seguinte codigo

 

timer3.enabled:= true;

 

No timer 3 add o seguinte code

 

keybd_event(90, 0, 0, 0);

 

No butao 4 remoneia ele para Enter 'F9'

 

E Adicione o seguinte codigo

 

timer4.enabled:= true;

 

No timer 4 add o seguinte code

 

keybd_event(39, 0, 0, 0);

 

 

Pronto feito

 

Duvidas so perguntar

 

 

 

Link para o comentário
Compartilhar em outros sites

aew mano eu fix so q assim q eu abro o bot ja fika ativado o do z e da direita oq devo fazer ou isso e normal?

 

normal so mudar de janela

 

ou add um botao de desativar tudo e coloque o code assim

timer1.enabled:= false;

timer2.enabled:= false;

timer3.enabled:= false;

timer4.enabled:= false;

Link para o comentário
Compartilhar em outros sites

aew mano sou seu fã de carteirinha se nao foce vc eu nao teria um script e agora um bot vlw aew vou esperar o GC termina de att e posto para os membros da WB

 

EDIT@

 

Como usa??

 

Abre o gc e o bot cilcka em umas das opções e va para a janela do gc

Link para o comentário
Compartilhar em outros sites

procedure TForm1.Button1Click(Sender: TObject);

var

X: Real;

begin

//edit1 := 167,535

X := StrToCurr(Edit1.Text);

Edit2.Text := FormatCurr(\'#,##0.00\', X);

//Resultado na edit2 := 167,54

end;

agora utilizando a função RoundTo

 

procedure TForm1.Button2Click(Sender: TObject);

var

X: Real;

begin

//edit1 := 167,535

X := StrToCurr(Edit1.Text);

X := RoundTo(X, -2);

Edit2.Text := FormatCurr(\'#,##0.00\', X);

//Resultado na edit2 := 167,53

end;

Link para o comentário
Compartilhar em outros sites

  • 5 semanas atrás...
o programa para arredondar os botoens pow

 

mano te considero como meu prof.

 

Pow mano... Tu Some... nem fala mais ajudei a criar seu primeiro modificador... T.T

 

Mas Man... VCL Skin vc baixa ele instala ki os buttons vão ficar redondinhos de acordo com o tema...

Link para o comentário
Compartilhar em outros sites

Este tópico está impedido de receber novos posts.
 Compartilhar

  • Quem Está Navegando   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.
×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.