模拟键盘声音软件

本软件可在您打字的时候加入打字的声音。

仅内置一种键盘声音效果，您可以通过sound 目录，

修改或者增加其他声音效果。

.子程序 钩子回调函数, 整数型
.参数 nCode, 整数型, , nCode参数是Hook代码，Hook子程使用这个参数来确定任务。这个参数的值依赖于Hook类型，每一种Hook都有自己的Hook代码特征字符集。
.参数 wParam, 整数型, , wParam和lParam参数的值依赖于Hook代码，但是它们的典型值是包含了关于发送或者接收消息的信息。
.参数 lParam, 整数型
.局部变量 KeyValue, 整数型

KeyValue ＝ 取字节集数据 (指针到字节集 (lParam, 1), #字节型, )
调试输出 (KeyValue)
调试输出 (wParam)
.如果真 (KeyValue ≠ 163) ' 鼠标拖动
.如果真 (wParam ＝ 256) ' 按下键盘
.判断开始 (65 ≤ KeyValue 且 KeyValue ≤ 90) ' 主键盘字母
播放音乐 (取运行目录 () ＋ “\sound\key_letter.wav”, 假)
.判断 (48 ≤ KeyValue 且 KeyValue ≤ 57) ' 主键盘数字
播放音乐 (取运行目录 () ＋ “\sound\key_letter.wav”, 假)
.判断 (48 ≤ KeyValue 且 KeyValue ≤ 57) ' 小键盘数字
播放音乐 (取运行目录 () ＋ “\sound\key_letter.wav”, 假)
.判断 (KeyValue ＝ 8) ' 退格
播放音乐 (取运行目录 () ＋ “\sound\key_back.wav”, 假)
.判断 (KeyValue ＝ 13) ' 回车
播放音乐 (取运行目录 () ＋ “\sound\key_enter.wav”, 假)
.判断 (KeyValue ＝ 32) ' 空格
播放音乐 (取运行目录 () ＋ “\sound\key_space.wav”, 假)