Question

CapsLock的状态如何判断?

在VBS中如何判断CapsLock的状态?

如下是一个在vb中判断CapsLock的状态的程序,在vbs中运行则出错。
请问在vbs中该如何改写？

'以下为vb6.0下的实现程序
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Const VK_CAPITAL As Long = &H14
Private Const VK_NUMLOCK As Long = &H90
Private Const VK_SHIFT = &H10

Private Sub Form_Click()
If GetKeyState(VK_CAPITAL) Mod &HFF80 = 1 Then
MsgBox "当前处于大写锁定状态"
Else
MsgBox "当前处于正常输入状态"
End If
If GetKeyState(VK_SHIFT) And CLng(&HFF80) Then
MsgBox "SHIFT键被按下"
End If
End Sub

Answer 1

换一种思路，别用API了。生成一个键盘事件，然后判断它返回的ASCII码值，看它是大写还是小写。

Answer 2

VBS 无法调用API函数