I will Explain the Source Code.
The Spammer have Hotkeys Included.
So first we need to Declare the GetAsyncKeyState.
For 32 bits users:
Code:
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim result As Integer
For 64 bits users:
Code:
Public Declare Function GetAsyncKeyState Lib "user64" (ByVal vKey As Long) As Integer
Dim result As Integer
We finished declaring the GetAsyncKeyState.Now let's move to Button1.We need to make button when,that when we press it the timer starts.
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Let's continue with button2.Now we will make this so the timer will stop.
Code:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub
Now for the timer we are saying,that the timer will check what's written in the richtextbox1 and will type it everywhere.
Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
SendKeys.Send(RichTextBox1.Text)
SendKeys.Send("{Enter}")
End Sub
Now for the hotkeys.We are saying,that if the user input the F7 key,it will start.If the user input the F8 key then it will stop.
Code:
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If GetAsyncKeyState(Keys.F7) Then
Timer1.Enabled = True
End If
If GetAsyncKeyState(Keys.F8) Then
Timer1.Enabled = False
End If
End Sub
----------------------------------------------------------------------------------------------------------------------------------
Final Code:
Code:
Public Class spammer
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim result As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
SendKeys.Send(RichTextBox1.Text)
SendKeys.Send("{Enter}")
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If GetAsyncKeyState(Keys.F7) Then
Timer1.Enabled = True
End If
If GetAsyncKeyState(Keys.F8) Then
Timer1.Enabled = False
End If
End Sub