以下是引用coachard在2007-8-29 22:21:43的发言：
原来你指的是这么一回事儿~~~~会错意，以为找到了文章

只是告诉你修改注册表映射按键是可行的……具体怎么做嘛 肯定有方法的

又是模拟键盘问题


Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Private Declare Function keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long) As Boolean

If GetKeyState(20) Then '//模拟Caps Lock 键

keybd_event 20, 0, 0, 0

keybd_event 20, 0, 2, 0

End If