Home › Forum › MultiPlayer Game Hacks & Cheats › CrossFire Hacks & Cheats › CrossFire Hack Coding / Programming / Source Code › Multi-Line Spammer Tutorial + Source code and project
Multi-Line Spammer Tutorial + Source code and project
Multi-Line Spammer Tutorial + Source code and project
What do you need?
How do?
Write under the "Public Class Form1"
Set the interval of the Verify timer to 500
After write
Then click on the button1 and write
Now click on the "Spam" timer and write
Then click on the form and write
After click on the HotKey timer and write
And after debug your project
Full source:
VirusScans for the project
{X}{X}
The project is below, remember to give credits to me!
- 5 Textbox
- 5 Checkbox near the textbox for active each textbox
- 1 Button for start the spammer
- Another checkbox called PressEnter for enable the enter key every text to spam
- 1 numericupdown
- 3 timer, one called Verify, one Spam and one HotKey
How do?
Write under the "Public Class Form1"
Code:
Public Verifica As Boolean = True
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
After write
Code:
If CheckBox1.Checked Then
Else
CheckBox1.Checked = True
End If
Spam.Interval = NumericUpDown1.Value
Code:
If Verifica = False Then
Button1.Text = "Start"
Verifica = True
Spam.Stop()
ElseIf Verifica = True Then
Button1.Text = "Stop"
Verifica = False
Threading.Thread.Sleep("2000")
Spam.Start()
End If
Code:
SendKeys.Send(TextBox1.Text)
If PressEnter.Checked Then
SendKeys.Send("{ENTER}")
End If
If CheckBox2.Checked Then
SendKeys.Send(TextBox2.Text)
If PressEnter.Checked Then
SendKeys.Send("{ENTER}")
End If
ElseIf CheckBox3.Checked Then
SendKeys.Send(TextBox3.Text)
If PressEnter.Checked Then
SendKeys.Send("{ENTER}")
End If
ElseIf CheckBox4.Checked Then
SendKeys.Send(TextBox4.Text)
If PressEnter.Checked Then
SendKeys.Send("{ENTER}")
End If
ElseIf CheckBox5.Checked Then
SendKeys.Send(TextBox5.Text)
If PressEnter.Checked Then
SendKeys.Send("{ENTER}")
End If
End If
Code:
msgbox ("Coded by Dragonattak")
Verify.Start()
HotKey.Start()
Code:
If GetAsyncKeyState(Keys.F10) Then
If Verifica = False Then
Button1.Text = "Start"
Verifica = True
Spam.Stop()
ElseIf Verifica = True Then
Button1.Text = "Stop"
Verifica = False
Threading.Thread.Sleep("2000")
Spam.Start()
End If
End If
Full source:
Code:
Public Class Form1
Public Verifica As Boolean = True
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Sub Checked_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Verify.Tick
If CheckBox1.Checked Then
Else
CheckBox1.Checked = True
End If
Spam.Interval = NumericUpDown1.Value
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Verifica = False Then
Button1.Text = "Start"
Verifica = True
Spam.Stop()
ElseIf Verifica = True Then
Button1.Text = "Stop"
Verifica = False
Threading.Thread.Sleep("2000")
Spam.Start()
End If
End Sub
Private Sub Spam_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Spam.Tick
SendKeys.Send(TextBox1.Text)
If PressEnter.Checked Then
SendKeys.Send("{ENTER}")
End If
If CheckBox2.Checked Then
SendKeys.Send(TextBox2.Text)
If PressEnter.Checked Then
SendKeys.Send("{ENTER}")
End If
ElseIf CheckBox3.Checked Then
SendKeys.Send(TextBox3.Text)
If PressEnter.Checked Then
SendKeys.Send("{ENTER}")
End If
ElseIf CheckBox4.Checked Then
SendKeys.Send(TextBox4.Text)
If PressEnter.Checked Then
SendKeys.Send("{ENTER}")
End If
ElseIf CheckBox5.Checked Then
SendKeys.Send(TextBox5.Text)
If PressEnter.Checked Then
SendKeys.Send("{ENTER}")
End If
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
("Coded by Dragonattak")
Verify.Start()
HotKey.Start()
End Sub
Private Sub HotKey_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HotKey.Tick
If GetAsyncKeyState(Keys.F10) Then
If Verifica = False Then
Button1.Text = "Start"
Verifica = True
Spam.Stop()
ElseIf Verifica = True Then
Button1.Text = "Stop"
Verifica = False
Threading.Thread.Sleep("2000")
Spam.Start()
End If
End If
End Sub
End Class
{X}{X}
The project is below, remember to give credits to me!
Nice Tut Dragonattak 
Originally Posted by Lexical
Nice Tut Dragonattak
/msg2short
im gonna try it good job
Repped you, good to see your doing something
Originally Posted by dragonattak
Ty
/msg2short
