VB如何做到同时按键

答案:3 悬赏:60

解决时间 2021-01-17 10:23

提问者网友：自食苦果
2021-01-16 13:30

VB如何做到同时按键

最佳答案

二级知识专家网友：躲不过心动
2021-01-16 15:02

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
Private Sub Command1_Click()
keybd_event vbKeyControl, 0, 0, 0 '按下CTRL键
keybd_event vbKeyMenu, 0, 0, 0 '按下Alt键
keybd_event vbKeyA, 0, 0, 0 '按下A键
keybd_event vbKeyA, 0, KEYEVENTF_KEYUP, 0 '释放A键
keybd_event vbKeyMenu, 0, KEYEVENTF_KEYUP, 0 '释放Alt键
keybd_event vbKeyControl, 0, KEYEVENTF_KEYUP, 0 '释放CTRL键
End Sub

全部回答

1楼网友：老鼠爱大米
2021-01-16 17:02

Private Sub Form_Click()
SendKeys "^%a", True
End Sub

2楼网友：独行浪子会拥风
2021-01-16 15:50

'API声明,复制到最上面一排即可
private declare sub keybd_event lib "user32" alias "keybd_event" (byval key as byte, byval bScan as byte, byval dwflags as long, byval dwExtraInfo As long)
'代码,写在command1_click里面
keybd_event(17, 0, 0, 0)
keybd_event(18, 0, 0, 0)
keybd_event(65, 0, 0, 0)

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！