Code:
Public Class spammer
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
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}")
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(TextBox2.Text)
SendKeys.Send("{Enter}")
Timer2.Stop()
Timer3.Start()
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
SendKeys.Send(TextBox3.Text)
SendKeys.Send("{Enter}")
Timer3.Stop()
Timer1.Start()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Timer1.Interval = TextBox4.Text
End Sub
Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
Timer2.Stop()
Timer3.Stop()
End Sub
Private Declare Function GetAsynckeystate Lib "user32" (ByVal vkey As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer4.Start()
End Sub
Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
Dim hotkey1 As Boolean
Dim hotkey2 As Boolean
hotkey1 = GetAsynckeystate(Keys.A)
hotkey2 = GetAsynckeystate(Keys.L)
'spammer(start)
If hotkey1 = True Then
Timer1.Start()
Timer2.Interval = TextBox4.Text
Timer3.Interval = TextBox4.Text
End If
'spammer stop
If hotkey2 = True Then
Timer1.Stop()
Timer2.Stop()
Timer3.Stop()
End If
End Sub
End Class
i keep gettin this error
[IMG]https://i117.photobucke*****m/albums/o68/nautical324/11-13-20102-05-38PMerror.png[/IMG]
please someone help its pissin me the fk off