hotkey.txt

来自「一部分关于VB编程的小技巧」· 文本 代码 · 共 14 行

Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer


Private Sub Timer1_Timer()
    Dim keystate(1) As Integer
    
    keystate(0) = GetAsyncKeyState(vbKeyControl)
    keystate(1) = GetAsyncKeyState(vbKeyTab)
    
    If keystate(0) And keystate(1) And &H8000 Then
        'If hotkey is pressed
    End If
End Sub