[讨论]：如何检测键盘状态?

aidraft

如何检测键盘状态? 如caps Lock, Num Lock
我找到一个vb程序，但不知能否在lisp中调用？
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As
Long
Public Declare Function GetKeyboardState Lib "user32" (kbArray As
KeyboardBytes) As Long
Public Declare Function SetKeyboardState Lib "user32" (kbArray As
KeyboardBytes) As Long

Public Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type

Public kbArray As KeyboardBytes
Public CapsLock As Boolean
Public kbOld As KeyboardBytes

Global Const VK_CAPSLOCK = &H14
Global Const VK_NUMLOCK = &H90
Global Const VK_SCROLL = &H91

Public Sub TurnOn(vkKey As Long)
'save the original keyboard state
GetKeyboardState kbOld

'Get the keyboard state
GetKeyboardState kbArray
'Change a key
kbArray.kbByte(vkKey) = 1
'Set the keyboard state
SetKeyboardState kbArray
End Sub

Public Sub TurnOff(vkKey As Long)
'save the original keyboard state
GetKeyboardState kbOld

'Get the keyboard state
GetKeyboardState kbArray
'change a key
kbArray.kbByte(vkKey) = 0
'set the keyboard state
SetKeyboardState kbArray
End Sub

Public Sub Reset()
'restore the old keyboard state
SetKeyboardState kbOld
End Sub

Public Function IsCapsLock() As Boolean
If GetKeyState(VK_CAPSLOCK) And 1 Then
IsCapsLock = True

Else
IsCapsLock = False
End If
End Function

Public Function IsNumLock() As Boolean
If GetKeyState(VK_NUMLOCK) And 1 Then
IsNumLock = True

Else
IsNumLock = False
End If
End Function

Public Function IsScrollLock() As Boolean
If GetKeyState(VK_SCROLL) And 1 Then
IsScrollLock = True

Else
IsScrollLock = False
End If
End Function

雪山飞狐(lzh)

是要调用Api的，只能做成宏，再用Lisp和VBA传递参数调用

Job_ho

http://www.mcneel.com/download.htm
doslib-adds DOS and Windows commands to AutoLISP.
命令dos_numlock
命令dos_scrolllock

aidraft

DosLib 只能改变状态，并不能检测。