添加快捷键
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要vb api函数：
getasyate ←判断函数调用时指定虚拟键的状态
--------------------------------------------------------------------------------------------------------------------------------------------------------
相关api声明：
getasyate
private declare fun getasyate lib "user32" (byval vkeylong)integer
private fun myhotkey(vkeycode)boolean
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要的控件：timer（interval不为空）
--------------------------------------------------------------------------------------------------------------------------------------------------------
代码：
private declare fun getasyate lib "user32" (byval vkeylong)integer
private fun myhotkey(vkeycode)boolean
myhotkey = (getasyate(vkeycode) </p>