.版本 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键” .默认 .判断结束 ' 文本 ＝ “键值错误” 返回 (文本)