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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024