如何模拟点击"NumLock"键？

[fzn0621]

如何模拟点击"NumLock"键？

[bydisplay]

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = (GetAsyncKeyState(vKeyCode) < 0)
End Function

Private Sub Timer1_Timer()

MyHotKey(vbKeyNumlock)
end sub

[fzn0621]

这样只能测试是否点击过吧？能模拟点击吗？我的意思是运行一次NumLock键的灯亮了，再运行一次，NumLock的灯又不亮了。

[sxmzmxh]

Const VK_NUMLOCK = &H90
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
keybd_event VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY Or 0, 0 'key down
keybd_event VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0 'key up

[用户 昵称]

Option Explicit

Private Const VER_PLATFORM_WIN32_NT = 2
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VK_NUMLOCK = &H90
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2

Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
' API declarations:

Private Declare Function GetVersionEx Lib "kernel32" _
Alias "GetVersionExA" _
(lpVersionInformation As OSVERSIONINFO) As Long

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 GetKeyboardState Lib "user32" _
(pbKeyState As Byte) As Long

Private Declare Function SetKeyboardState Lib "user32" _
(lppbKeyState As Byte) As Long
Public Sub ToggleNumLock(TurnOn As Boolean)

'To turn numlock on, set turnon to true
'To turn numlock off, set turnon to false

Dim bytKeys(255) As Byte
Dim bnumLockOn As Boolean

'Get status of the 256 virtual keys
GetKeyboardState bytKeys(0)

bnumLockOn = bytKeys(VK_NUMLOCK)
Dim typOS As OSVERSIONINFO

If bnumLockOn <> TurnOn Then 'if current state <>
'requested stae

If typOS.dwPlatformId = _
VER_PLATFORM_WIN32_WINDOWS Then '=== Win95/98

bytKeys(VK_NUMLOCK) = 1
SetKeyboardState bytKeys(0)

Else '=== WinNT/2000

'Simulate Key Press
keybd_event VK_NUMLOCK, &H45, _
KEYEVENTF_EXTENDEDKEY Or 0, 0
'Simulate Key Release
keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY _
Or KEYEVENTF_KEYUP, 0
End If
End If

End Sub

[fzn0621]

谢谢楼上的朋友~
不过，其实你只要告诉我是GetKeyboardState和setKeyboardState这两个涵数就可以了嘛~给我这么一大堆代码，还让我看了半天~~~
不过还是谢谢你！

[fzn0621]

有一个很奇怪的问题！
用setKeyboardState后，"NumLock"键的确可以控制了，但比如把它关掉后，过一段时间又会莫名其妙的亮回来！很奇怪。。我的程序都已经关了的情况下，过一段时间不知是按了什么键，又会亮回来了。。