[Free] Spammer tool

[Zettabytes*]

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:


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

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.



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

[adistoe]

Kleinere Release's gehören eigentlich hier rein:

Ansonsten für den Anfang ganz gut.

[Zettabytes*]

Originally Posted by adistoe

Kleinere Release's gehören eigentlich hier rein:

Ansonsten für den Anfang ganz gut.

Danke. Eine PN mit dem Verweis hätte ausgereicht.

[Requi]

Ich empfehle dir für simple MessageBoxen, nich MsgBox sondern MessageBox.Show zu nutzen

[Shiisha]

Cool

[tolio]

Originally Posted by Requi

Ich empfehle dir für simple MessageBoxen, nich MsgBox sondern MessageBox.Show zu nutzen

Hast du dafür auch eine begründung?

call valuetype [Microsoft.VisualBasic]Microsoft.VisualBasic.MsgBoxResult [Microsoft.VisualBasic]Microsoft.VisualBasic.Interaction::MsgBox(object, valuetype [Microsoft.VisualBasic]Microsoft.VisualBasic.MsgBoxStyle, object)
call valuetype [System.Windows.Forms]System.Windows.Forms.DialogResult [System.Windows.Forms]System.Windows.Forms.MessageBox::Show(string)

Meiner Meinung nach ist es egal, msgbox ruft wie man am code sieht halt eine vb funktion auf und messagebox eine allgemeine .net funktion

[Zettabytes*]

Werde mal nachschauen wo der Unterschied liegt danke