按键精灵2014
产生了这样的代码思路：1. 进入Do循环 （使用Do循环每秒一次的监控按键的状态变化）2. 2. 使用WaitKey命令获取到当前按下的按键的键值3. 判断变量key的值是否等于114 （这里的114是 F3的键值）如果变量key的值等于114，那么执行想要执行的代码如果变量key的值不等于114，那么就不执行
代码：Do Key=WaitKey() // WaitKey 等待按任意键 If Key = 114 Then //判断是否按下F3 //执行 TracePrint "按住了F3" Else //不执行 TracePrint "松开了F3" End If Delay 1000Loop
执行结果：
执行的结果和预期的不一样？看到执行结果，小编笑不出来了，这样写当第一次按下F3键放开之后，key的值一直都是F3，也就是说不管你松没松开f3键，If key <> 114 Then这一句都不会成立，WaitKey 命令可以获取你按下了什么键，但是却不能获取这个按键的一个状态。按一次、按很多次、松开了、还按着、WaitKey 命令不区分这些，它就返回一个键值。怎么办怎么办？这时候小编脑子里飘过了很多想法，最后想到了api，通过调用api的 GetAsyncKeyState 函数（ Get-得到 Async-端口 KeyState-键盘按键状态 合起来就是——获取键盘按键状态的端口） 来获取指定键的一个状态，根据获取到的状态，就能得知指定键是按下还是松开的。瞬间觉得自己又变聪明了，哦呵呵，有了想法马上实施行动，先了解下 GetAsyncKeyState 函数的声明和返回值：GetAsyncKeyState 函数 的声明，返回值声明Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer返回值 GetAsyncKeyState 返回值等于1 说明键已经被按过并且当前是松开的状态 GetAsyncKeyState 返回值等于0 说明键是松开的状态 GetAsyncKeyState 返回值等于- 32767 说明键是按下的状态
说到这里可能有些同学还不太了解api是神马， 那……什么是api呢？——API（Application Programming Interface,应用程序编程接口）是一些预先定义的函数，目的是提供应用程序与开发人员基于某软件或硬件得以访问一组例程的能力，而又无需访问源码，或理解内部工作机制的细节。API与系统调用的区别：系统调用代码都处于内核态，API是操作系统提供的一组函数，通常以库的形式存在，供用户调用，所以，API代码可能是完全是用户空间代码，也有的API调用了系统调用。
代码思路：1. 声明GetAsyncKeyState 函数2. 进入Do循环 （使用Do循环每秒一次的监控按键的状态——通过GetAsyncKeyState 函数，判断按键当前的状态）3. 用GetAsyncKeyState 函数，获取F3（114）按键的状态，并且把返回值复制给变量x4. 使用select case 判断语句 判断变量x的值 如果变量x的值等于1，那么不执行 如果变量x的值等于0，那么不执行 如果变量x的值等于- 32767，那么执行
代码：Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer//上面这句至关重要的，调用api接口的声明， 声明好之后，就可以愉快的调用api函数///////////////////////////////用循环 每秒判断一次按键的状态/////////////////////////Do x = GetAsyncKeyState(114) // GetAsyncKeyState 参数类型是long数值类型，所以不支持直接写F3 Select Case x Case 1 TracePrint "没按住F3" //这里需要注意下，按住按键的时候返回值是-32767，松开的时候进入判断会先返回一个1，然后再次判断的时候返回值才是0.这样我们松开按键的情况下，会造成多判断一次的延迟。所以这里将返回值1也归类为没按住按键进行判断。 //不执行 Case 0 TracePrint "没按住F3" //不执行 Case - 32767 TracePrint "按住了F3" //执行 End Select Delay 1000Loop
执行结果：
按键状态检测不支持多线程（多线程启动，只会检测第一个启动的线程中的按键状态监控），不支持同时判断多个按键的状态。 很感动。总算实现了。