求教按键精灵六级认证题思路:记录5秒内所有的鼠标、键盘动作。我现在的...

发布网友 发布时间:2024-04-03 06:41

我来回答

1个回答

热心网友 时间:19小时前

增加多个多线程子程序判断,如果按下按键则开始判断,用GetKeyState函数判断,下面是我保存的一个示例:这里GetKeyState(65)里面的65可以用变量,就用前面检测到的键码保存到变量然后就可以检测了,检测时间可以在按下判断里面增加一个变量,比如A=A+1,最终数据转换成延时就可以了,放开按键一次就提取一次A的变量,然后重置A=1。
Private Declare Function GetKeyState Lib"user32"(ByVal nVirtKey As Long) As Integer
Do
Dim chen
chen = 0
//得到某键按下或放开状态,用GetKeyState轻松实现。
//返回值 = GetKeyState(某一键的键盘码)
chen = GetKeyState(65)
Select Case chen
Case -127
TracePrint "此键处于按下状态。"
KeyPress "Space", 1
Delay 1
Case -128
TracePrint "此键处于按下状态。"
KeyPress "Space", 1
Delay 1
Case 0
TracePrint "此键处于放开状态。"
Delay 1
Case 1
TracePrint "此键处于放开状态。"
Delay 1
Case Else
End Select
Loop
声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。
E-MAIL:11247931@qq.com
Top