怎么用按键精灵一直按住一个键

来源：百度知道 编辑：UC知道 时间：2024/06/15 23:40:51
我想一直按住F键不放，我一按停止它就停止那种，谁能把设置好的按键发一下就行！谢谢，好的追加40分

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer '声明

Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
KeyResult = GetAsyncKeyState(112) ' F1 112 F2 113 ASCII码
If KeyResult = -32767 Then
keybd_event 70, 0, 0, 0 '这是键按下 F
End If

KeyResult = GetAsyncKeyState(113) ' F1 112 F2 113 ASCII码
If KeyResult = -32767 Then
keybd_event 70, 0, &H2, 0 '这是弹起 F
End If
End Sub