Keybinder mit VB spammt

    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. ;)

    Code
    If GetAsyncKeyState(Keys.NumPad1) Then
                My.Computer.Keyboard.SendKeys("T")
                My.Computer.Keyboard.SendKeys("/motor")
                My.Computer.Keyboard.SendKeys("{Enter}")
            End If
        End If


    Versuchs malso

    Erstell als Test folgendes:
    1x Textbox
    1x Button


    Dann einfach so:

    Code
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(Keys.NumPad1) Then
            If TextBox1.Text <> "" Then
                My.Computer.Keyboard.SendKeys("T")
                My.Computer.Keyboard.SendKeys(TextBox1.Text)
                My.Computer.Keyboard.SendKeys("{Enter}")
            End If
        End If

    Du musst noch einen Sleep reinsetzen


    Danach dem senden also im if getasynckeystsate einen Timer


    While GetAsyncKeyState(Keys.Numpad1)
    Sleep 1
    End While


    Sorry grade kein VB installiert sonst hätte ich schnell nachgeschaut
    Jedoch MUSS es so gemacht werden


    Gruß

    ik bin der vito c:

    kannst du es als Codebeispiel schreiben?

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