- 3 Febbraio 2012
- 294
- 0
- Miglior risposta
- 0
Ciao a tutti, stamane essendo molto annoiato ho deciso di fare una guida su come creare un flooder in Visual Basic 10.
Molti di voi gia sanno come creare un flooder, ma volevo fare una guida SuperCompleta. In questa guida farò vedere, molto semplificatamente, come aggiungere 3 velocità(intervalli) già preimpostate e un intervallo che possiamo inserire noi a nostro piacimento. Detto questo, iniziamo ^^.
NB: Per chi è alle primissime armi, vi invito a seguire questi tutorial in quanto sono MOLTO ben fatti ->
Per prima cosa apriamo Visual Basic 10 e scegliamo 'Applicazione Windows Form'->
ci uscirà la classica finestrella Form1 e andiamole a cambiare il nome in Flooder.->
Subito dopo, creiamo 2 bottoni, 'Start' e 'Stop' (Button1,Button2)->
in seguito inseriamo 2 TextBox sopra i due bottoni
Subito dopo inseriamo due Label e le mettiamo a sinistra di TextBox1 e TextBox2 e cambiamo i nomi in 'Testo' e 'Intervallo'->
Ora andate nella casella degli strumenti e trascinate 2 Timer sulla finestrella 'Form1' che abbiamo chiamato in precedenza 'Flooder'(i timer spunteranno in basso)->
Adesso passiamo ai codici, Doppio clic su Button1(Start) e inseriamo il seguente codici ->•Timer1.enabled = True
Doppio clic su Button2(Stop) ->
•Timer1.enabled = False
•Timer2.enabled = False
Doppio clic su Timer1 (si trova in basso) ->
•Timer2.enabled = True
•Timer1.interval = TextBox1.Text
•Timer2.interval = TextBox1.Text
Doppio clic su Timer2 ->
•Sendkeys.Send (Textbox2.Text)
•SendKeys.Send ("{Enter}")
Ok, il nostro primo Flooder con l'intervallo a nostra scelta è fatto, ora passiamo a quello con 3 velocità preimpostate.
Posizionate altri 1 Button, 3 RadioButton, e un altri 3 Timer e cambiate il nome di Button in 'Stop' ed i 3 Radio Button in 'Lento', 'Normale', 'Veloce' ->
Ora passiamo ai codici: Doppio click su RadioButton1 e scrivete->•Timer3.enabled = True
Doppio clic su RadioButton2 e scrivere->
•Timer3.enabled = True
•Timer4.enabled = True
•Timer5.enabled = True
Doppio clic su RadioButton3 e scrivete->
•Timer3.Enabled = True
•Timer4.Enabled = True
•Timer5.Enabled = True
Doppio clic su Button3->
•Timer3.Enabled = False
•Timer4.Enabled = False
•Timer5.Enabled = False
Doppio clic su Timer3->
•Timer1.Interval = 300
•SendKeys.Send(TextBox3.Text)
•SendKeys.Send("{ENTER}")
Doppio clic su Timer4->
•Timer1.Interval = 150
•SendKeys.Send(TextBox3.Text)
•SendKeys.Send("{ENTER}")
Doppio clic su Timer5->
•Timer1.Interval = 5
•SendKeys.Send(TextBox3.Text)
•SendKeys.Send("{ENTER}")
Ok, finalmente abbiamo finito ^^, tutti i codici in generale sono questi
Spero che questa guida vi sia stata utile, soprattutto ai meno esperti! Non guardate la grafica del programma :-D, in quanto sono una vera schiappa in estetica ^^.
Flooder finito -->
MAGGIORI INFORMAZIONI: Spiegazione delle istruzioni(codici)
Molti di voi gia sanno come creare un flooder, ma volevo fare una guida SuperCompleta. In questa guida farò vedere, molto semplificatamente, come aggiungere 3 velocità(intervalli) già preimpostate e un intervallo che possiamo inserire noi a nostro piacimento. Detto questo, iniziamo ^^.
NB: Per chi è alle primissime armi, vi invito a seguire questi tutorial in quanto sono MOLTO ben fatti ->
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
Per prima cosa apriamo Visual Basic 10 e scegliamo 'Applicazione Windows Form'->
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
•Timer1.enabled = False
•Timer2.enabled = False
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
•Timer2.enabled = True
•Timer1.interval = TextBox1.Text
•Timer2.interval = TextBox1.Text
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
•Sendkeys.Send (Textbox2.Text)
•SendKeys.Send ("{Enter}")
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
Posizionate altri 1 Button, 3 RadioButton, e un altri 3 Timer e cambiate il nome di Button in 'Stop' ed i 3 Radio Button in 'Lento', 'Normale', 'Veloce' ->
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
Doppio clic su RadioButton2 e scrivere->
•Timer3.enabled = True
•Timer4.enabled = True
•Timer5.enabled = True
Doppio clic su RadioButton3 e scrivete->
•Timer3.Enabled = True
•Timer4.Enabled = True
•Timer5.Enabled = True
Doppio clic su Button3->
•Timer3.Enabled = False
•Timer4.Enabled = False
•Timer5.Enabled = False
Doppio clic su Timer3->
•Timer1.Interval = 300
•SendKeys.Send(TextBox3.Text)
•SendKeys.Send("{ENTER}")
Doppio clic su Timer4->
•Timer1.Interval = 150
•SendKeys.Send(TextBox3.Text)
•SendKeys.Send("{ENTER}")
Doppio clic su Timer5->
•Timer1.Interval = 5
•SendKeys.Send(TextBox3.Text)
•SendKeys.Send("{ENTER}")
Ok, finalmente abbiamo finito ^^, tutti i codici in generale sono questi
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
Timer2.Enabled = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer2.Enabled = True
Timer1.Interval = TextBox1.Text
Timer2.Interval = TextBox1.Text
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
SendKeys.Send(TextBox2.Text)
SendKeys.Send("{Enter}")
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Timer3.Enabled = True
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
Timer3.Enabled = True
Timer4.Enabled = True
Timer5.Enabled = True
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Timer1.Interval = 300
SendKeys.Send(TextBox3.Text)
SendKeys.Send("{ENTER}")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Timer3.Enabled = False
Timer4.Enabled = False
Timer5.Enabled = False
End Sub
Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
Timer1.Interval = 150
SendKeys.Send(TextBox3.Text)
SendKeys.Send("{ENTER}")
End Sub
Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
Timer1.Interval = 5
SendKeys.Send(TextBox3.Text)
SendKeys.Send("{ENTER}")
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
Timer3.Enabled = True
Timer4.Enabled = True
Timer5.Enabled = True
End Sub
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
Timer2.Enabled = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer2.Enabled = True
Timer1.Interval = TextBox1.Text
Timer2.Interval = TextBox1.Text
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
SendKeys.Send(TextBox2.Text)
SendKeys.Send("{Enter}")
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Timer3.Enabled = True
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
Timer3.Enabled = True
Timer4.Enabled = True
Timer5.Enabled = True
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Timer1.Interval = 300
SendKeys.Send(TextBox3.Text)
SendKeys.Send("{ENTER}")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Timer3.Enabled = False
Timer4.Enabled = False
Timer5.Enabled = False
End Sub
Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
Timer1.Interval = 150
SendKeys.Send(TextBox3.Text)
SendKeys.Send("{ENTER}")
End Sub
Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
Timer1.Interval = 5
SendKeys.Send(TextBox3.Text)
SendKeys.Send("{ENTER}")
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
Timer3.Enabled = True
Timer4.Enabled = True
Timer5.Enabled = True
End Sub
End Class
Flooder finito -->
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
MAGGIORI INFORMAZIONI: Spiegazione delle istruzioni(codici)
In questo spoiler vi spiego le funzioni delle istruzioni che abbiamo utilizzato per creare questo flooder:
•Button, genera un evento quando lo si clicca.
•TextBox, casella di testo che ci permette di scriverci sopra.
•Timer, componente che genera un evento ad intervalli (definiti dall'utente). L'istruzione Timer1.enabled=True ci dice che il Timer .Enabled (abilitato) è uguale a True (Vero) quindi il Timer sarebbe acceso. Se invece fosse Timer1.Enabled=False sarebbe, Abilitazione del timer = False (falso) quindi sarebbe spento.
•RadioButton, un componente che ci permette di abilitarlo e disattivarlo in un clic, se selezionato genera eventi così come i Button
•SendKeys, è un' istruzione che ci permette di inviare (Send) dal programma un testo o chicchessia. In precedenza lo avevamo programmato cosi: SendKeys.Send(TextBox3.Text) il che indica che deve inviare il testo della textbox (TextBox3.Text) dal programma a dove vogliamo noi.
•Button, genera un evento quando lo si clicca.
•TextBox, casella di testo che ci permette di scriverci sopra.
•Timer, componente che genera un evento ad intervalli (definiti dall'utente). L'istruzione Timer1.enabled=True ci dice che il Timer .Enabled (abilitato) è uguale a True (Vero) quindi il Timer sarebbe acceso. Se invece fosse Timer1.Enabled=False sarebbe, Abilitazione del timer = False (falso) quindi sarebbe spento.
•RadioButton, un componente che ci permette di abilitarlo e disattivarlo in un clic, se selezionato genera eventi così come i Button
•SendKeys, è un' istruzione che ci permette di inviare (Send) dal programma un testo o chicchessia. In precedenza lo avevamo programmato cosi: SendKeys.Send(TextBox3.Text) il che indica che deve inviare il testo della textbox (TextBox3.Text) dal programma a dove vogliamo noi.
Ultima modifica: