名称	CheckPressedKeys 检查按键
功能	检查键盘、鼠标的哪些键被按下。在程序运行前，可能有些键盘或者鼠标的键因某种原因被按下未弹起，有的从物理上看弹起了，实际在逻辑上并未弹起。这样会影响后面的键盘、鼠标操作，所有最好先检查一下。
参数	参数1　模式：32位整型数。用于设置这个函数的工作方式。取值可以是下面的一个或多个，不用时可取0。如果要同时使用多个值，可将多个值做或运算。可取值： 值 说明 1 返回的字符串包含中文的信息，否则是全英文的信息 2 返回的字符串包含被按下的鼠标键信息，否则只包含被按下的键盘键
返回值	BSTR类型。如果未检测到有被按下的键，返回“OK”字符串；如果检测到有被按下的键，返回被按下的键的信息；如果失败，返回空字符串。
vbs 例子	Dim str str=wyhkm.CheckPressedKeys(1) If str=vbNullString Then     MsgBox "按键检查失败",4096     wscript.quit End If If str="OK" Then     MsgBox "检查到" & str & "被按下，可能是按下未弹起或者键盘故障，这会影响键盘鼠标操作，为了恢复它们，请尝试重新点击这些按键！",4096     wscript.quit End If