TastendruckSimulaion

[burnbany]

Hallo

ich habe ein problem . . .

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
    Dim AsciiCode As Integer
    Dim Taste As Integer

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        For i = 1 To 255
            Taste = GetAsyncKeyState(i)
            If Taste = -32767 Then
                My.Settings.KEY = i
            End If
        Next
    End Sub

wenn ich jetzt zb die taste b drücke nimmt My.Settings.Key den wert 66 an
jetzt möchte ich aber diesen code wieder in einen tastendruck umwandeln

dazu habe ich den wert 66 an die variable Key as string übergeben

benutze ich den befehl
SendKeys.SendWait(Chr(Key))
kommt anstat b --> B

benutze ich den befehl
SendKeys.SendWait(Key)
kommt anstat b --> 66

meine frage ist wie schaffe ich es das diese werte wie zb 66 wieder in einen tastendruck umgeformt werden können?

Für hilfe wäre ich sehr dankbar

MFG

BurnBany

[tolio]

nimm ne ascii table wie die hier,
nutze option strict damit du keine falsches type casting hast und dann sollte alles klappen

[burnbany]

danke schonmal aber geht das nicht irgendwie leichter ?

ambesten wäre wenn man das

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
Dim AsciiCode As Integer
Dim Taste As Integer

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 255
Taste = GetAsyncKeyState(i)
If Taste = -32767 Then
My.Settings.KEY = i
End If
Next
End Sub

so verändern könnte das my.settings.key Direkt den richtigen wert annimmt so dass ich nichts mehr umändern muss

[burnbany]

hat sich erledigt man soltle natürlich wissen das man einfach sendKeys.sendwait({ACSIICODE}) machen kann

Kann geschlossen werden