Advertisement
Brandan

Untitled

Nov 24th, 2013
407
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 0.36 KB | None | 0 0
  1.     Public Function scan2ascii(ByVal scancode, ByVal result)
  2.         Dim hIMC As IntPtr = ImmGetContext(Me.Handle)
  3.         Dim hKL As IntPtr = GetKeyboardLayout(0)
  4.  
  5.         Dim State = New Byte(255) {}
  6.  
  7.         If GetKeyboardState(State) = False Then
  8.             Return 0
  9.         End If
  10.  
  11.         Return MapVirtualKeyEx(scancode, 1, hKL)
  12.     End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement