Private Const KEYEVENTF_KEYUP = &H2
Private Sub Command2_Click()
Dim a
keybd_event vbKeySpace, 0, 0, 0 '按下空格
keybd_event vbKeySpace, 0, KEYEVENTF_KEYUP, 0 '松开空格
End Sub
成功实现模拟按键空格了
现在我想中间加个延时效果,实现按空格5秒后松掉
用过sleep 5000
程序假死5秒后没下文了 空格只出来一个
结果总是失败,直接把keybd_event vbKeySpace, 0, KEYEVENTF_KEYUP, 0
删掉
他也只能按一个空格然后弹起
请问这样才能按下空格5秒不放?