调用API检测键盘大小写状态

mgame168 · 发表于 2022-7-3 22:12:30

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 mgame168 于 2022-7-3 22:15 编辑

在我还没看到 拿红颜乱浮生 发的

[插件工具] 键盘大小写状态检测
我是调用API检测键盘大小写状态：

Private Declare Function GetKeyState Lib"user32"(ByVal nVirtKey As Long) As Integer
MyKeyState = GetKeyState(20)
If MyKeyState = 0 Then
TracePrint "当前小写锁定"
Else MyKeyState = 1
TracePrint "当前大写锁定"
End If

		自动登录	找回密码
密码			立即注册

[其他] 调用API检测键盘大小写状态

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。