前些天不小心把键盘从电脑桌上摔了下来,几个键都摔掉了,幸好装上以后没什么事,只是NumLock就锁定了,而且失效了,怎么按都没反应,不能从小键盘输入数字,我一向都习惯使用小键盘的,现在没小键盘了输入数字很不方便,软键盘也没有NunLock键,这就急死我了
我首先偿试用sendkeys模拟按键,但还是没效果,后来翻了些资料,用API实现了模拟按键,代码如下
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Public Sub SetNumLock(ByVal bLock As Boolean)
Dim i As Boolean, ScanCode As Long
i = CBool(GetKeyState(vbKeyNumlock) And vbShiftMask)
If i <> bLock Then
ScanCode = MapVirtualKey(vbKeyNumlock, 0)
Call keybd_event(vbKeyNumlock, ScanCode, 0, 0)
Call keybd_event(vbKeyNumlock, ScanCode, KEYEVENTF_KEYUP, 0)
End If
End Sub
Private Sub Command1_Click()
SetNumLock True
end Sub
