[Tutorial] Criando um Macro Flooder.

[~ Heatlex. 11]

Criando um Macro Flooder

 

Passo a Passo feito pelo Superfun do ragezone para criar um Macro Flooder simples:

 

1. Abra o Visual Basic 6, e escolher um projeto EXE padrão.

 

2. Adicionar um formulário e um módulo para o programa.

 

3. Adicionar controles ao formulário, de modo que parece semelhante à imagem abaixo.

 

4. Nome dos controles no formulário usando a imagem abaixo e defina o intervalo de timer para 1.

 

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

• Entre
• ou
• Cadastre-se

 

5. Você pode adicionar legendas aos controles. Você pode usar a imagem ou você pode criar seus próprios.

 

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

• Entre
• ou
• Cadastre-se

 

6. Adicione este código para o formulário.

 

O temporizador utiliza a função no módulo como um processo. Quando uma mudança de texto, o programa verifica para ver se o texto está em branco e se desativa inundações porque nada iria acontecer e há nenhum ponto de alagamento em branco.

[left]PrivateSubTimer1_Timer()

DoKeys

EndSub


PrivateSubText1_Change()

IfText1.Text=""Then

Check1.Value=0

Else

Check1.Value=1

EndIf

EndSub


PrivateSubText2_Change()

IfText2.Text=""Then

Check2.Value=0

Else

Check2.Value=1

EndIf

EndSub


PrivateSubText3_Change()

IfText3.Text=""Then

Check3.Value=0

Else

Check3.Value=1

EndIf

EndSub


PrivateSubText4_Change()

IfText3.Text=""Then

Check3.Value=0

Else

Check3.Value=1

EndIf

EndSub


PrivateSubText5_Change()

IfText3.Text=""Then

Check3.Value=0

Else

Check3.Value=1

EndIf

EndSub[/left]

7. Adicione este código para o módulo.

Primeiro, a função é declarada para obter o estado fundamental. Em seguida é a função dokeys, que verifica cada chave se foi pressionado, e se tiver, então ele irá inundar o texto digitado na caixa de texto. Se a caixa de entrada está marcada, em seguida, a tecla Enter também será enviada.

Code:

[left]PublicDeclareFunctionGetAsyncKeyStateLib"user32"(ByVal vKey AsLong)AsInteger


PublicSubDoKeys()


IfGetAsyncKeyState(vbKeyF1)AndMacroFlood.Check1.Value=1Then

SendKeysMacroFlood.Text1.Text

IfMacroFlood.Check6.Value=1Then

SendKeys"{enter**"

endq1:

IfGetAsyncKeyState(vbKeyF1)Then

GoTo endq1

EndIf

EndIf

EndIf


IfGetAsyncKeyState(vbKeyF2)AndMacroFlood.Check2.Value=1Then

SendKeysMacroFlood.Text2.Text

IfMacro.Check7.Value=1Then

SendKeys"{enter**"

endq2:

IfGetAsyncKeyState(vbKeyF2)Then

GoTo endq2

EndIf

EndIf

EndIf


IfGetAsyncKeyState(vbKeyF3)AndMacroFlood.Check3.Value=1Then

SendKeysMacroFlood.Text3.Text

IfMacro.Check8.Value=1Then

SendKeys"{enter**"

endq3:

IfGetAsyncKeyState(vbKeyF3)Then

GoTo endq3

EndIf

EndIf

EndIf


IfGetAsyncKeyState(vbKeyF4)AndMacroFlood.Check4.Value=1Then

SendKeysMacroFlood.Text4.Text

IfMacroFlood.Check9.Value=1Then

SendKeys"{enter**"

endq4:

IfGetAsyncKeyState(vbKeyF4)Then

GoTo endq4

EndIf

EndIf

EndIf


IfGetAsyncKeyState(vbKeyF5)AndMacroFlood.Check5.Value=1Then

SendKeysMacroFlood.Text5.Text

IfMacroFlood.Check10.Value=1Then

SendKeys"{enter**"

endq5:

IfGetAsyncKeyState(vbKeyF5)Then

GoTo endq5

EndIf

EndIf

EndIf

EndSub[/left]

 

 

Créditos: Superfun, boom123 e MauricioFlash

Tradução: Google Translate