Brandan

Untitled

Nov 24th, 2013
188
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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
RAW Paste Data