[Free] Spammer tool

[Only registered and activated users can see links. Click Here To Register...]

Hallo,

bilde mich gerade in Visual Basic aus.
Habe gedacht so als erstes Projekt, werde
ich mal einen Universellen Spammer erstellen.

Ich habe erst seit gestern mit Visual Basic
angefangen, also seit bitte nicht b�se
das ich sowas Release.

Kann ja sein, das vielleicht irgendjemand
so etwas brauchen kann. :)

Was kann dieses Tool?
Dieses Tool kann einen Belibigen Text den ihr bestimmt
so oft ihr wollt und in einem bestimmten Interval Spammen.

Ihr gebt einfach alles ein wie ihr es haben wollt, dann gehts los. :)

Wie funktioniert das?
Ich erkl�re von oben bis unten.

Textbox: Hier wird der Text eingegeben der zum Spamen benutzt werden soll
Start: Sollte als letztes benutzt werden, denn es startet alles
Close: Schliesst die Applikation
Opacity: K�nnt die Sichtbarkeit �ndern
Settings:
Sleeptime: Die Zeit (in ms) bevor das Spammen beginnt, damit ihr genug Zeit habt um das Fenster anzuklciken. :)
Loop: Bestimmt die Anzahl von Spamms
Intervall: Bestimmt den Abstand zwischen den Texten die gespammt werden

Virus Total:
[Only registered and activated users can see links. Click Here To Register...]

Keine Ahnung warum da Trojaner Steht xD

Wer denkt das ich ein Pro bin und ein Trojaner machen kann,
kann sich ja gerne den SRC-Code anschauen oder selber
Compilen?!

Spoiler

Code:

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Close()
    End Sub

    Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        TextBox1.Text = ""
    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub TextBox2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.Click
        TextBox2.Text = ""
    End Sub

    Private Sub TextBox3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.Click
        TextBox3.Text = ""
    End Sub

    Private Sub TextBox1_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click
        TextBox1.Text = ""
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked Then
            Me.Opacity = 1
            MsgBox("The opacity is successful changed.")
        End If
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked Then
            Me.Opacity = 0.9
            MsgBox("The opacity is successful changed.")
        End If
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        If RadioButton3.Checked Then
            Me.Opacity = 0.5
            MsgBox("The opacity is successful changed.")
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("You have " + TextBox4.Text + " Seconds to select the Textbox where the text goes", MsgBoxStyle.Information)
        Threading.Thread.Sleep(TextBox4.Text)
        Dim i As Integer = 1
        While i < TextBox2.Text
            Threading.Thread.Sleep(TextBox3.Text)
            i = i + 1
            SendKeys.Send(TextBox1.Text)
            SendKeys.Send("{Enter}")
        End While
    End Sub

    Private Sub TextBox4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox4.Click
        TextBox4.Text = ""
    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

    End Sub
End Class

Gerne d�rft ihr mich fertig machen. :)

[Only registered and activated users can see links. Click Here To Register...]

Ist das eigentlich vom Code her Okay?
Gerne auch verbesserungsvorschl�ge, die ich nach 2 Tagen
auch lernen kann.

Gerne w�rde ich auch weitere Projekte anfangen, und w�rde
gerne gute Tutorials sehen, welches auch ein Projekt sein
soll was f�r Anf�nger sein was ich auch verstehe.

Danke :)