Can you guys help me fix hotkey code for spammer?

[lol1362]

Public Class Form1

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(TextBox1.Text)
SendKeys.Send("{Enter}")
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim F4 As Boolean
F4 = GetAsyncKeystate(Keys.F4)
If F4 = True Then
Timer1.Enabled = True
End If
Dim F5 As Boolean
F5 = GetAsyncKeystate(Keys.F5)
If F5 = True Then
Timer1.Enabled = False
End If
End Sub
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = NumericUpDownValue()
End Sub
End Class






Can you guys help me?

[[MPGH]Mayion]

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Keys) As Boolean
If GetAsyncKeyState(Keys.F4) Then
      Timer1.Enabled = True
End If
If GetAsyncKeyState(Keys.F5) Then
      Timer1.Enabled = False
End If
End Sub

Credits: Jorndel.
@ @lol1362