Ultimate Spammer Source

[Magical´ 0]

Here , u can leech but first u have to understand the code u will see why :

The Spammer :

- Spamming

- Money Mod

- Test Mod

- Perwiev Mod

 

Form1:
Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Timer1.Enabled = True
       Timer2.Enabled = True
       CheckBox3.Enabled = True
       CheckBox1.Enabled = True
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Timer1.Enabled = False
       Timer2.Enabled = False
       CheckBox3.Enabled = False
       Timer4.Enabled = False
       CheckBox1.Enabled = False
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Timer1.Interval = (TextBox4.Text)
       Timer3.Interval = (TextBox4.Text)
       Timer4.Interval = Timer1.Interval
       Timer4.Interval += 100
   End Sub

   Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
       MsgBox("Slow = 1000 , Medium = 500 , Fast = 300")
   End Sub

   Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
       MsgBox("All made by Magical ")
   End Sub

   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       MsgBox(" Numpad 1 = Go, Numpad 2 = Stop , + = Faster , - = Slower")
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       SendKeys.Send(TextBox1.Text)
       SendKeys.Send("{ENTER}")
   End Sub

   Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
       If CheckBox1.Checked = True Then
           Timer1.Enabled = False
           Timer3.enabled = True
       Else
           Timer1.Enabled = True
           Timer3.enabled = False
       End If

       If CheckBox3.Checked = True Then
           timer4.enabled = True
       End If
       If RadioButton1.Checked = True Then
           Timer1.Interval = 1000
           Timer3.Interval = 1000
           Timer4.Interval = 1100
       End If
       If RadioButton2.Checked = True Then
           Timer1.Interval = 500
           Timer3.Interval = 500
           Timer4.Interval = 600
       End If
       If RadioButton3.Checked = True Then
           Timer1.Interval = 300
           Timer3.Interval = 300
           Timer4.Interval = 400
       End If

       Label3.Text = Timer1.Interval



   End Sub

   Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
       SendKeys.Send(TextBox1.Text & "||" & TimeOfDay)
       SendKeys.Send("{ENTER}")
   End Sub

   Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
       SendKeys.Send(TextBox2.Text)
       SendKeys.Send("{ENTER}")
   End Sub

   Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
       Form2.Show()
   End Sub

   Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
       TextBox3.Text = Form2.TextBox1.Text & " >> " & TextBox1.Text & " || Antimute"
       If CheckBox2.Checked = True Then
           Form3.Show()
       Else
           Form3.Hide()
       End If
       If CheckBox4.Checked = True Then
           Form4.Show()
       Else
           Form4.Hide()
       End If
   End Sub

   Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged

   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

   End Sub
End Class

 

 

In Form 2 u need a Textbox.

 

In Form 3 too.

 

 

 

 

Form4: Public Class Form4

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       MsgBox("Spamm X Minutes to get V.i.P. on Hacker sites")
       MsgBox("U have to press Spamm to get the Money Mod Activated")
       MsgBox("U need 10000 sec to spamm")
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       If Form1.Timer1.Enabled Or Form1.Timer3.Enabled = True Then
           Timer1.Enabled = True
       End If
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Label3.Text += 1
   End Sub

   Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
       If Label3.Text = 10000 Then

           Timer1.Enabled = False
       End If

   End Sub

   Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

   End Sub
End Class

Edited June 28, 2010 by Magical´

[Golden. 14]

Whats Money Mod?

[_-Badkardi-_ 0]

yeah what is the money mod?

[Mega Gangsta --> lone rider 0]

ye wanna know also

[Magical´ 0]

Money Mod is if u spamm 1 h u get vip

 

( NOT ON GHB !!)

Edited July 18, 2010 by Magical´

[Bauerx3 0]

rep