利用API函数如何得知键盘number lock等开关键的状态？

Declare Function GetKeyState Lib "User32" (ByVal lngVirtKey As Long) As IntegerGetKeyState(vbKeyNumLock)GetKeyState(vbKeyCapital)如果要用程序更改 NUMLOCK 状态，可以通过条调用 API SetKeyboardState(Windows 95,  98, or Me)或者调用keybd_event (Windows NT or Windows 2000)来实现。下面的这篇文章详细地讲述了如何在VB中实现这个功能，您可以适当修改其中的代码来实现自动控制打开Num灯。177674 HOWTO: Toggle the NUM LOCK, CAPS LOCK, and SCROLL LOCK Keyshttp://support.microsoft.com/?id=177674