Keybinder mit VB spammt

RaubEl · 20. Mai 2013

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

ArTeX · 20. Mai 2013

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

RaubEl · 20. Mai 2013

Geht immernoch nicht

ArTeX · 20. Mai 2013

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

VitoHusky · 20. Mai 2013

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ß

RaubEl · 20. Mai 2013

kannst du es als Codebeispiel schreiben?

breadfish.de 12. März 2022