Question

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

我想一直按住F键不放，我一按停止它就停止那种，谁能把设置好的按键发一下就行！谢谢，好的追加40分

Answer 1

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

Answer 2

以按住“x”键为例，如果想一直按住的话则：
delay
2000
keydown
88,1
如果想让“x”键一直按键的话，则
delay
2000
rem
开始
keypress
88,1
delay
20
goto
开始
延时2秒主要是考虑脚本启动的延时，根据个人电脑的反应速度等可删除或调整延时。

Answer 3

哇,LS直接发源码啊?还好长,看看我的...."//"后的是注释,直接复制就可以了.
-----------------------我是分割线--------------------------
KeyDown 70,1
//脚本开始,按住"F"键
EndScript
Sub OnScriptExit
KeyUp 70,1
//按下停止键后,脚本并不立刻停止,而是先弹起"F"键再停止
Return