[Tutorial com Download] Fazendo um Flooder

[kalehelik 0]

Fazendo um Flooder

Programa utilizado: Delphi 7

Créditos: KaleHelik

 

Primeiramente crie uma nova aplicação, logo em seguida adicione:

* 1 Edit (Aba Standard)

* 4 CheckBox (Aba Standard)

* 2 Button (Aba Standard)

* 1 Timer (Aba System)

 

 

Declare nas "Uses":

ClipBrd, XPMan, StdCtrls, ExtCtrls

 

Irá ficar assim:

uses

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

Dialogs, ClipBrd, XPMan, StdCtrls, ExtCtrls;

 

Timer

 

Mude a propriedade Enabled do Timer para False.

 

Dê dois cliques no Timer e adicione o seguinte code:

Clipboard.AsText :=edit1.Text ;

keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);

keybd_event(86, 0, 0, 0);

keybd_event(VK_CONTROL, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

keybd_event(VK_RETURN, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);

 

CheckBox

 

Mude o caption das CheckBox para os seguintes:

* 1 Segundo

* 2 Segundos

* Meio Segundo

* 1 Centésimo de Segundo

 

Na CheckBox "1 segundo" adicione o seguinte code:

Timer1.Interval:=1000;

Checkbox2.Enabled:=false;

Checkbox3.Enabled:=false;

Checkbox4.Enabled:=false;

 

Na CheckBox "2 segundos" adicione o seguinte code:

Timer1.Interval:=2000;

Checkbox1.Enabled:=false;

Checkbox3.Enabled:=false;

Checkbox4.Enabled:=false;

 

Na CheckBox "meio segundo" adicione o seguinte code:

Timer1.Interval:=500;

Checkbox1.Enabled:=false;

Checkbox2.Enabled:=false;

Checkbox4.Enabled:=false;

 

Na CheckBox "1 centésimo de segundo" adicione o seguinte code:

Timer1.Interval:=1;

Checkbox1.Enabled:=false;

Checkbox2.Enabled:=false;

Checkbox3.Enabled:=false;

 

Button

 

Mude o caption dos Buttons para:

* Ativar

* Desativar

 

No Button "Ativar" adicione o seguinte code:

Timer1.Enabled:=true;

 

No Button "Desativar" adicione o seguinte code:

Timer1.Enabled:=false;

Checkbox1.Checked:=false;

Checkbox2.Checked:=false;

Checkbox3.Checked:=false;

Checkbox4.Checked:=false;

 

Agora é so salvar e compilar.

 

Observação final:

Quando você estiver usando o flooder, e clicar no botão "Desativar", notará que as CheckBox não podem ser clicadas. Para resolver isso é simples.

 

Adicione 1 Button e adicione no Button o seguinte code:

Checkbox1.Enabled:=true;

Checkbox2.Enabled:=true;

Checkbox3.Enabled:=true;

Checkbox4.Enabled:=true;

 

 

Download

Preview:

 

Download:

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

• Entre
• ou
• Cadastre-se

RapidShare

 

Scan:

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

• Entre
• ou
• Cadastre-se

 

Observação: Resultado 2/40, mas notem que somente 2 detectaram.

 

Scan com meu Kaspersky:

[atirador_FN 0]

Cara o tutorial está otimo so tem uma coisinha.

 

Você colocou a seguinte sequencia:

Mude o caption das CheckBox para os seguintes:

* 1 Segundo

* 2 Segundos

* Meio Segundo

* 1 Centésimo de Segundo

 

e depois colocou os codigos na ordem, mas voce inverteu :

*Meio Segundo está em 3º lugar e o codigo que voce colocou nele é o seguinte:

Timer1.Interval:=500;

Checkbox1.Enabled:=false;

Checkbox2.Enabled:=false;

Checkbox3.Enabled:=false;

 

e depois

 

* 1 Centesimo está em 4 lugar e vc colocou o seguinte codigo:

Timer1.Interval:=1;

Checkbox1.Enabled:=false;

Checkbox2.Enabled:=false;

Checkbox4.Enabled:=false;

 

ou seje o Checkbox 3 esta checando ele mesmo e não o Checkbox 4 , ai quando você clica no checkbox4 ele marca mas não desativa 3, resumindo voce so inverteu o 4 com o 3 :D.

 

Espero ter ajudado

*********Iniciante em Delphi*********Comecei com Delphi faz 2 Dias************

[[F]غrnandido™~ 0]

mt bom vo usa aki na WC ^^

bricaderinha MODS

 

só q vo tenta fase é que num sei quase nada

unica coisa q sei fase é abri o Delhpi :/

e como compila?

[~NaRuToOGaMe~ 0]

ai aqui da erro quando vai executar

sabe porque ?

[xxnalimxx 0]

naruto post uma screen shot do codigo que esta dando o erro e sonbre o da img do capitao america depois de fazer o projeto va em:

file > save all ...> cria uma pasta e salva o project e a unit

executa o programa

depois de ctrl+f9

va na pasta do seu projeto que averá um .exe la e só iso

 

cara uma dica explica melhor quando for digitar da pra entender nada que voce ta perguntando.

[Leonardodag 2]

aqui, ao inves de fazer o checkbox1.enabled:=false, podia fazer checkbox1.checked:=false, ai nao vai precisar do botao liberar tempo.

 

@ edit

acho q checkbox1.checked:=false na funciona se nao funcionar tenta checkbox1.checked

[ricardolg36 0]

Muito bem elaborado e explicado o programa e tutorial !!!

[kalehelik 0]

@Atirador_FN

Realmente, cometi 1 erro na hora de postar

ja corrigi o erro, muito obrigado

 

@Leonardodag

Acho que vc fez confusão, o botão desativar já tem o code que você falou, o botão Liberar tempo serve para que possa usar o flooder denovo depois que usar o botão desativar, já que ao marcar uma CheckBox nao se pode mais marcar outras, mesmo se desmarcar a marcada.

[Leonardodag 2]

nao mas se voce substituir o checkbox.ENABLED:=false por checbox.CHECKED:=false ele vai desmarcar as outras checkboxes, ao inves de desativar elas. entendeu? enabled significa ligado, e checked marcado.

 

entao a checkbox1 (a de 1 segundo) ficaria assim:

 

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

• Entre
• ou
• Cadastre-se

 

 

e sobre o botao desativar ter o codigo, para que desmarcar uma caixa desativada? se vc botar nas checkboxes ai vc nao vai precisar do liberar tempo, pois as outras nao vao ter sido desativadas.

[matheusguerra 3]

pera ae vo responder o erro:

 

Esse é o codigo do Checkbox1 ke ele posto:

 

Timer1.Interval:=1000;

Checkbox1.checked:=false;

Checkbox3.checked:=false;

Checkbox4.checked:=false;

 

O Checkbox1 deveria ser 2 ao inves de 1

 

EDIT

 

ou seja o codigo ficaria:

 

Timer1.Interval:=1000;

Checkbox2.checked:=false;

Checkbox3.checked:=false;

Checkbox4.checked:=false;

[Surfistinha£ 20]

Hum Parabens um otimo conteudo analizei tudo e o resultado foi otimo.

 

Continue assim