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 :
Double cliquez sur le boutton start et mettez :
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
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 :
Il envoie donc se qu'il y a ecrit dans le TextboxSendKeys.Send(Textbox1.Text)
Double cliquez sur le boutton start et mettez :
Double cliquez sur le bouton stop et mettez :Timer1.Start
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
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