.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 鼠标钩子句柄, 整数型
.程序集变量 键盘钩子句柄, 整数型
.子程序 __启动窗口_创建完毕
鼠标钩子句柄 = 到整数 (设置系统钩子_ (14, &处理消息, 取实例句柄_ (0), 0))
键盘钩子句柄 = 到整数 (设置系统钩子_ (13, &处理消息, 取实例句柄_ (0), 0))
.子程序 处理消息, 整数型
.参数 代码值, 整数型
.参数 消息值, 整数型
.参数 参数二, 整数型
.局部变量 按键信息, 按键信息
.局部变量 坐标, 坐标_
拷贝内存_ (按键信息, 参数二, 28)
' 消息值 513=鼠标左键按下 514=鼠标左键放开 516=右键按下 517=右键放开 519=中键按下 520=中键放开
.判断开始 (消息值 > 512)
.判断开始 (消息值 = 513)
标题 = “鼠标 左键按下”
.判断 (消息值 = 514)
标题 = “鼠标 左键放开”
.判断 (消息值 = 516)
标题 = “鼠标 右键按下”
.判断 (消息值 = 517)
标题 = “鼠标 右键放开”
.判断 (消息值 = 519)
标题 = “鼠标 中键按下”
.判断 (消息值 = 520)
标题 = “鼠标 中键放开”
.默认
.判断结束
.判断 (消息值 = 256)
标题 = “键盘 ” + 键盘_键代码取键名 (按键信息.键代码) + “ 按下”
.判断 (消息值 = 257)
标题 = “键盘 ” + 键盘_键代码取键名 (按键信息.键代码) + “ 放开”
.判断 (消息值 = 260 且 按键信息.键代码 = 164 或 按键信息.键代码 = 165)
标题 = “键盘 ” + 键盘_键代码取键名 (按键信息.键代码) + “ 按下”
.默认
.判断结束
返回 (呼叫下一钩子_ (鼠标钩子句柄, 代码值, 消息值, 参数二))
.子程序 __启动窗口_可否被关闭, 逻辑型
释放系统钩子_ (键盘钩子句柄)
释放系统钩子_ (鼠标钩子句柄)
.子程序 键盘_键代码取键名, 文本型, 公开, 取键代码的键名(返回键名)
.参数 键代码, 整数型, , 键代码,如填:65,将返回 A键
.局部变量 文本, 文本型
.判断开始 (键代码 = #Ctrl键)
文本 = “Ctrl键”
.判断 (键代码 = #Shift键)
文本 = “Shift键”
.判断 (键代码 = #Alt键)
文本 = “Alt键”
.判断 (键代码 = #键0)
文本 = “0键”
.判断 (键代码 = #键1)
文本 = “1键”
.判断 (键代码 = #键2)
文本 = “2键”
.判断 (键代码 = #键3)
文本 = “3键”
.判断 (键代码 = #键4)
文本 = “4键”
.判断 (键代码 = #键5)
文本 = “5键”
.判断 (键代码 = #键6)
文本 = “6键”
.判断 (键代码 = #键7)
文本 = “7键”
.判断 (键代码 = #键8)
文本 = “8键”
.判断 (键代码 = #键9)
文本 = “9键”
.判断 (键代码 = #A键)
文本 = “A键”
.判断 (键代码 = #B键)
文本 = “B键”
.判断 (键代码 = #C键)
文本 = “C键”
.判断 (键代码 = #D键)
文本 = “D键”
.判断 (键代码 = #E键)
文本 = “E键”
.判断 (键代码 = #F键)
文本 = “F键”
.判断 (键代码 = #G键)
文本 = “G键”
.判断 (键代码 = #H键)
文本 = “H键”
.判断 (键代码 = #I键)
文本 = “I键”
.判断 (键代码 = #J键)
文本 = “J键”
.判断 (键代码 = #K键)
文本 = “K键”
.判断 (键代码 = #L键)
文本 = “L键”
.判断 (键代码 = #M键)
文本 = “M键”
.判断 (键代码 = #N键)
文本 = “N键”
.判断 (键代码 = #O键)
文本 = “O键”
.判断 (键代码 = #P键)
文本 = “P键”
.判断 (键代码 = #Q键)
文本 = “Q键”
.判断 (键代码 = #R键)
文本 = “R键”
.判断 (键代码 = #S键)
文本 = “S键”
.判断 (键代码 = #T键)
文本 = “T键”
.判断 (键代码 = #U键)
文本 = “U键”
.判断 (键代码 = #V键)
文本 = “V键”
.判断 (键代码 = #W键)
文本 = “W键”
.判断 (键代码 = #X键)
文本 = “X键”
.判断 (键代码 = #Y键)
文本 = “Y键”
.判断 (键代码 = #Z键)
文本 = “Z键”
.判断 (键代码 = #F1键)
文本 = “F1键”
.判断 (键代码 = #F2键)
文本 = “F2键”
.判断 (键代码 = #F3键)
文本 = “F3键”
.判断 (键代码 = #F4键)
文本 = “F4键”
.判断 (键代码 = #F5键)
文本 = “F5键”
.判断 (键代码 = #F6键)
文本 = “F6键”
.判断 (键代码 = #F7键)
文本 = “F7键”
.判断 (键代码 = #F8键)
文本 = “F8键”
.判断 (键代码 = #F9键)
文本 = “F9键”
.判断 (键代码 = #F10键)
文本 = “F10键”
.判断 (键代码 = #F11键)
文本 = “F11键”
.判断 (键代码 = #F12键)
文本 = “F12键”
.判断 (键代码 = #F13键)
文本 = “F13键”
.判断 (键代码 = #F14键)
文本 = “F14键”
.判断 (键代码 = #F15键)
文本 = “F15键”
.判断 (键代码 = #F16键)
文本 = “F16键”
.判断 (键代码 = #Break键)
文本 = “Break”
.判断 (键代码 = #回车键)
文本 = “回车键”
.判断 (键代码 = #Pause键)
文本 = “Pause键”
.判断 (键代码 = #CapsLock键)
文本 = “Caps Lock键”
.判断 (键代码 = #NumLock键)
文本 = “NumLock键”
.判断 (键代码 = #ScrollLock键)
文本 = “ScrollLock键”
.判断 (键代码 = #Esc键)
文本 = “Esc键”
.判断 (键代码 = #空格键)
文本 = “空格键”
.判断 (键代码 = #PageUp键)
文本 = “PageUp键”
.判断 (键代码 = #PageDown键)
文本 = “PageDown键”
.判断 (键代码 = #Home键)
文本 = “Home键”
.判断 (键代码 = #End键)
文本 = “End键”
.判断 (键代码 = #左光标键)
文本 = “左光标键”
.判断 (键代码 = #上光标键)
文本 = “上光标键”
.判断 (键代码 = #右光标键)
文本 = “右光标键”
.判断 (键代码 = #下光标键)
文本 = “下光标键”
.判断 (键代码 = #Ins键)
文本 = “Ins键”
.判断 (键代码 = #Del键)
文本 = “Del键”
.判断 (键代码 = #分号键)
文本 = “分号键”
.判断 (键代码 = #等号键)
文本 = “等号键”
.判断 (键代码 = #逗号键)
文本 = “逗号键”
.判断 (键代码 = #减号键)
文本 = “减号键”
.判断 (键代码 = #圆点键)
文本 = “圆点键”
.判断 (键代码 = #除号键)
文本 = “除号键”
.判断 (键代码 = #反撇号键)
文本 = “反撇号键”
.判断 (键代码 = #左中括号键)
文本 = “左中括号键”
.判断 (键代码 = #右中括号键)
文本 = “右中括号键”
.判断 (键代码 = #斜杠键)
文本 = “斜杠键”
.判断 (键代码 = #单引号键)
文本 = “单引号键”
.判断 (键代码 = 106)
文本 = “乘号键”
.判断 (键代码 = 107)
文本 = “加号键”
.判断 (键代码 = #退格键)
文本 = “退格键”
.判断 (键代码 = 91)
文本 = “Win键”
.判断 (键代码 = 93)
文本 = “菜单键”
.判断 (键代码 = 160)
文本 = “左Shift键”
.判断 (键代码 = 161)
文本 = “右Shift键”
.判断 (键代码 = 164)
文本 = “左Alt键”
.判断 (键代码 = 165)
文本 = “右Alt键”
.判断 (键代码 = 162)
文本 = “左Ctrl键”
.判断 (键代码 = 163)
文本 = “右Ctrl键”
.判断 (键代码 = 44)
文本 = “PrtSc键”
.默认
.判断结束
' 文本 = “键值错误”
返回 (文本)
易语言写监控键盘代码