VBkeybinder failt

  • Hi Leute,
    Ich habe einen Keybinder in VB geschrieben.
    Nach ein Paar mal testen fängt er an den Befehl zu spammen.



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    If GetAsyncKeyState(Keys.NumPad1) Then
    My.Computer.Keyboard.SendKeys("t/motor {ENTER}")
    My.Computer.Keyboard.SendKeys("t/licht {ENTER}")
    End If
    End Sub

    Bitte schreibt nicht einmal was in ein Thread und lest dann nicht was geantwortet wird. Sonst bleiben die meisten Fragen ungeklärt. ;)