易语言后台暗码监控源码（精易模块版本）

.版本 2
.支持库 spec
.支持库 EThread

.程序集 窗口程序集_启动窗口
.程序集变量 记录, 文本型

.子程序 __启动窗口_创建完毕
.局部变量 钩子, 类_钩子

钩子.安装钩子_键盘 (取窗口句柄 (), &回调函数, 真)

.子程序 回调函数
.参数 按键类型, 整数型
.参数 键代码, 整数型

调试输出 (按键类型)
调试输出 (键代码)
.如果真 (按键类型 ＝ 257)
.如果真 (键代码 ＝ #键1)
记录 ＝ 记录 ＋ 到文本 (键代码)
.如果真 (记录 ＝ “49”)
返回 ()
.如果真结束
记录 ＝ “”
返回 ()

.如果真结束
.如果真 (键代码 ＝ #键2)
记录 ＝ 记录 ＋ 到文本 (键代码)
.如果真 (记录 ＝ “4950”)
返回 ()
.如果真结束
记录 ＝ “”
返回 ()

.如果真结束

.如果真 (键代码 ＝ #键3)
记录 ＝ 记录 ＋ 到文本 (键代码)
.如果真 (记录 ＝ “495051”)
返回 ()
.如果真结束
记录 ＝ “”
返回 ()

.如果真结束

.如果真 (键代码 ＝ #键4)
记录 ＝ 记录 ＋ 到文本 (键代码)
.如果真 (记录 ＝ “49505152”)
返回 ()
.如果真结束
记录 ＝ “”
返回 ()

.如果真结束

.如果真 (键代码 ＝ #键5)
记录 ＝ 记录 ＋ 到文本 (键代码)
.如果真 (记录 ＝ “4950515253”)
返回 ()
.如果真结束
记录 ＝ “”
返回 ()

.如果真结束

.如果真 (键代码 ＝ #键6)
记录 ＝ 记录 ＋ 到文本 (键代码)
.如果真 (记录 ＝ “495051525354”)
启动线程 (&子程序1, , )
返回 ()
.如果真结束
记录 ＝ “”
返回 ()

.如果真结束

记录 ＝ “”
.如果真结束

.子程序 子程序1

信息框 (“ok ”, 0, , )

 本文转自：http://www.zhizhuowz.com/post-425.html