Esc为启动快捷键 F9为暂停键
Esc是代替了alt+1这俩的组合键
我想实现的是:
从一开始按下esc启动
esc不弹起,系统自动点一次alt+1键,
松手esc键弹起来,系统自动再点一次alt+1键
就有点像微信语音的时候手指头点着就可以说话,松手就不能说话
有没有大神帮帮我啊,谢谢
点评
瑞祥幽冥狼
- '参考例子
- Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
- Dim key, n
- key = 65'A的按键码=65
- Do
- n = GetAsyncKeyState(key)
- If n = 1 Then
- TracePrint "按了" & Chr(key) & "键"
- ElseIf n < 0 Then
- TracePrint "按住了" & Chr(key) & "键"
- Else
- TracePrint "无按键,等待!"
- End If
- Delay 500
- Loop
复制代码
发表于 2026/2/4 15:15:02