Simple Windows Spammer

Publié le 31 janvier 2010 par P1l0u

Je vous présente un simple spammer que j'ai codé il est trés simple et trés facile à utiliser

Principe : Spammer c'est à dire diffuser en boucle du texte dans n'importe quel type de fenêtre ou conversation ou autre.

Screen :

Comment faire ?

Prés requis :

1 textbox pour le texte à spammer , 2 bouton et 1 bAckgroundWorker

Nommez le bouton1 : Start
                  le bouton2 : Sortir

Ensuite Cliquer sur votre form et copié tout ceci :

Public Class Form1
    Private mPrevPos As New Point
    Private Sub moveme(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        Dim delta As New Size(e.X - mPrevPos.X, e.Y - mPrevPos.Y)
        If (e.Button = MouseButtons.Left) Then
            Me.Location += delta
            mPrevPos = e.Location - delta
        Else
            mPrevPos = e.Location
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text.Length > 1 = True Then
            TextBox1.Enabled = False
            If BackgroundWorker1.IsBusy = False Then
                MessageBox.Show("Vous avez 5 sec pour selectionner l'endroit à spammer !", "!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                Threading.Thread.Sleep(5000)
                Button1.Text = "Stop"
                BackgroundWorker1.RunWorkerAsync()
            Else : BackgroundWorker1.CancelAsync()
                Button1.Text = "Start"
                TextBox1.Enabled = True
            End If
        Else : MessageBox.Show("Entrez un texte ", "Erreur de saisie", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub
    Sub work() Handles BackgroundWorker1.DoWork
        While True
            If BackgroundWorker1.CancellationPending = True Then Exit Sub
            SendKeys.SendWait(TextBox1.Text & "{Enter}")
            Threading.Thread.Sleep(100)
        End While
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If BackgroundWorker1.IsBusy = True Then BackgroundWorker1.CancelAsync()
        Me.Close()
    End Sub
End Class

Voila ensuite exécutez et votre spammer est prés !
Libre à vous de le customizer .

Merci.

Cordialement P1l0u