[Tutorial] Criando um Flooder. [DELPHI]

[~ Heatlex. 11]

Adicione ao seu Form:

 

1 Timer (Aba System)

2 CheckBox (Aba Standard)

2 Buttons (Aba Standard)

1 Edit (Aba Standard)

1 Label (Aba Standard)

 

 

 

Mude a Caption do Label para "Mensagem para flood" e ponha o edit em baixo do label

 

 

Adicione ClipBrd nas Uses e Mude a Propriedade Enabled do Timer pra "False" e adicione o seguinte código:

 

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);

end;

 

 

Mude a Caption do CheckBox 1 para "1 Segundo" e adicione o seguinte código:

 

Timer1.Interval:=1000;

Checkbox2.Enabled:=false;

 

Mude a Caption do CheckBox 2 para "1 Centésimo por Segundo" e adicione o seguinte código:

 

Timer1.Interval:=1;

checkbox1.Enabled:=false;

 

Mude a Caption do Button 1 para "Ativar" e aficione o seguinte código:

 

Timer1.Enabled:=true;

 

Mude a Caption do Button 2 para "Desativar" e adicione o seguinte código:

 

Timer1.Enabled:=false;

 

Creditos : Element e Hurley