[Tutorial] Spammer

    Publicités

Users Who Are Viewing This Thread (Total: 0, Members: 0, Guests: 0)

Jardiland

Membre Banni
Jun 23, 2011
12
0
421
Salut !

Aujourd'hui je vais vous expliquer comment faire un spammer.

Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!

Donc vous faites un WindowsForm Et vous y mettez 2 button (Start & Stop)
Un Textbox Multiline(Petite fleche du textbox)
Et un Timer

en premier vous double cliquez sur le timer et vous mettez :
SendKeys.Send(Textbox1.Text)
Il envoie donc se qu'il y a ecrit dans le Textbox

Double cliquez sur le boutton start et mettez :
Timer1.Start
Double cliquez sur le bouton stop et mettez :
Timer1.Stop

Vous pouvez ensuite rajouter une textbox pour changer l'interval de spam. mais sa vous faites comme vous voulez :)
Code finale avec des améliorations :
Je m'étais un peu compliqué la vie a ce moment la x) Mais vous devriez comprendre :désolé:
Public Class Form1


Dim Spam As String
Dim Nombre As String
Dim Wait As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer2.Start()
Nombre = 0
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer.Stop()
End Sub

Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick
If Nombre = Txt2.Text Then
Timer.Stop()
Else
On Error Resume Next
SendKeys.Send(Txt1.Text)
On Error Resume Next
SendKeys.Send("{ENTER}")
Nombre = Nombre + 1
End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Txt1.Clear()
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Timer.Start()
Timer2.Stop()
End Sub
End Class
 

Dousuca

Membre actif
Oct 28, 2013
193
6
584
Si tu veux farm tes messages il y a des sections réservés au flood, ça ne sert à rien de déterrer de vieux sujets