[VB Source] Antimute Spammer (Beta)

07/18/2012 12:56 Mafia67#1
Ist ein Public Source und braucht ein Upgrade, damit es einwandfrei funktioniert.

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

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

Credits:
Coded by Mafia

-----------
How to Download:
07/18/2012 13:14 SiroSkill#2
Mafia67 (Mein Icq geht im Moment nicht komme bald on :D)
Ich mache Bild für dich und schike dir Per PM denn Link. :D
07/18/2012 13:14 __BuRn3R#3
Nice, aber wieso stellst du nicht einfach die Source hier rein ?

Greet's, BuRn3R!
07/18/2012 13:21 SiroSkill#4
Quote:
Originally Posted by _BuRn3R_ View Post
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.
07/18/2012 13:46 Mafia67#5
@_BuRn3R_
Gute Frage, aber ich kann es leider nicht beantworten :D

@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. ;)
07/18/2012 14:04 __BuRn3R#6
Quote:
Originally Posted by Mafia67 View Post
@_BuRn3R_
Gute Frage, aber ich kann es leider nicht beantworten :D
Ich glaube ich weiß wieso ;)
07/18/2012 20:14 SiroSkill#7
Quote:
Originally Posted by _BuRn3R_ View Post
Ich glaube ich weiß wieso ;)
Ja ist bei mir auch so :DD aber nicht nur bei mir auch bei 4Kumpels ^^
07/18/2012 21:02 Mafia67#8
Quote:
Originally Posted by _BuRn3R_ View Post
Ich glaube ich weiß wieso ;)
Quote:
Originally Posted by SiroSkill View Post
Ja ist bei mir auch so :DD 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 :D
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:
Code:
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
07/18/2012 21:08 __BuRn3R#9
Quote:
Originally Posted by Mafia67 View Post
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 :D
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:
Code:
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.
07/18/2012 21:59 SiroSkill#10
Quote:
Originally Posted by _BuRn3R_ View Post
Ich dachte du bekommst pro Download, Geld.
Hä und lass ihn doch, damit macht er halt Geld ist doch gut oder nicht ?.?
07/19/2012 10:23 __BuRn3R#11
Quote:
Originally Posted by SiroSkill View Post
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.
07/19/2012 12:35 SiroSkill#12
Quote:
Originally Posted by _BuRn3R_ View Post
LoL, ich lasse ihn doch. Wie ihr es immer missversteht.
Aber das geht auf denn Nerv mit diesen Sprüchen.:rtfm:
07/22/2012 16:07 daniking1#13
Bei mir schreibt er in den WR chat nicht. Also in der Lobby.