TastendruckSimulaion

02/16/2013 13:20 burnbany#1
Hallo

ich habe ein problem . . .

Code:
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
02/16/2013 14:37 tolio#2
nimm ne ascii table wie die hier, [Only registered and activated users can see links. Click Here To Register...]
nutze option strict damit du keine falsches type casting hast und dann sollte alles klappen
02/16/2013 14:48 burnbany#3
danke schonmal aber geht das nicht irgendwie leichter ?

ambesten wäre wenn man das
Quote:
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
02/23/2013 21:41 burnbany#4
hat sich erledigt man soltle natürlich wissen das man einfach sendKeys.sendwait({ACSIICODE}) machen kann :D

Kann geschlossen werden