[VB Source] Antimute Spammer (Beta)

[Mafia67]

Ist ein Public Source und braucht ein Upgrade, damit es einwandfrei funktioniert.

Virus Scan:

Download:

Credits:
Coded by Mafia

-----------
How to Download:

 Spoiler

[SiroSkill]

Mafia67 (Mein Icq geht im Moment nicht komme bald on )
Ich mache Bild für dich und schike dir Per PM denn Link.

[__BuRn3R]

Nice, aber wieso stellst du nicht einfach die Source hier rein ?

Greet's, BuRn3R!

[SiroSkill]

Originally Posted by _BuRn3R_

Nice, aber wieso stellst du nicht einfach die Source hier rein ?

Greet's, BuRn3R!

Da muss ich dir Recht geben da es bei denn Meisten leuten auch in Visual Basic Failt wenn man denn Spammer.vbs öffnet, ich habe darauf auch schon mehrere anfragen bekommen wie man das behebt.

[Mafia67]

@_BuRn3R_
Gute Frage, aber ich kann es leider nicht beantworten

@SiroSkill
.vbs ist die Dateiendung von "Visual Basic Script". Die Dateiendung von VB.NET ist .vb
Und man soll nicht "Spammer.vb" öffnen (was es im Projekt nicht mal gibt), sondern die "Spammer.sln" Datei.

[__BuRn3R]

Originally Posted by Mafia67

@_BuRn3R_
Gute Frage, aber ich kann es leider nicht beantworten

Ich glaube ich weiß wieso

[SiroSkill]

Originally Posted by _BuRn3R_

Ich glaube ich weiß wieso

Ja ist bei mir auch so D aber nicht nur bei mir auch bei 4Kumpels ^^

[Mafia67]

Originally Posted by _BuRn3R_

Ich glaube ich weiß wieso

Originally Posted by SiroSkill

Ja ist bei mir auch so D aber nicht nur bei mir auch bei 4Kumpels ^^

Falls ihr denkt, dass es Viren enthält irrt ihr euch Und das mit "kann leider nicht beantworten..." habe ich geschrieben, weil ich selbst nicht genau wusste, wieso ich es so gemacht habe
Der eine Grund dafür ist, dass das Projekt Release/Erstellung bereit ist.
Aber wenn ihr unbedingt darauf besteht, dass ich nur den Source posten soll, hier:

Public Class Form1

    Dim AntiMute As New Random
    Dim NR As String = 0

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Button2.Enabled = True
        NumericUpDown1.Enabled = False

        Timer1.Start()
        Timer1.Interval = NumericUpDown1.Value * 1000
        Timer2.Interval = NumericUpDown1.Value * 1000
    End Sub

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

        Button1.Enabled = True
        Button2.Enabled = False
        NumericUpDown1.Enabled = True

        NR = 0
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        SendKeys.Send(NR & " " & TextBox1.Text & "  " & AntiMute.Next(1, 99).ToString)
        SendKeys.Send("{ENTER}")
        NR = NR + 1

        Timer1.Stop()
        Timer2.Start()
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        SendKeys.Send(NR & " " & TextBox2.Text & "  " & AntiMute.Next(1, 99).ToString)
        SendKeys.Send("{ENTER}")
        NR = NR + 1

        Timer2.Stop()
        Timer1.Start()
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            Me.TopMost = True
        Else
            Me.TopMost = False
        End If
    End Sub
End Class

[__BuRn3R]

Originally Posted by Mafia67

Falls ihr denkt, dass es Viren enthält irrt ihr euch Und das mit "kann leider nicht beantworten..." habe ich geschrieben, weil ich selbst nicht genau wusste, wieso ich es so gemacht habe
Der eine Grund dafür ist, dass das Projekt Release/Erstellung bereit ist.
Aber wenn ihr unbedingt darauf besteht, dass ich nur den Source posten soll, hier:

Public Class Form1

    Dim AntiMute As New Random
    Dim NR As String = 0

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Button2.Enabled = True
        NumericUpDown1.Enabled = False

        Timer1.Start()
        Timer1.Interval = NumericUpDown1.Value * 1000
        Timer2.Interval = NumericUpDown1.Value * 1000
    End Sub

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

        Button1.Enabled = True
        Button2.Enabled = False
        NumericUpDown1.Enabled = True

        NR = 0
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        SendKeys.Send(NR & " " & TextBox1.Text & "  " & AntiMute.Next(1, 99).ToString)
        SendKeys.Send("{ENTER}")
        NR = NR + 1

        Timer1.Stop()
        Timer2.Start()
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        SendKeys.Send(NR & " " & TextBox2.Text & "  " & AntiMute.Next(1, 99).ToString)
        SendKeys.Send("{ENTER}")
        NR = NR + 1

        Timer2.Stop()
        Timer1.Start()
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            Me.TopMost = True
        Else
            Me.TopMost = False
        End If
    End Sub
End Class

Ich dachte du bekommst pro Download, Geld.

[SiroSkill]

Originally Posted by _BuRn3R_

Ich dachte du bekommst pro Download, Geld.

Hä und lass ihn doch, damit macht er halt Geld ist doch gut oder nicht ?.?

[__BuRn3R]

Originally Posted by SiroSkill

Hä und lass ihn doch, damit macht er halt Geld ist doch gut oder nicht ?.?

LoL, ich lasse ihn doch. Wie ihr es immer missversteht.

[SiroSkill]

Originally Posted by _BuRn3R_

LoL, ich lasse ihn doch. Wie ihr es immer missversteht.

Aber das geht auf denn Nerv mit diesen Sprüchen.

[daniking1]

Bei mir schreibt er in den WR chat nicht. Also in der Lobby.