Guida Creare un Macro Flooder

[HackPro]

Hey, mi può insegnare come fare una macro flooder ? Certo non è troppo difficile, ma alcune persone mi hanno chiesto come si fà e ho pensato che sarebbe di aiuto creare questa guida. Basta seguire i passi e si avrà successo.

1. Aprire Visual Basic 6, e scegliere un progetto EXE standard.

2. Aggiungere un modulo e un modulo per il programma.

3. Aggiungere i controlli di forma, così simile a l'immagine qui sotto.

4. Nome controlli sul modulo utilizzando l'immagine qui sotto e impostare il timer per l'intervallo 1.

Spoiler

5. È possibile aggiungere didascalie per i controlli. È possibile utilizzare l'immagine o è possibile creare la propria.

Spoiler

6. Aggiungi questo codice al form.


Il timer utilizza la funzione nel modulo di una procedura. Quando un testo si modifica, il programma controlla per vedere se il testo è vuoto e se si disattiva.

Code:

Private Sub Timer1_Timer()
DoKeys
End Sub

Private Sub Text1_Change()
If Text1.Text = "" Then
Check1.Value = 0
Else
Check1.Value = 1
End If
End Sub

Private Sub Text2_Change()
If Text2.Text = "" Then
Check2.Value = 0
Else
Check2.Value = 1
End If
End Sub

Private Sub Text3_Change()
If Text3.Text = "" Then
Check3.Value = 0
Else
Check3.Value = 1
End If
End Sub

Private Sub Text4_Change()
If Text3.Text = "" Then
Check3.Value = 0
Else
Check3.Value = 1
End If
End Sub

Private Sub Text5_Change()
If Text3.Text = "" Then
Check3.Value = 0
Else
Check3.Value = 1
End If
End Sub



7. Aggiungi questo codice per il modulo.

Code:


Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Public Sub DoKeys()

If GetAsyncKeyState(vbKeyF1) And MacroFlood.Check1.Value = 1 Then
SendKeys MacroFlood.Text1.Text
If MacroFlood.Check6.Value = 1 Then
SendKeys "{enter}"
endq1:
If GetAsyncKeyState(vbKeyF1) Then
GoTo endq1
End If
End If
End If

If GetAsyncKeyState(vbKeyF2) And MacroFlood.Check2.Value = 1 Then
SendKeys MacroFlood.Text2.Text
If Macro.Check7.Value = 1 Then
SendKeys "{enter}"
endq2:
If GetAsyncKeyState(vbKeyF2) Then
GoTo endq2
End If
End If
End If

If GetAsyncKeyState(vbKeyF3) And MacroFlood.Check3.Value = 1 Then
SendKeys MacroFlood.Text3.Text
If Macro.Check8.Value = 1 Then
SendKeys "{enter}"
endq3:
If GetAsyncKeyState(vbKeyF3) Then
GoTo endq3
End If
End If
End If

If GetAsyncKeyState(vbKeyF4) And MacroFlood.Check4.Value = 1 Then
SendKeys MacroFlood.Text4.Text
If MacroFlood.Check9.Value = 1 Then
SendKeys "{enter}"
endq4:
If GetAsyncKeyState(vbKeyF4) Then
GoTo endq4
End If
End If
End If

If GetAsyncKeyState(vbKeyF5) And MacroFlood.Check5.Value = 1 Then
SendKeys MacroFlood.Text5.Text
If MacroFlood.Check10.Value = 1 Then
SendKeys "{enter}"
endq5:
If GetAsyncKeyState(vbKeyF5) Then
GoTo endq5
End If
End If
End If
End Sub

Guida finita spero di essere stato chiaro.

Fonte : Ragezone ,Traduzione : By Me

PS: È la mia prima guida siate buoni xD

 

[Reatino]

Carino, almeno non sono le solite source...

 

[juveluca]

interessante...bravo

 

[osi94]

Bravo per averlo postato e averlo tradotto ;)

 

[nickman13]

bravo almeno cambia dagli altri classici...

 

[Arjen]

Si infatti.. Bravo :bravo:

 

[HackPro]

Grazie ;)

 

[AleTeppista]

Dove posso trovare il download di visual basic 6.0?

 

[stefanix2009]

ottima guida grande come sempre xD pat :patpat:

 

[ebello]

brv ^_^

 

[Luca23d]

bravissimo

 

[AlterEgo]

bella guida

 

[loryx95]

ma che bravo e bravo.. ma almeno provatele le cose non vedete che quando lo compilate o salvate da errori di compilazione -.-

1° quando lo si avvia

2° quando lo si crea in .exe

cercate di testarle le cose prima di postarle

 

[Reatino]

bella guida

Non riaprire discussioni vecchie.

ma che bravo e bravo.. ma almeno provatele le cose non vedete che quando lo compilate o salvate da errori di compilazione -.-

Forse perché non hai chiamato il form1 macood? ^^

 

[loryx95]

Non riaprire discussioni vecchie.




Forse perché non hai chiamato il form1 macood? ^^

nu ho provato e da le stesse cose

 

[Pao]

anche a me dà lo stesso errore

 

[UBUNDU]

DOVE POSSO SCARICARE Macro Flooder URGENTE AIUTATEMI

 

[darionox]

1' non aprire topic che hanno l'età della pietra.
2'ce un TOpic apposta per scaricare i flooder.
3' Leggi il regolamento
4'Tieni il link del topic Dei Flooder; Clicca qui!

 

[~Paiи666]

Bella guida. ^^

 

[iTheks]

Bravissimo!