Question

按键精灵 怎么设置 如果右键按住1秒后 则键盘按x一次

按键精灵 怎么设置 如果右键按住1秒后 则键盘按x一次注意是右键按住一秒后才执行键盘x键

Answer 1

DimEnv 叠加数
DimEnv 秒数
DimEnv 状态
DimEnv 叠加状态
秒数 = 1000 //毫秒绝颤笑
状态 = "弹起"
叠加数 = 0
叠加状态 = "无"
TracePrint "开始检测"
BeginThread 检测1秒
Do
状态 = GetLastClick()
If 状态 = 32773 Then
叠加状态 = "按下"
TracePrint "按下"
ElseIf 状态 = 32774 Then
叠加状态洞念 = "弹起"
TracePrint "弹起并含"
End If
Delay 40
Loop
Sub 检测1秒
Do
If 叠加状态 = "按下" Then
叠加数 = 叠加数 + 1
If 叠加数 > 秒数 / 50 Then
TracePrint "长按1秒"
KeyPress "X", 1
叠加数 = 0
End If
Else
叠加数 = 0
End If
Delay 40
Loop
End Sub