postmessage 可以实现后台模拟按键。
用api函数钩子函数全局hook键盘就行了。详查hook函数
创建一个键盘钩子
用Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integerprivate sub timer1_timer()if GetAsyncKeyState(vbkeyf1) then msgbox "f1"end sub