Visual Basis Hotkeys

Ey
Ik heb een spammer gemaakt en ik wil graag als ik op F5 druk dat hij dan stopt met spammen.
Graap wil ik ook Met F4 het spammen starten. Hoe?

Code:

Public Class Spammer

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

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

    End Sub
End Class

Er staan natuurlijk knoppen en die wil ik er ooknog bij houden dus dat je hem kan starten/stoppen met de knoppen en met F4/F5

Ik heb ff de titel verander. Omdat ik geen antwoord krijg

dit is geen c# hoor?

Visual Basis dan xD

// Edit: Gechangend

Daiman schreef:

dit is geen c# hoor?

Zzeldje schreef:

Visual Basis dan xD

// Edit: Gechangend

Wou net zeggen..

Maak een timer2 aan met de interval: 1 en enabled: true

Spoiler tonen

En zet dit erbij in je code:

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If GetAsyncKeyState(115) Then
            Timer4.Enabled = True
        End If
If GetAsyncKeyState(116) Then
            Timer4.Enabled = false
        End If
    End Sub