7,762
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
842 2003-10-18
- 打赏
- 举报
Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
Dim b(0 To 254) As Byte
GetKeyboardState b(0)
If b(vbKeyNumlock) Then
' Numlock On
End If
If b(vbKeyCapital) Then
' Capslock on
End If
控制可以使用keybd_event模拟按键
Dim b(0 To 254) As Byte
GetKeyboardState b(0)
If b(vbKeyNumlock) Then
' Numlock On
End If
If b(vbKeyCapital) Then
' Capslock on
End If
控制可以使用keybd_event模拟按键
