vb问题,急!急!!急!!!

来源：百度知道 编辑：UC知道 时间：2024/05/21 09:08:52
Set WshShell = CreateObject ("WScript.Shell")
WshShell.SendKeys "{NUMLOCK}"

这两断代码是运行NUMLOCK键的
谁能给我加个判断 当NUMLOCK 键亮的时候就执行 当NUMLOCK 不亮时就不执行
2楼 QQ留下！

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Command1_Click()
If GetKeyState(vbKeyNumlock) = 0 Then
keybd_event vbKeyNumlock, 0, 0, 0
keybd_event vbKeyNumlock, 0, 2, 0
End If
End Sub