|
|
分享例程
| 界面截图: |
 |
| 备注说明: |
.版本 2
.支持库 spec
.程序集 程序集1
.程序集变量 类_钩子, 类_钩子
.程序集变量 文件目录, 文本型
.程序集变量 声音文件, 文本型
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.如果真 (类_钩子.安装键盘钩子 (窗口_取任务栏句柄 (), &钩子回调函数, 真) ＝ 0)
信息框 (“钩子注册失败，请检查系统权限。”, 0, , )
.如果真结束
文件目录 ＝ 取运行目录 () ＋ “\声音库\”
音乐_播放 (文件目录 ＋ “开水语音启动.wav”, “开水瓶里游泳”)
程序_延时 (, )
返回 (0) ' 可以根据您的需要返回任意数值
.子程序 钩子回调函数, , , 参数一[按键类型],256=按下，257=放开,258=单击,参数二[键代码]。
.参数 按键类型
.参数 键代码
.如果真 (按键类型 ＝ 256) ' 256=按下，257=放开,258=单击(好像没用）如果不判断会出现重音
调试输出 (键代码)
音乐_停止 (“开水瓶里游泳”)
.如果 (左Shift键是否按下 () ＝ 真 或 右Shift键是否按下 () ＝ 真)
调试输出 (读配置项 (文件目录 ＋ “开水声音配置.ini”, “sound”, “+” ＋ 到文本 (键代码), ))
音乐_播放 (文件目录 ＋ 读配置项 (文件目录 ＋ “开水声音配置.ini”, “sound”, “+” ＋ 到文本 (键代码), ), “开水瓶里游泳”)
.否则
音乐_播放 (文件目录 ＋ 读配置项 (文件目录 ＋ “开水声音配置.ini”, “sound”, 到文本 (键代码), ), “开水瓶里游泳”)
.如果结束
.如果真结束 |
钩子回调函数提供的键代码参数和我们真正的键代码不同，不知道什么原因。比如上下左右方向键分别是72 80 75 77，真正的应该是38 40 37 39，上下左右都有问题，和小键盘的8246是一样的，请检查下哪里出了问题。
我本来是想写个键盘发声工具的，这样输入数据的时候不容易出错，网上下载的要么不支持小数点，要么读成英文，所以还是自己动手写一个，现在因为这个上下左右和小键盘的8246键代码相同的问题，不好解决，希望作者能检查下源码（上面是我写的源码），找下原因，看能否解决，谢谢。
|
|
粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173
发表于 2016-7-8 19:53:45
主题置顶卡
沉默卡
变色卡
楼主
占一楼
扫一扫，关注易界动态