监视热键转到C++

tracelessnes

监视热键和撤消监视热键 这是超级模块里的 感觉挺好用 来个大神帮我用C++封装一下

  

子程序名	返回值类型	公开	备 注
监视热键	整数型		监视一个热键,当热键被触发时激活响应事件.(成功返回热键标识,失败返回0).注:必须真实的按键才会触发热键
参数名	类 型	参考	可空	数组	备 注
响应事件	子程序指针				响应事件(热键标识,其它...),事件参数数目不限!如果再次监视热键将响应事件!
键代码	整数型				触发事件的基本键,事件在基本键按下时触发,负数为放开时触发,1鼠标左键,2鼠标右键,更多cha询相关帮助
功能键状态	整数型				1 Alt  2 Ctrl  4 Shift  8 Win 若要两个或以上的状态键,则把它们的值相加.
其它键	整数型				如果你需要注册由两个普通键组合的热键,可设置一个其它键代码.
周期	整数型				默认为10,监视热键的周期时间(建议5-200之间)
直接触发	逻辑型				默认为假:创建新的线程事件 真:直接调用事件等待返回

变量名	类 型	静态	数组	备 注
临时热键信息	热键信息2
i	整数型

如果真 (到字节 (取绝对值 (键代码)) ≤ 0)
返回 (0)
计次循环首 (取数组成员数 (监视热键_信息), i)
如果真 (监视热键_信息 [i].普通键 ＝ 键代码 且 监视热键_信息 [i].功能键 ＝ 功能键状态 且 监视热键_信息 [i].其它键 ＝ 其它键)
监视热键_信息 [i].事件子程序 ＝ 响应事件
监视热键_信息 [i].直接触发 ＝ 直接触发
如果真 (监视热键_信息 [i].标识 ≠ 0)
返回 (监视热键_信息 [i].标识)  ' 已经注册过的热键,返回热键标识
监视热键_信息 [i].标识 ＝ i ＋ 1000000
返回 (监视热键_信息 [i].标识)

计次循环尾 ()
临时热键信息.事件子程序 ＝ 响应事件
临时热键信息.普通键 ＝ 键代码
临时热键信息.功能键 ＝ 功能键状态
临时热键信息.其它键 ＝ 其它键
临时热键信息.直接触发 ＝ 直接触发
临时热键信息.标识 ＝ 取数组成员数 (监视热键_信息) ＋ 1000001
加入成员 (监视热键_信息, 临时热键信息)
如果真 (临时热键信息.标识 ＝ 1000001)
_创建定时器 (0, 16661, 选择 (周期 ≤ 0, 10, 周期), &监视热键线程)
返回 (临时热键信息.标识)

.版本 2<br /> <br /> .子程序 监视热键, 整数型, 公开, 监视一个热键,当热键被触发时激活响应事件.(成功返回热键标识,失败返回0).注:必须真实的按键才会触发热键<br /> .参数 响应事件, 子程序指针, , 响应事件(热键标识,其它...),事件参数数目不限!如果再次监视热键将响应事件!<br /> .参数 键代码, 整数型, , 触发事件的基本键,事件在基本键按下时触发,负数为放开时触发,1鼠标左键,2鼠标右键,更多cha询相关帮助<br /> .参数 功能键状态, 整数型, 可空, 1 Alt  2 Ctrl  4 Shift  8 Win 若要两个或以上的状态键,则把它们的值相加.<br /> .参数 其它键, 整数型, 可空, 如果你需要注册由两个普通键组合的热键,可设置一个其它键代码.<br /> .参数 周期, 整数型, 可空, 默认为10,监视热键的周期时间(建议5-200之间)<br /> .参数 直接触发, 逻辑型, 可空, 默认为假:创建新的线程事件 真:直接调用事件等待返回<br /> .局部变量 临时热键信息, 热键信息2<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (到字节 (取绝对值 (键代码)) ≤ 0)<br />     返回 (0)<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (监视热键_信息), i)<br />     .如果真 (监视热键_信息 <i>.普通键 ＝ 键代码 且 监视热键_信息 <i>.功能键 ＝ 功能键状态 且 监视热键_信息 <i>.其它键 ＝ 其它键)<br />         监视热键_信息 <i>.事件子程序 ＝ 响应事件<br />         监视热键_信息 <i>.直接触发 ＝ 直接触发<br />         .如果真 (监视热键_信息 <i>.标识 ≠ 0)<br />             返回 (监视热键_信息 <i>.标识)  ' 已经注册过的热键,返回热键标识<br />         .如果真结束<br />         监视热键_信息 <i>.标识 ＝ i ＋ 1000000<br />         返回 (监视热键_信息 <i>.标识)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 临时热键信息.事件子程序 ＝ 响应事件<br /> 临时热键信息.普通键 ＝ 键代码<br /> 临时热键信息.功能键 ＝ 功能键状态<br /> 临时热键信息.其它键 ＝ 其它键<br /> 临时热键信息.直接触发 ＝ 直接触发<br /> 临时热键信息.标识 ＝ 取数组成员数 (监视热键_信息) ＋ 1000001<br /> 加入成员 (监视热键_信息, 临时热键信息)<br /> .如果真 (临时热键信息.标识 ＝ 1000001)<br />     _创建定时器 (0, 16661, 选择 (周期 ≤ 0, 10, 周期), &监视热键线程)<br /> .如果真结束<br /> 返回 (临时热键信息.标识)

  

子程序名	返回值类型	公开	备 注
监视热键线程

变量名	类 型	静态	数组	备 注
asdf	整数型			?
i	整数型
临时事件	子程序指针
临时标识	整数型
a
缓存键状态	短整数型		256

计次循环首 (255, i)
缓存键状态 [i] ＝ 251  ' 防检测处理
缓存键状态 [i] ＝ _判断按键状态 (i)
计次循环尾 ()
计次循环首 (取数组成员数 (监视热键_信息), i)
如果真 (监视热键_信息 [i].标识 ≠ 0)
a ＝ 到字节 (取绝对值 (监视热键_信息 [i].普通键))
a ＝ 缓存键状态 [a]
判断 (a ＝ 0)  ' 0,无状态
如果 (监视热键_信息 [i].键状态 ＝ 1)
监视热键_信息 [i].键状态 ＝ 2
监视热键_信息 [i].键状态 ＝ 0
到循环尾 ()

判断 (a ＜ 0)  ' -32767,按下状态
如果真 (监视热键_信息 [i].键状态 ＝ 0)
监视热键_信息 [i].键状态 ＝ 1
如果真 (监视热键_信息 [i].普通键 ＜ 0)
到循环尾 ()

' 1,放开后状态,在不停判断按键状态中得不到放开状态了
. ' 如果真 (监视热键_信息 [i].普通键 ＞ 0)
' ' 监视热键_信息 [i].键状态 ＝ 0
' 到循环尾 ()

' 下面判断激活热键
如果真 (监视热键_信息 [i].键状态 ＞ 0 且 监视热键_信息 [i].键状态 ≠ 88)
监视热键_信息 [i].键状态 ＝ 88
如果真 (监视热键_信息 [i].功能键 ＝ 选择 (缓存键状态 [18] ＜ 0, 1, 0) ＋ 选择 (缓存键状态 [17] ＜ 0, 2, 0) ＋ 选择 (缓存键状态 [16] ＜ 0, 4, 0) ＋ 选择 (缓存键状态 [91] ＜ 0, 8, 0))
如果真 (监视热键_信息 [i].其它键 ≠ 0)
a ＝ 到字节 (取绝对值 (监视热键_信息 [i].其它键))
如果真 (缓存键状态 [a] ≥ 0)
到循环尾 ()

临时事件 ＝ 监视热键_信息 [i].事件子程序
临时标识 ＝ 监视热键_信息 [i].标识[e=1].版本 2

子程序名	返回值类型	公开	备 注
撤消监视热键	逻辑型		撤消由监视热键注册的一个或全部热键(成功返回真,失败返回假)
参数名	类 型	参考	可空	数组	备 注
热键标识	整数型				欲撤消的热键标识,如果留空则撤消全部热键

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (取数组成员数 (监视热键_信息), i)
如果 (热键标识 ＝ 0)
监视热键_信息 [i].标识 ＝ 0
如果真 (热键标识 ＝ 监视热键_信息 [i].标识)
监视热键_信息 [i].标识 ＝ 0
返回 (真)


计次循环尾 ()
返回 (热键标识 ＝ 0)

.版本 2<br /> <br /> .子程序 监视热键线程<br /> .局部变量 asdf, 整数型, , , ?<br /> .局部变量 i, 整数型<br /> .局部变量 临时事件, 子程序指针<br /> .局部变量 临时标识, 整数型<br /> .局部变量 a<br /> .局部变量 缓存键状态, 短整数型, , "256"<br /> <br /> .计次循环首 (255, i)<br />     缓存键状态 <i> ＝ 251  ' 防检测处理<br />     缓存键状态 <i> ＝ _判断按键状态 (i)<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (监视热键_信息), i)<br />     .如果真 (监视热键_信息 <i>.标识 ≠ 0)<br />         a ＝ 到字节 (取绝对值 (监视热键_信息 <i>.普通键))<br />         a ＝ 缓存键状态 [a]<br />         .判断开始 (a ＝ 0)  ' 0,无状态<br />             .如果 (监视热键_信息 <i>.键状态 ＝ 1)<br />                 监视热键_信息 <i>.键状态 ＝ 2<br />             .否则<br />                 监视热键_信息 <i>.键状态 ＝ 0<br />                 到循环尾 ()<br />             .如果结束<br /> <br />         .判断 (a ＜ 0)  ' -32767,按下状态<br />             .如果真 (监视热键_信息 <i>.键状态 ＝ 0)<br />                 监视热键_信息 <i>.键状态 ＝ 1<br />             .如果真结束<br />             .如果真 (监视热键_信息 <i>.普通键 ＜ 0)<br />                 到循环尾 ()<br />             .如果真结束<br /> <br />         .默认<br />             ' 1,放开后状态,在不停判断按键状态中得不到放开状态了<br />             .' 如果真 (监视热键_信息 <i>.普通键 ＞ 0)<br />                 ' ' 监视热键_信息 <i>.键状态 ＝ 0<br />                 ' 到循环尾 ()<br />             .如果真结束<br /> <br />         .判断结束<br />         ' 下面判断激活热键<br />         .如果真 (监视热键_信息 <i>.键状态 ＞ 0 且 监视热键_信息 <i>.键状态 ≠ 88)<br />             监视热键_信息 <i>.键状态 ＝ 88<br />             .如果真 (监视热键_信息 <i>.功能键 ＝ 选择 (缓存键状态 [18] ＜ 0, 1, 0) ＋ 选择 (缓存键状态 [17] ＜ 0, 2, 0) ＋ 选择 (缓存键状态 [16] ＜ 0, 4, 0) ＋ 选择 (缓存键状态 [91] ＜ 0, 8, 0))<br />                 .如果真 (监视热键_信息 <i>.其它键 ≠ 0)<br />                     a ＝ 到字节 (取绝对值 (监视热键_信息 <i>.其它键))<br />                     .如果真 (缓存键状态 [a] ≥ 0)<br />                         到循环尾 ()<br />                     .如果真结束<br /> <br />                 .如果真结束<br />                 临时事件 ＝ 监视热键_信息 <i>.事件子程序<br />                 临时标识 ＝ 监视热键_信息 <i>.标识[e=1].版本 2<br /> <br /> .子程序 撤消监视热键, 逻辑型, 公开, 撤消由监视热键注册的一个或全部热键(成功返回真,失败返回假)<br /> .参数 热键标识, 整数型, 可空, 欲撤消的热键标识,如果留空则撤消全部热键<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (取数组成员数 (监视热键_信息), i)<br />     .如果 (热键标识 ＝ 0)<br />         监视热键_信息 <i>.标识 ＝ 0<br />     .否则<br />         .如果真 (热键标识 ＝ 监视热键_信息 <i>.标识)<br />             监视热键_信息 <i>.标识 ＝ 0<br />             返回 (真)<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 返回 (热键标识 ＝ 0)

                .如果 (监视热键_信息 .直接触发)
                    _回调钩子 (临时事件, 临时标识, 0, 0, 0)
                .否则
                    _关闭对象 (_创建线程 (0, 0, 临时事件, 临时标识, 0, 0))
                .如果结束

            .如果真结束

        .如果真结束

    .如果真结束

.计次循环尾 ()
[/e]

菊部变暖

虽然很难是不会，但是定制类的要求还是用RMB吧

jcos

易都不少代码了，用c++那不得一百几十行？
不走定制一般没人肯写了...

蛀牙