Visual Basic Forum

^^kev#### · Verfasst am: 29.06.2009, 14:01

Beschreibung:
Diese Funktion kann die ScanCodes also die Tastaturbefehle umsetzen um z.B. Tasten zu vertauschen oder zu deaktivieren.
Nach der Umbelegung muss der Computer neugestartet werden damit die ScanCodes angewendet werden.

Weitere Informationen gibt es hier: http://winfaq.de/faq_html/Content/tip1575.htm
Eine Liste der ScanCodes findet man hier: http://winfaq.de/faq_html/Content/tip1576.htm

Achtung: Man sollte diese Funktion nur dann benutzen wenn man sich mit der Materie auskennt da es sonst zu Problemen kommen kann.

Hier ein Beispielaufruf wenn man die Taste "ESCAPE" mit der Taste "A" vertauschen will:
'SetScanCodes(New Byte() {&H1, &H0, &H1E, &H0}, New Byte() {&H1E, &H0, &H1, &H0})

Funktion:
Visual Basic: [code]Public Sub SetScanCodes(ByVal ParamArray ScanCodes() As Object)
'Hier noch mal das Beispiel um ESC mit A zu vertauschen:
'SetScanCodes(New Byte() {&H1, &H0, &H1E, &H0}, New Byte() {&H1E, &H0, &H1, &H0})

Dim CodeArray As New List(Of Byte)
Dim CodeCount As Byte = ScanCodes.Length + 1
CodeArray.AddRange(New Byte() {&H0, &H0, &H0, &H0}) 'Header
CodeArray.AddRange(New Byte() {&H0, &H0, &H0, &H0}) 'Header
CodeArray.AddRange(New Byte() {Hex(CodeCount), &H0, &H0, &H0}) 'Anzahl

For i As Integer = 0 To ScanCodes.Length - 1
CodeArray.AddRange(ScanCodes(i))
Next

CodeArray.AddRange(New Byte() {&H0, &H0, &H0, &H0}) 'Abschluss

Microsoft.Win32.Registry.SetValue("HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlKeyboard Layout", _
"Scancode Map", CodeArray.ToArray, Microsoft.Win32.RegistryValueKind.Binary)
End Sub[/code]

Quelle: dotnet-snippets.de
_________________