易语言取按键状态源码

系统结构:键盘_模拟击键动作,查询键名,查询键码_,是否按下某键_,是否正按下某键_,模拟击键动作_,取按键名_,

======窗口程序集1
           |  |
           |  |------ _判断是否按下了特定的键_被单击
           |  |
           |  |------ _编辑框1_字符输入
           |  |
           |  |------ _判断是否正按下特定键_被单击
           |  |
           |  |------ _模拟击键动作_被单击
           |  |
           |  |------ 键盘_模拟击键动作
           |  |
           |  |------ _查询键名_被单击
           |  |
           |  |------ 查询键名
           |  |
           |  |------ __启动窗口_首次激活
           |  |
           |  |------ __启动窗口_鼠标位置被移动
           |  |
           |  |------ _判断是否按下了特定的键_鼠标位置被移动
           |  |
           |  |------ _判断是否正按下特定键_鼠标位置被移动
           |  |
           |  |------ _编辑框1_鼠标位置被移动
           |  |
           |  |------ _编辑框2_鼠标位置被移动
           |  |
           |  |------ _编辑框3_鼠标位置被移动
           |  |
           |  |------ _编辑框4_鼠标位置被移动
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   查询键码_
           |  |
           |  |---[dll]------   是否按下某键_
           |  |
           |  |---[dll]------   是否正按下某键_
           |  |
           |  |---[dll]------   模拟击键动作_
           |  |
           |  |---[dll]------   取按键名_

调用的DLL命令:

.DLL命令 查询键码_, 整数型, "user32", "MapVirtualKeyA", , wMapType=0 wCode是个虚拟键码。函数返回相应的扫描码;wMapType=1 wCode是个扫描码。函数返回相应的虚拟键码;wMapType=2 wCode是个虚拟键码。函数返回相应的ASCII值（未加Shift组合键）
    .参数 wCode, 整数型, , Long，欲转换的源字符或扫描码
    .参数 wMapType, 整数型, , Long，控制映射类型:0-wCode是个虚拟键码。函数返回相应的扫描码;1-wCode是个扫描码。函数返回相应的虚拟键码;2-wCode是个虚拟键码。函数返回相应的ASCII值（未加Shift组合键）

.DLL命令 是否按下某键_, 整数型, "user32.dll", "GetKeyState", , , GetKeyState，针对已处理过的按键，在最近一次输入信息时，判断指定虚拟键的状态
    .参数 键代码, 整数型, , nVirtKey，欲测试的虚拟键键码。对字母、数字字符（A-Z、a-z、0-9），用它们实际的ASCII值

.DLL命令 是否正按下某键_, 整数型, "user32", "GetAsyncKeyState", , GetAsyncKeyState,判断是否按下了特定的键
    .参数 键代码, 整数型, , vKey Long，欲测试的虚拟键的键码

.DLL命令 模拟击键动作_, 整数型, "user32.dll", "keybd_event", , ,keybd_event 这个函数模拟了键盘行动
    .参数 键代码, 整数型, , bVk,欲模拟的虚拟键码
    .参数 键扫描码, 整数型, , bScan,键的OEM扫描码
    .参数 标志值, 整数型, , dwFlags,标志常数
    .参数 特定值, 整数型, , dwExtraInfo,通常不用的一个值

.DLL命令 取按键名_, 整数型, "user32", "GetKeyNameTextA", , GetKeyNameText取得键盘上一个键的物理键名
    .参数 扫描码, 整数型, , Long，位0到5=0；位16到23=按键的扫描码；位24=增强型键盘上的扩展位；位25=如设为1，表示忽略左右Shift和Ctrl键的区别
    .参数 缓冲区, 文本型, , String，字串预先初始化成至少nSize+1字节，以便随同键名载入
    .参数 缓冲区长度, 整数型, , Long，字串的最大长度